Function TestScriptAdminMakeJSON

src/tests/test_script_admin.cpp:52–83

* Small wrapper around ScriptAdmin's MakeJSON that prepares the Squirrel * engine if it was called from actual scripting.. */

 * engine if it was called from actual scripting..
 */
static std::optional<std::string> TestScriptAdminMakeJSON(std::string_view squirrel)
{
	auto vm = sq_open(1024);
	/* sq_compile creates a closure with our snippet, which is a table.
	 * Add "return " to get the table on the stack. */
	std::string buffer = fmt::format("return {}", squirrel);

	/* Insert an (empty) class for testing. */
	sq_pushroottable(vm);
	sq_pushstring(vm, "DummyClass");
	sq_newclass(vm, SQFalse);
	sq_newslot(vm, -3, SQFalse);
	sq_pop(vm, 1);

	/* Compile the snippet. */
	REQUIRE(sq_compilebuffer(vm, buffer, "test", SQTrue) == SQ_OK);
	/* Execute the snippet, capturing the return value. */
	sq_pushroottable(vm);
	REQUIRE(sq_call(vm, 1, SQTrue, SQTrue) == SQ_OK);
	/* Ensure the snippet pushed a table on the stack. */
	REQUIRE(sq_gettype(vm, -1) == OT_TABLE);

	/* Feed the snippet into the MakeJSON function. */
	nlohmann::json json;
	if (!ScriptAdminMakeJSON(json, vm, -1)) {
		sq_close(vm);
		return std::nullopt;
	}

	sq_close(vm);
	return json.dump();
}

/**
 * Validate ScriptEventAdminPort can convert JSON to Squirrel.