Ejemplo n.º 1
0
	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;
	}
Ejemplo n.º 2
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;
}
Ejemplo n.º 3
0
	/*bool TileType::loadFromDef(JsonValue value)
	{
		if (value.has("fullName", JV_STR))
		{
			mFullName = value["fullName"].getCStr();
		}
		return true;
	}*/
	bool TileType::loadFromDef(LuaState &lua)
	{
		if (!lua_istable(lua, -1))
		{
			return false;
		}
		if (lua.isTableString("fullName"))
		{
			mFullName = lua_tostring(lua, -1);
			lua.pop(1);
		}
		return true;
	}
Ejemplo n.º 4
0
bool TestLua::testSimple() {
    LuaState lua;
    assert(lua.getLua() != NULL);

    int ref = lua.newTable("table1");
    lua.setTableValue("name", "Melli");
    lua.setTableValue("age", 22);

    lua.pop(1);

    assert(!lua_istable(lua, -1));
    lua.getTable("table1");
    assert(lua_istable(lua, -1));

    lua.pop(1);
    assert(!lua_istable(lua, -1));
    lua.getTable(ref);
    assert(lua_istable(lua, -1));

    const char *name = lua.getTableString("name");
    assert(name != NULL);
    am_equalsStr("Melli", name);
    int age = 0;
    assert(lua.getTableInt("age", age));
    am_equals(22, age);
    name = lua.getTableString("name");
    assert(name != NULL);
    am_equalsStr("Melli", name);

    lua.pop(1);

    am_equals(0, lua_gettop(lua));

    lua.close();

    return true;
}
Ejemplo n.º 5
0
	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;
	}
Ejemplo n.º 6
0
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;
}