require "lunit" local function _test_create_ship(r) local s = ship.create(r, "canoe") if (s==nil) then s = ship.create(r, "boat") end return s end local function one_unit(r, f) local u = unit.create(f, r, 1) u:add_item("money", u.number * 100) u:clear_orders() return u end local function two_units(r, f1, f2) return one_unit(r, f1), one_unit(r, f2) end local function two_factions() local f1 = faction.create("noreply@eressea.de", "human", "de") local f2 = faction.create("noreply@eressea.de", "orc", "de") return f1, f2 end module("tests.common", package.seeall, lunit.testcase) function setup() free_game() settings.set("nmr.removenewbie", "0") settings.set("nmr.timeout", "0") settings.set("rules.economy.food", "4") end function DISABLE_test_eventbus_fire() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r) function compare_f(u, event, f) assert_equal(u.faction, f) end eventbus.register(u, "weird", compare_f) eventbus.fire(u, "weird", f) end function test_fleeing_units_can_be_transported() local r = region.create(0, 0, "plain") local r1 = region.create(1, 0, "plain") local f1, f2 = two_factions() local u1, u2 = two_units(r, f1, f2) local u3 = one_unit(r, f2) u1.number = 100 u1:add_order("ATTACKIEREN " .. itoa36(u2.id)) u2.number = 100 u2:add_order("FAHREN " .. itoa36(u3.id)) u3.number = 100 u3:add_order("KAEMPFE FLIEHE") u3:add_order("TRANSPORT " .. itoa36(u2.id)) u3:add_order("NACH O ") u3:set_skill("riding", 2) u3:add_item("horse", u2.number) u3:add_order("KAEMPFE FLIEHE") process_orders() assert_equal(u3.region.id, r1.id, "transporter did not move") assert_equal(u2.region.id, r1.id, "transported unit did not move") end function test_plane() local pl = plane.create(0, -3, -3, 7, 7) local nx, ny = plane.normalize(pl, 4, 4) assert_equal(nx, -3, "normalization failed") assert_equal(ny, -3, "normalization failed") local f = faction.create("noreply@eressea.de", "human", "de") f.id = atoi36("tpla") local r, x, y for x = -3, 3 do for y = -3, 3 do r = region.create(x, y, "plain") if (x==y) then local u = unit.create(f, r, 1) end end end end function test_pure() local r = region.create(0, 0, "plain") assert_not_equal(nil, r) assert_equal(r, get_region(0, 0)) end function test_read_write() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r) u.number = 2 local fno = f.id local uno = u.id local result = 0 assert_equal(r.terrain, "plain") result = write_game("test_read_write.dat", "binary") assert_equal(result, 0) assert_not_equal(get_region(0, 0), nil) assert_not_equal(get_faction(fno), nil) assert_not_equal(get_unit(uno), nil) r = nil f = nil u = nil free_game() assert_equal(get_region(0, 0), nil) assert_equal(nil, get_faction(fno)) assert_equal(nil, get_unit(uno)) result = read_game("test_read_write.dat", "binary") assert_equal(0, result) assert_not_equal(nil, get_region(0, 0)) assert_not_equal(nil, get_faction(fno)) assert_not_equal(nil, get_unit(uno)) end function test_gmtool() local r1 = region.create(1, 0, "plain") local r2 = region.create(1, 1, "plain") local r3 = region.create(1, 2, "plain") gmtool.open() gmtool.select(r1, true) gmtool.select_at(0, 1, true) gmtool.select(r2, true) gmtool.select_at(0, 2, true) gmtool.select(r3, false) gmtool.select(r3, true) gmtool.select_at(0, 3, false) gmtool.select(r3, false) local selections = 0 for r in gmtool.get_selection() do selections=selections+1 end assert_equal(2, selections) assert_equal(nil, gmtool.get_cursor()) gmtool.close() end function test_faction() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") assert(f) f.info = "Spazz" assert(f.info=="Spazz") f:add_item("donotwant", 42) f:add_item("stone", 42) f:add_item("sword", 42) local items = 0 for u in f.items do items = items + 1 end assert(items==2) unit.create(f, r) unit.create(f, r) local units = 0 for u in f.units do units = units + 1 end assert(units==2) end function test_unit() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r) u.number = 20 u.name = "Enno" assert(u.name=="Enno") u.info = "Spazz" assert(u.info=="Spazz") u:add_item("sword", 4) assert(u:get_item("sword")==4) assert(u:get_pooled("sword")==4) u:use_pooled("sword", 2) assert(u:get_item("sword")==2) end function test_region() local r = region.create(0, 0, "plain") r:set_resource("horse", 42) r:set_resource("money", 45) r:set_resource("peasant", 200) assert(r:get_resource("horse") == 42) assert(r:get_resource("money") == 45) assert(r:get_resource("peasant") == 200) r.name = nil r.info = nil assert(r.name=="") assert(r.info=="") r.name = "Alabasterheim" r.info = "Hier wohnen die siebzehn Zwerge" assert(tostring(r) == "Alabasterheim (0,0)") end function test_building() local u local f = faction.create("noreply@eressea.de", "human", "de") local r = region.create(0, 0, "plain") local b = building.create(r, "castle") u = unit.create(f, r) u.number = 1 u.building = b u = unit.create(f, r) u.number = 2 -- u.building = b u = unit.create(f, r) u.number = 3 u.building = b local units = 0 for u in b.units do units = units + 1 end assert(units==2) local r2 = region.create(0, 1, "plain") assert(b.region==r) b.region = r2 assert(b.region==r2) assert(r2.buildings()==b) end function test_message() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r) local msg = message.create("item_create_spell") msg:set_unit("mage", u) msg:set_int("number", 1) msg:set_resource("item", "sword") msg:send_region(r) msg:send_faction(f) return msg end function test_hashtable() local f = faction.create("noreply@eressea.de", "human", "de") f.objects:set("enno", "smart guy") f.objects:set("age", 10) assert(f.objects:get("jesus") == nil) assert(f.objects:get("enno") == "smart guy") assert(f.objects:get("age") == 10) f.objects:set("age", nil) assert(f.objects:get("age") == nil) end function test_events() local fail = 1 local function msg_handler(u, evt) str = evt:get(0) u2 = evt:get(1) assert(u2~=nil) assert(str=="Du Elf stinken") message_unit(u, u2, "thanks unit, i got your message: " .. str) message_faction(u, u2.faction, "thanks faction, i got your message: " .. str) message_region(u, "thanks region, i got your message: " .. str) fail = 0 end plain = region.create(0, 0, "plain") skill = 8 f = faction.create("noreply@eressea.de", "orc", "de") f.age = 20 u = unit.create(f, plain) u.number = 1 u:add_item("money", u.number*100) u:clear_orders() u:add_order("NUMMER PARTEI test") u:add_handler("message", msg_handler) msg = "BOTSCHAFT EINHEIT " .. itoa36(u.id) .. " Du~Elf~stinken" f = faction.create("noreply@eressea.de", "elf", "de") f.age = 20 u = unit.create(f, plain) u.number = 1 u:add_item("money", u.number*100) u:clear_orders() u:add_order("NUMMER PARTEI eviL") u:add_order(msg) process_orders() assert(fail==0) end function test_recruit2() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r) u.number = 1 u:add_item("money", 2000) u:clear_orders() u:add_order("MACHE TEMP 1") u:add_order("REKRUTIERE 1 Elf") u:add_order("REKRUTIERE 1 mensch") u:add_order("REKRUTIERE 1") process_orders() end function test_guard() region.create(1, 0, "plain") local r = region.create(0, 0, "plain") local f1 = faction.create("noreply@eressea.de", "human", "de") f1.age = 20 local u1 = unit.create(f1, r, 1) u1:add_item("sword", 10) u1:add_item("money", 10) u1:set_skill("melee", 10) u1:clear_orders() u1:add_order("NACH O") local f2 = faction.create("noreply@eressea.de", "human", "de") f2.age = 20 local u2 = unit.create(f2, r, 1) local u3 = unit.create(f2, r, 1) local b = building.create(r, "castle") b.size = 10 u2.building = b u3.building = b u2:clear_orders() u2:add_order("ATTACKIEREN " .. itoa36(u1.id)) -- you will die... u2:add_item("money", 100) u3:add_item("money", 100) process_orders() assert_equal(r.id, u1.region.id, "unit may not move after combat") end function test_recruit() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r) u.number = 1 local n = 3 r:set_resource("peasant", 200) u:clear_orders() u:add_item("money", 110*n+20) u:add_order("REKRUTIERE " .. n) process_orders() assert(u.number == n+1) local p = r:get_resource("peasant") assert(p<200 and p>=200-n) -- assert(u:get_item("money")==10) end function test_produce() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) u:clear_orders() u:set_skill("weaponsmithing", 3) u:add_item("iron", 2) u:add_item("money", u.number * 10) u:add_order("MACHE Schwert") process_orders() assert(u:get_item("iron")==1) assert(u:get_item("sword")==1) end function test_work() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) u:add_item("money", u.number * 10) -- humans cost 10 u:set_skill("herbalism", 5) u:clear_orders() u:add_order("ARBEITEN") process_orders() assert(u:get_item("money")>=10) end function test_upkeep() settings.set("rules.economy.food", "0") local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 5) u:add_item("money", u.number * 11) u:clear_orders() u:add_order("LERNE Waffenbau") process_orders() assert(u:get_item("money")==u.number) end function test_id() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") f.id = atoi36("42") assert(get_faction(42)~=f) assert(get_faction("42")==f) assert(get_faction(atoi36("42"))==f) local u = unit.create(f, r, 1) u.id = atoi36("42") assert(get_unit(42)~=u) assert(get_unit("42")==u) assert(get_unit(atoi36("42"))==u) local b = building.create(r, "castle") -- b.id = atoi36("42") local fortytwo = itoa36(b.id) assert(get_building(fortytwo)==b) assert(get_building(atoi36(fortytwo))==b) local s = _test_create_ship(r) -- s.id = atoi36("42") local fortytwo = itoa36(s.id) assert(get_ship(fortytwo)==s) assert(get_ship(atoi36(fortytwo))==s) end function test_herbalism() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) u:add_item("money", u.number * 100) u:set_skill("herbalism", 5) u:clear_orders() u:add_order("MACHE Samen") process_orders() end function test_mallorn() local r = region.create(0, 0, "plain") r:set_flag(1, false) -- not mallorn r:set_resource("tree", 100) assert(r:get_resource("tree")==100) local m = region.create(0, 0, "plain") m:set_flag(1, true) -- not mallorn m:set_resource("tree", 100) assert(m:get_resource("tree")==100) local f = faction.create("noreply@eressea.de", "human", "de") local u1 = unit.create(f, r, 1) u1:add_item("money", u1.number * 100) u1:set_skill("forestry", 2) u1:clear_orders() u1:add_order("MACHE HOLZ") local u2 = unit.create(f, m, 1) u2:add_item("money", u2.number * 100) u2:set_skill("forestry", 2) u2:clear_orders() u2:add_order("MACHE HOLZ") local u3 = unit.create(f, m, 1) u3:add_item("money", u3.number * 100) u3:set_skill("forestry", 2) u3:clear_orders() u3:add_order("MACHE Mallorn") process_orders() assert(u1:get_item("log")==2) assert(u2:get_item("log")==2) assert(u3:get_item("mallorn")==1) end function test_coordinate_translation() local pl = plane.create(1, 500, 500, 1001, 1001) -- astralraum local pe = plane.create(1, -8761, 3620, 23, 23) -- eternath local r = region.create(1000, 1000, "plain") local f = faction.create("noreply@eressea.de", "human", "de") assert_not_equal(nil, r) assert_equal(r.x, 1000) assert_equal(r.y, 1000) local nx, ny = plane.normalize(pl, r.x, r.y) assert_equal(nx, 1000) assert_equal(ny, 1000) local r1 = region.create(500, 500, "plain") f:set_origin(r1) nx, ny = f:normalize(r1) assert_equal(0, nx) assert_equal(0, ny) local r0 = region.create(0, 0, "plain") nx, ny = f:normalize(r0) assert_equal(0, nx) assert_equal(0, ny) nx, ny = f:normalize(r) assert_equal(500, nx) assert_equal(500, ny) local rn = region.create(1010, 1010, "plain") nx, ny = f:normalize(rn) assert_equal(-491, nx) assert_equal(-491, ny) local re = region.create(-8760, 3541, "plain") -- eternath nx, ny = f:normalize(rn) assert_equal(-491, nx) assert_equal(-491, ny) end function test_control() local u1, u2 = two_units(region.create(0, 0, "plain"), two_factions()) local r = u1.region local b = building.create(r, "castle") u1.building = b u2.building = b assert_equal(u1, b.owner) u1:clear_orders() u1:add_order("GIB " .. itoa36(u2.id) .. " KOMMANDO") u1:add_order("VERLASSE") process_orders() assert_equal(u2, b.owner) end function test_store_unit() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) local fid = f.id u:add_item("money", u.number * 100) store = storage.create("test.unit.dat", "wb") assert_not_equal(store, nil) store:write_unit(u) store:close() free_game() -- recreate world: r = region.create(0, 0, "plain") f = faction.create("noreply@eressea.de", "human", "de") f.id = fid store = storage.create("test.unit.dat", "rb") assert(store) u = store:read_unit() store:close() assert(u) assert(u:get_item("money") == u.number * 100) end function test_building_other() local r = region.create(0,0, "plain") local f1 = faction.create("noreply@eressea.de", "human", "de") local f2 = faction.create("noreply@eressea.de", "human", "de") local b = building.create(r, "castle") b.size = 10 local u1 = unit.create(f1, r, 3) u1.building = b u1:add_item("money", 100) local u2 = unit.create(f2, r, 3) u2:set_skill("building", 10) u2:add_item("money", 100) u2:add_item("stone", 100) u2:clear_orders() u2:add_order("MACHEN BURG " .. itoa36(b.id)) process_orders() assert_not_equal(10, b.size) end function test_config() assert_not_equal(nil, config.basepath) assert_not_equal(nil, config.locales) end function test_guard_resources() -- this is not quite http://bugs.eressea.de/view.php?id=1756 local r = region.create(0,0, "mountain") local f1 = faction.create("noreply@eressea.de", "human", "de") f1.age=20 local f2 = faction.create("noreply@eressea.de", "human", "de") f2.age=20 local u1 = unit.create(f1, r, 1) u1:add_item("money", 100) u1:set_skill("melee", 3) u1:add_item("sword", 1) u1:clear_orders() u1:add_order("BEWACHEN") local u2 = unit.create(f2, r, 1) u2:add_item("money", 100) u2:set_skill("mining", 3) u2:clear_orders() u2:add_order("MACHEN EISEN") process_orders() local iron = u2:get_item("iron") process_orders() assert_equal(iron, u2:get_item("iron")) end local function is_flag_set(flags, flag) return math.mod(flags, flag*2) - math.mod(flags, flag) == flag; end function test_hero_hero_transfer() local r = region.create(0,0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") f.age=20 local UFL_HERO = 128 local u1 = unit.create(f, r, 1) local u2 = unit.create(f, r, 1) u1:add_item("money", 10000) u1.flags = u1.flags + UFL_HERO u2.flags = u2.flags + UFL_HERO u1:clear_orders() u1:add_order("GIB " .. itoa36(u2.id) .. " 1 PERSONEN") u1:add_order("REKRUTIEREN 1") process_orders() assert_equal(1, u1.number) assert_equal(2, u2.number) assert_false(is_flag_set(u1.flags, 128), 128, "recruiting into an empty hero unit should not create a hero") assert_true(is_flag_set(u2.flags, 128), 128, "unit is not a hero?") end function test_hero_normal_transfer() local r = region.create(0,0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") f.age=20 local UFL_HERO = 128 local u1 = unit.create(f, r, 1) local u2 = unit.create(f, r, 1) u1:add_item("money", 10000) u1.flags = u1.flags + UFL_HERO u1:clear_orders() u1:add_order("GIB " .. itoa36(u2.id) .. " 1 PERSONEN") process_orders() assert_equal(1, u1.number) assert_equal(1, u2.number) assert_true(is_flag_set(u1.flags, 128), "unit is not a hero?") assert_false(is_flag_set(u2.flags, 128), "unit turned into a hero") end function test_expensive_skills_cost_money() local r = region.create(0,0, "mountain") local f = faction.create("noreply@eressea.de", "elf", "de") local u = unit.create(f, r, 1) u:add_item("money", 10000) u:clear_orders() u:add_order("LERNEN MAGIE Gwyrrd") process_orders() assert_equal(9900, u:get_item("money")) assert_equal(1, u:get_skill("magic")) end function test_food_is_consumed() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) u:add_item("money", 100) u:clear_orders() u:add_order("LERNEN Reiten") -- don't work settings.set("rules.economy.food", "4") process_orders() assert_equal(100, u:get_item("money")) end function test_food_can_override() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) u:add_item("money", 100) u:clear_orders() u:add_order("LERNEN Reiten") -- don't work settings.set("rules.economy.food", "0") process_orders() assert_equal(90, u:get_item("money")) end function test_swim_and_survive() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") f.nam = "chaos" local u = unit.create(f, r, 1) process_orders() r.terrain = "ocean" local s = _test_create_ship(r) u:clear_orders() u:add_order("BETRETE SCHIFF " .. itoa36(s.id)) process_orders() assert_equal(u.number, 1) end function test_swim_and_die() local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) local uid = u.id process_orders() r.terrain = "ocean" u = get_unit(uid) assert_not_equal(get_unit(uid), nil) process_orders() assert_equal(get_unit(uid), nil) end function test_ride_with_horse() region.create(1, 0, "plain") region.create(2, 0, "plain") local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) u:add_item("horse", 1) u:add_item("sword", 10) u:set_skill("riding", 2) u:clear_orders() u:add_order("NACH O O") process_orders() assert_equal(u.region.x, 2) u:add_item("sword", 1) u:clear_orders() u:add_order("NACH W W") process_orders() assert_equal(u.region.x, 1) end function test_ride_with_horses_and_cart() region.create(1, 0, "plain") region.create(2, 0, "plain") local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) u:add_item("cart", 1) u:add_item("horse", 2) u:add_item("sword", 120) u:set_skill("riding", 3) -- ride u:clear_orders() u:add_order("NACH O O") process_orders() assert_equal(2, u.region.x) -- walk u:add_item("sword", 20) r:get_key("eviL") u:clear_orders() u:add_order("NACH W W") process_orders() assert_equal(1, u.region.x) -- too heavy u:add_item("sword", 10) r:get_key("eviL") u:clear_orders() u:add_order("NACH W W") process_orders() assert_equal(1, u.region.x) end function test_walk_and_carry_the_cart() region.create(1, 0, "plain") local r = region.create(2, 0, "plain") local r = region.create(0, 0, "plain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 10) u:add_item("cart", 1) -- walk u:clear_orders() u:add_order("NACH O O") process_orders() assert_equal(1, u.region.x) end module("tests.report", package.seeall, lunit.testcase) function setup() free_game() settings.set("nmr.removenewbie", "0") settings.set("nmr.timeout", "0") settings.set("rules.economy.food", "4") end local function find_in_report(f, pattern, extension) extension = extension or "nr" local filename = config.basepath .. "/reports/" .. get_turn() .. "-" .. itoa36(f.id) .. "." .. extension local report = io.open(filename, 'rt'); t = report:read("*all") report:close() local start, _ = string.find(t, pattern) -- posix.unlink(filename) return start~=nil end function test_coordinates_no_plane() local r = region.create(0, 0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) init_reports() write_report(f) assert_true(find_in_report(f, r.name .. " %(0,0%), Berg")) end function test_coordinates_named_plane() local p = plane.create(0, -3, -3, 7, 7, "Hell") local r = region.create(0, 0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) init_reports() write_report(f) assert_true(find_in_report(f, r.name .. " %(0,0,Hell%), Berg")) end function test_coordinates_unnamed_plane() local p = plane.create(0, -3, -3, 7, 7) local r = region.create(0, 0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) init_reports() write_report(f) assert_true(find_in_report(f, r.name .. " %(0,0%), Berg")) end function test_coordinates_noname_plane() local p = plane.create(0, -3, -3, 7, 7, "") local r = region.create(0, 0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) init_reports() write_report(f) assert_true(find_in_report(f, r.name .. " %(0,0%), Berg")) end module("tests.parser", package.seeall, lunit.testcase) function setup() free_game() end function test_parser() local r = region.create(0, 0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) local filename = "1814.txt" local file = io.open(filename, "w+") file:write('ERESSEA ' .. itoa36(f.id) .. ' "' .. f.password .. '"\n') file:write('EINHEIT ' .. itoa36(u.id) .. "\n") file:write("LERNEN Hiebwaffen\n") file:close() read_orders(filename) process_orders() assert_not_equal(0, u:get_skill("melee")) end function test_bug_1814() -- see http://bugs.eressea.de/view.php?id=1814 local r = region.create(0, 0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) local filename = "1814.txt" local file = io.open(filename, "w+") file:write('ERESSEA ' .. itoa36(f.id) .. ' "' .. f.password .. '"\n') file:write('EINHEIT ' .. itoa36(u.id) .. "\n") file:write("; parse error follows: '\n") file:write("; ARBEITE\n") file:close() read_orders(filename) process_orders() init_reports() write_report(f) assert_false(find_in_report(f, "Der Befehl wurde nicht erkannt", "cr")) end function test_bug_1679() -- see http://bugs.eressea.de/view.php?id=1679 local r = region.create(0, 0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) local filename = "1814.txt" local file = io.open(filename, "w+") file:write('ERESSEA ' .. itoa36(f.id) .. ' "' .. f.password .. '"\n') file:write('EINHEIT ' .. itoa36(u.id) .. "\n") file:write("NACH W\n") file:write("ARBEITEN\n") file:close() read_orders(filename) process_orders() init_reports() write_report(f) assert_true(find_in_report(f, "Die Einheit kann keine weiteren langen Befehle", "cr")) assert_true(find_in_report(f, "entdeckt, dass es keinen Weg nach Westen gibt")) end function test_bson() local r = region.create(0, 0, "mountain") local f = faction.create("noreply@eressea.de", "human", "de") local u = unit.create(f, r, 1) assert_not_equal(nil, u) assert_not_equal(nil, r) assert_not_equal(nil, f) attrib.create(r, 1) assert_equal(attrib.get(r)().data, 1) attrib.create(u, 3) assert_equal(attrib.get(u)().data, 3) attrib.create(f, 5) assert_equal(attrib.get(f)().data, 5) end function test_bson_with_multiple_attribs() local r = region.create(0, 0, "mountain") attrib.create(r, { a=1}) attrib.create(r, { a=5}) local total = 0 for a in attrib.get(r) do total = total + a.data.a; end assert_equal(6, total) end