Function Test

sdk/tests/test_performance/source/test_string_pooled.cpp:218–267

                                         
void Test(double *testTime)
{
 	asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
	COutStream out;
	engine->SetMessageCallback(asMETHOD(COutStream,Callback), &out, asCALL_THISCALL);

	RegisterScriptString2(engine);

	asIScriptModule *mod = engine->GetModule(0, asGM_ALWAYS_CREATE);
	mod->AddScriptSection(TESTNAME, script, strlen(script), 0);
	int r = mod->Build();
	if( r >= 0 )
	{
#ifndef _DEBUG
		asIScriptContext *ctx = engine->CreateContext();
		ctx->Prepare(mod->GetFunctionByDecl("void TestStringP()"));

		double time = GetSystemTimer();

		r = ctx->Execute();

		time = GetSystemTimer() - time;

		if( r != 0 )
		{
			printf("Execution didn't terminate with asEXECUTION_FINISHED\n");
			if( r == asEXECUTION_EXCEPTION )
			{
				printf("Script exception\n");
				asIScriptFunction *func = ctx->GetExceptionFunction();
				printf("Func: %s\n", func->GetName());
				printf("Line: %d\n", ctx->GetExceptionLineNumber());
				printf("Desc: %s\n", ctx->GetExceptionString());
			}
		}
		else
			*testTime = time;

		ctx->Release();
#endif
	}
	else
		printf("Build failed\n");
	engine->Release();

	// Clean up the string pool
	for( asUINT n = 0; n < pool.size(); n++ )
		delete pool[n];
	pool.clear();
}

} // namespace