Exemplo n.º 1
0
bool TestLua::testLoadScripts()
{
    LuaState lua;
    bool loaded = lua.loadString("name = \"Melli\"\n"
                                 "local age = 23\n"
                                 "function getName()\n"
                                 "	return name\n"
                                 "end\n"
                                 "local function getAge()\n"
                                 "	return age\n"
                                 "end\n"
                                 "function getNameAndAge()\n"
                                 "	return getName(), getAge()\n"
                                 "end");
    if (!loaded)
    {
        lua.logStack("ERR");
        return false;
    }

    assert(lua.hasGlobalFunction("getName"));
    lua_acall(lua, 0, 1);
    am_equalsStr("Melli", lua_tostring(lua, -1));
    lua.pop(1);

    assert(!lua.hasGlobalFunction("getAge"));
    assert(lua.hasGlobalFunction("getNameAndAge"));
    lua_acall(lua, 0, 2);
    am_equalsStr("Melli", lua_tostring(lua, -2));
    am_equals(23, lua_tointeger(lua, -1));

    loaded = lua.loadString("name = \"Alan\"\n"
                            "local age = 24\n"
                            "local function getAge()\n"
                            "	return age\n"
                            "end\n");
    if (!loaded)
    {
        lua.logStack("ERR");
        return false;
    }

    assert(lua.hasGlobalFunction("getName"));
    lua_acall(lua, 0, 1);
    am_equalsStr("Alan", lua_tostring(lua, -1));
    lua.pop(1);

    assert(!lua.hasGlobalFunction("getAge"));
    assert(lua.hasGlobalFunction("getNameAndAge"));
    lua_acall(lua, 0, 2);
    am_equalsStr("Alan", lua_tostring(lua, -2));
    am_equals(23, lua_tointeger(lua, -1));

    return true;
}
Exemplo n.º 2
0
bool TestLua::testInheritance()
{
    LuaState lua;

    lua.registerWrapper("Base", test::Base_register, test::Base::LUA_ID);
    lua.registerWrapper("Child", test::Child_register, test::Child::LUA_ID);

    int loadResult = lua.loadString("Base, Child = import(\"Base\", \"Child\")\n"
                                    "base = Base.new()\n"
                                    "base:set_name(\"Melli\")\n"
                                    "child = Child.new()\n"
                                    "child:set_age(23)\n"
                                    "child:set_name(\"Alan\")\n"
                                    "function getBase()\n"
                                    "	return base\n"
                                    "end\n"
                                    "function getChild()\n"
                                    "	return child\n"
                                    "end\n"
                                   );

    if (!loadResult)
    {
        lua.logStack("ERR LOADING");
        return false;
    }

    assert(lua.hasGlobalFunction("getBase"));
    lua_acall(lua, 0, 1);
    test::Base *base = castUData<test::Base>(lua, -1);
    assert(base != NULL);

    am_equalsStr("Melli", base->getName());

    assert(lua.hasGlobalFunction("getChild"));
    lua_acall(lua, 0, 1);
    test::Child *child = castUData<test::Child>(lua, -1);
    assert(child != NULL);

    am_equals(23, child->getAge());

    lua.close();

    return true;
}
Exemplo n.º 3
0
	bool TestLuaMap::testSimple() {
		LuaState lua;
		
		int loadResult = lua.loadString("Map = import(\"Map\")\n"
			"Engine = import(\"Engine\")\n"
			"local result = loadfile(\"data\\\\tileTypes2.lua\")\n"
			"if (result == nil) then\n"
			"	am_log(\"Error loading\")\n"
			"else\n"
			"	am_log(\"No error\")\n"
			"end\n"
			"result()\n"

			"map = Map.new(\"testMap\", 6, 7)\n"
			"map:full_name(\"The Region of Test\")\n"

			"Engine.clear_using_tile_set()\n"
			"Engine.using_tile_set(\"nature\")\n"

			"map:tiles({\n"
			"	\"brick:0\", \"brick:2\", \"grass:0\", \"grass:2\", \"grass:3\", \"dirt:3\",\n"
			"	\"brick:1\", \"brick:0\", \"grass:1\", \"dirt:0\", \"dirt:2\", \"grass:1\",\n"
			"	\"brick:0\", \"brick:2\", \"grass:2\", \"dirt:3\", \"dirt:0\", \"grass:3\",\n"
			"	\"brick:2\", \"brick:1\", \"grass:3\", \"dirt:2\", \"dirt:1\", \"swamp\",\n"
			"	\"brick:1\", \"brick:0\", \"grass:1\", \"grass:0\", \"swamp\", \"water\",\n"
			"	\"brick:2\", \"brick:2\", \"grass:2\", \"grass:3\", \"water\", \"water\",\n"
			"	\"brick:2\", \"brick:2\", \"grass:0\", \"swamp\", \"water\", \"water\",\n"
			"	\"brick:2\", \"brick:2\", \"grass:3\", \"swamp\", \"water\", \"water\"\n"
			"})\n"
			"function getMap()\n"
			"	return map\n"
			"end\n"
			);

		if (!loadResult)
		{
			lua.logStack("LOAD ERR");
		}
		assert(loadResult);

		assert(lua.hasGlobalFunction("getMap"));
		lua_acall(lua, 0, 1);
		Map *map = castUData<Map>(lua, -1);
		assert(map != NULL);

		am_equals(6, map->getMapWidth());
		am_equals(7, map->getMapHeight());

		am_equalsStr("The Region of Test", map->getFullName().c_str());

		Tile *tile = map->getTile(0, 0);
		assert(tile);
		am_equalsStr("brick", tile->getName().c_str());
		am_equals(0, map->getTileInstance(0, 0)->getTileFrame());

		tile = map->getTile(3, 0);
		assert(tile);
		am_equalsStr("grass", tile->getName().c_str());
		am_equals(2, map->getTileInstance(3, 0)->getTileFrame());

		tile = map->getTile(4, 4);
		assert(tile);
		am_equalsStr("swamp", tile->getName().c_str());
		am_equals(0, map->getTileInstance(4, 4)->getTileFrame());

		tile = map->getTile(5, 6);
		assert(tile);
		am_equalsStr("water", tile->getName().c_str());
		am_equals(0, map->getTileInstance(5, 6)->getTileFrame());

		return true;
	}
Exemplo n.º 4
0
	bool TestLuaQuest::testSimple() {
		LuaState lua;

		Engine *prevEng = Engine::getEngine();
		Engine *eng = new Engine();
		Engine::setEngine(eng);

		Handle<Game> game(new Game(eng));
		eng->setCurrentGame(game);

		Handle<Character> main(new Character());
		main->setGameId("testMainChar");
		game->setMainCharacter(main);

		int loadResult = lua.loadString("Quest, Character, Engine, Game, CoinPurse = import("
			"\"Quest\", \"Character\", \"Engine\", \"Game\", \"CoinPurse\")\n"

			"local quest = Quest.new(\"testQuest\")\n"
			"Quest.add_quest(quest)\n"
			"local game = Engine.game()\n"
			"local main = game:main()\n"
			"local questStarted = false\n"

			"function startQuest(event)\n"
			"	main:on(\"talk\", finishQuest)\n"
			"	main:off(\"talk\", startQuest)\n"
			"end\n"

			"function finishQuest(event)\n"
			"	main:off(\"talk\", finishQuest)\n"
			"	main:add_experience(1000)\n"
			"	main:coin_purse():add_coin(50)\n"
			"	quest:set_complete(true)\n"
			"end\n"
			"main:on(\"talk\", startQuest)\n"
			);

		if (!loadResult)
		{
			lua.logStack("LOAD ERR");
		}
		assert(loadResult);

		lua_Debug ar;
		lua_getstack(lua, 1, &ar);

		Quest *quest = Engine::getGame()->getQuest("testQuest");
		assert(!quest->isCompleted());
		
		am_equals(0, main->getExperience());
		am_equals(0, main->getLevel());
		am_equals(0u, main->getCoinPurse()->getCoin());

		Handle<Event> startEvent(new Event("talk"));
		main->fireEvent<Event>(startEvent);
		main->fireEvent<Event>(startEvent);

		am_equals(1000, main->getExperience());
		am_equals(1, main->getLevel());
		am_equals(50u, main->getCoinPurse()->getCoin());

		Engine::setEngine(prevEng);

		delete eng;

		return true;
	}