Function Test2

sdk/tests/test_feature/source/test_dynamicconfig.cpp:795–859

This test was reported by Zeu5 on 2009-03-24 It used to crash on the second call to Build(), and also on ExecuteString()

// This test was reported by Zeu5 on 2009-03-24
// It used to crash on the second call to Build(), and also on ExecuteString()
bool Test2()
{
	bool fail = false;
	int r;

	asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
	engine->BeginConfigGroup("MyGroup");
	engine->RegisterInterface("MyHostDefinedInterface");
	engine->RegisterInterfaceMethod("MyHostDefinedInterface", "void doSomething()");
	engine->EndConfigGroup();

	const char *script = "class MyScriptedClass : MyHostDefinedInterface\n"
						 "{\n"
						 "   void doSomething() { /* nothing */ }\n"
						 "} \n"
						 "void Test()  \n"
						 "{ \n"
						 "  MyScriptedClass @b = MyScriptedClass(); \n"
						 "} \n";

	asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
	mod->AddScriptSection("script", script);
	r = mod->Build();
	if( r < 0 )
	{
		TEST_FAILED;
	}

	r = ExecuteString(engine, "Test()", mod);
	if( r != asEXECUTION_FINISHED )
	{
		TEST_FAILED;
	}

	engine->DiscardModule(0);
	r = engine->RemoveConfigGroup("MyGroup");
	if( r < 0 )
	{
		TEST_FAILED;
	}

	// Now do everything again
	engine->BeginConfigGroup("MyGroup");
	engine->RegisterInterface("MyHostDefinedInterface");
	engine->RegisterInterfaceMethod("MyHostDefinedInterface", "void doSomething()");
	engine->EndConfigGroup();

	mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
	mod->AddScriptSection("script", script);
	r = mod->Build();
	if( r < 0 )
	{
		TEST_FAILED;
	}

	r = ExecuteString(engine, "Test()", mod);
	if( r != asEXECUTION_FINISHED )
	{