diff --git a/test/agent/src/utils.h b/test/agent/src/utils.h index be2d82b9f2af0bb4107e339fd7cdf4c538ac5791..9b00d06eb41aa4cf602a299c1f0e2b1b2061bd4f 100644 --- a/test/agent/src/utils.h +++ b/test/agent/src/utils.h @@ -116,6 +116,13 @@ struct from_guile return scm_to_bool(value); } + operator int() + { + AGENT_ASSERT(scm_is_integer(value), "Scheme value must be of type integer"); + + return scm_to_int(value); + } + operator std::string() { AGENT_ASSERT(scm_is_string(value), "Scheme value must be of type string");