Function Test

sdk/tests/test_feature/source/test_constobject.cpp:55–300

bool Test2();

bool Test()
{
	bool fail = Test2();

	int r;
	COutStream out;
	CBufferedOutStream bout;

	// passing a const handle on to a function expecting a const ref
	// http://www.gamedev.net/topic/681018-problem-in-arrayfind-with-a-const-param/
	{
		asIScriptEngine *engine = asCreateScriptEngine();
		engine->SetMessageCallback(asMETHOD(CBufferedOutStream, Callback), &bout, asCALL_THISCALL);
		bout.buffer = "";
		RegisterScriptArray(engine, false);

		asIScriptModule *mod = engine->GetModule("test", asGM_ALWAYS_CREATE);
		mod->AddScriptSection("test",
			"class CData { int a; } \n"
			"void func(const CData @d) \n"
			"{ \n"
			"  find(d); \n"
			"  array<CData@> arr; \n"
			"  arr.find(d); \n"
			"} \n"
			"void find(const CData@ &in f) \n"
			"{ \n"
			//"  f.a = 42; \n"  change is not allowed
			"} \n");
		r = mod->Build();
		if (r < 0)
			TEST_FAILED;

		if (bout.buffer != "")
		{
			PRINTF("%s", bout.buffer.c_str());
			TEST_FAILED;
		}

		engine->ShutDownAndRelease();
	}

	// Ordinary tests
	SKIP_ON_MAX_PORT
	{
		asIScriptEngine *engine = asCreateScriptEngine(ANGELSCRIPT_VERSION);
		engine->SetMessageCallback(asMETHOD(COutStream, Callback), &out, asCALL_THISCALL);

		// Register an object type
		r = engine->RegisterObjectType("obj", sizeof(CObj), asOBJ_REF); assert(r >= 0);
		r = engine->RegisterObjectBehaviour("obj", asBEHAVE_FACTORY, "obj@ f()", asFUNCTION(CObj_Factory), asCALL_CDECL); assert(r >= 0);
		r = engine->RegisterObjectBehaviour("obj", asBEHAVE_ADDREF, "void f()", asMETHOD(CObj, AddRef), asCALL_THISCALL); assert(r >= 0);
		r = engine->RegisterObjectBehaviour("obj", asBEHAVE_RELEASE, "void f()", asMETHOD(CObj, Release), asCALL_THISCALL); assert(r >= 0);
		r = engine->RegisterObjectMethod("obj", "obj &opAssign(const obj &in)", asMETHOD(CObj, operator=), asCALL_THISCALL); assert(r >= 0);
		r = engine->RegisterObjectMethod("obj", "int &opIndex(int)", asMETHODPR(CObj, operator[], (int), int&), asCALL_THISCALL); assert(r >= 0);
		r = engine->RegisterObjectMethod("obj", "const int &opIndex(int) const", asMETHODPR(CObj, operator[], (int) const, const int&), asCALL_THISCALL); assert(r >= 0);

		r = engine->RegisterObjectType("prop", sizeof(int), asOBJ_VALUE | asOBJ_POD | asOBJ_APP_PRIMITIVE); assert(r >= 0);