bool TestLuaTileSet::testSimple() { LuaState lua; assert(lua.loadString("TileSet = import(\"TileSet\")\n" "set = TileSet.new(\"testTileSet\")\n" "function getName()\n" " return set:name()\n" "end\n" "function getFullName()\n" " return set:full_name()\n" "end\n" "function setFullName(name)\n" " set:full_name(name)\n" "end\n" )); assert(lua.hasGlobalFunction("getName")); lua_acall(lua, 0, 1); am_equalsStr("testTileSet", lua_tostring(lua, -1)); lua.pop(1); assert(lua.hasGlobalFunction("setFullName")); lua.push("New Full Name"); lua_acall(lua, 1, 0); assert(lua.hasGlobalFunction("getFullName")); lua_acall(lua, 0, 1); am_equalsStr("New Full Name", lua_tostring(lua, -1)); lua.pop(1); return true; }
bool TestLua::testWrapper() { LuaState lua; Engine::getEngine()->setCurrentGame(new Game()); Handle<Character> testCharacter(new Character()); testCharacter->setGameId("testId"); testCharacter->setName("Test Name"); lua.loadString("Character = import(\"Character\")\n" "name = \"none\"\n" "function testFunc()\n" " obj = Character.new(\"testId\")\n" " name = obj:name()\n" " obj:name(name..\" changed\")\n" "end"); string name = lua.getGlobalString("name"); am_equalsStr("none", name.c_str()); assert(lua.hasGlobalFunction("testFunc")); lua_acall(lua, 0, 0); name = lua.getGlobalString("name"); am_equalsStr("Test Name", name.c_str()); am_equalsStr("Test Name changed", testCharacter->getName().c_str()); lua.close(); return true; }
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; }
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; }
bool TestLuaTileSet::testTiles() { LuaState lua; assert(lua.loadString("TileSet = import(\"TileSet\")\n" "Tile = import(\"Tile\")\n" "set = TileSet.new(\"testTileSet\")\n" "function addTile(tile)\n" " set:add_tile(tile)\n" "end\n" "function removeTile(tile)\n" " set:remove_tile(tile)\n" "end\n" "function getTile(tileName)\n" " return set:tile(tileName)\n" "end\n" "function hasTile(tile)\n" " return set:has_tile(tile)\n" "end\n" )); assert(lua.hasGlobalFunction("hasTile")); lua.push("myTile"); lua_acall(lua, 1, 1); assert(!lua_toboolean(lua, -1)); lua.pop(1); Tile *tile = new Tile("myTile"); assert(lua.hasGlobalFunction("addTile")); wrapRefObject<Tile>(lua, tile); lua_acall(lua, 1, 0); assert(lua.hasGlobalFunction("hasTile")); lua.push("myTile"); lua_acall(lua, 1, 1); assert(lua_toboolean(lua, -1)); lua.pop(1); assert(lua.hasGlobalFunction("hasTile")); wrapRefObject<Tile>(lua, tile); lua_acall(lua, 1, 1); assert(lua_toboolean(lua, -1)); lua.pop(1); assert(lua.hasGlobalFunction("getTile")); lua.push("myTile"); lua_acall(lua, 1, 1); lua_getmetatable(lua, -1); Tile *get = castUData<Tile>(lua, 1); lua.pop(1); assert(tile == get); assert(lua.hasGlobalFunction("removeTile")); lua.push("myTile"); lua_acall(lua, 1, 0); assert(lua.hasGlobalFunction("hasTile")); lua.push("myTile"); lua_acall(lua, 1, 1); assert(!lua_toboolean(lua, -1)); lua.pop(1); return true; }
bool TestLua::testScripts() { LuaState lua; lua.loadString("function testFunc(x, y)\n" " return x * y\n" "end"); assert(lua.hasGlobalFunction("testFunc")); lua.push(4); lua.push(5); lua_acall(lua, 2, 1); int result = lua_tointeger(lua, -1); am_equals(20, result); lua.pop(1); am_equals(0, lua_gettop(lua)); assert(!lua.hasGlobalFunction("notafunc")); am_equals(0, lua_gettop(lua)); assert(lua.loadString("function notafunc()\n" " return \"hello there\"\n" "end")); assert(lua.hasGlobalFunction("testFunc")); lua.push(4); lua.push(5); lua_acall(lua, 2, 1); result = lua_tointeger(lua, -1); am_equals(20, result); lua.pop(1); am_equals(0, lua_gettop(lua)); assert(lua.hasGlobalFunction("notafunc")); am_equals(1, lua_gettop(lua)); lua_acall(lua, 0, 1); const char *callResult = lua_tostring(lua, -1); am_equalsStr(callResult, "hello there"); lua.pop(1); am_equals(0, lua_gettop(lua)); // You can redefine functions! // And load them at run-time! // Must find a way of making use of this. assert(lua.loadString("function notafunc()\n" " return \"how are you?\"\n" "end")); am_equals(0, lua_gettop(lua)); assert(lua.hasGlobalFunction("notafunc")); am_equals(1, lua_gettop(lua)); lua_acall(lua, 0, 1); callResult = lua_tostring(lua, -1); am_equalsStr(callResult, "how are you?"); lua.pop(1); am_equals(0, lua_gettop(lua)); lua.close(); return true; }
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; }