forked from github/server
1185 lines
32 KiB
Lua
1185 lines
32 KiB
Lua
require "lunit"
|
|
|
|
local function _test_create_ship(r)
|
|
local s = ship.create(r, config.ships[1])
|
|
return s
|
|
end
|
|
|
|
local function create_faction(race)
|
|
return faction.create(race, race .. '@eressea.de', "de")
|
|
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 = create_faction('human')
|
|
local f2 = create_faction('elf')
|
|
return f1, f2
|
|
end
|
|
|
|
module("tests.common", package.seeall, lunit.testcase)
|
|
|
|
function setup()
|
|
eressea.free_game()
|
|
eressea.settings.set("nmr.timeout", "0")
|
|
eressea.settings.set("NewbieImmunity", "0")
|
|
eressea.settings.set("rules.food.flags", "4")
|
|
eressea.settings.set("rules.peasants.growth", "1")
|
|
eressea.settings.set("study.random_progress", "0")
|
|
end
|
|
|
|
function test_locales()
|
|
assert_equal(2, eressea.locale.direction("de", "Ost"))
|
|
assert_equal(5, eressea.locale.direction("de", "westen"))
|
|
assert_equal(4, eressea.locale.direction("de", "sw"))
|
|
assert_equal(-1, eressea.locale.direction("de", "foo"))
|
|
assert_equal(-1, eressea.locale.direction("foo", "sw"))
|
|
end
|
|
|
|
function test_flags()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('halfling')
|
|
local u = unit.create(f, r, 1)
|
|
local no = itoa36(f.id)
|
|
local flags = 50332672
|
|
f.flags = flags
|
|
|
|
eressea.write_game("test.dat")
|
|
eressea.free_game()
|
|
eressea.read_game("test.dat")
|
|
os.remove('data/test.dat')
|
|
f = get_faction(no)
|
|
assert_equal(flags, f.flags)
|
|
end
|
|
|
|
function test_elvenhorse_requires_riding_5()
|
|
local r = region.create(0, 0, "plain")
|
|
region.create(1, 0, "plain")
|
|
local goal = region.create(2, 0, "plain")
|
|
local f = create_faction('halfling')
|
|
local u = unit.create(f, r, 1)
|
|
u:add_item("elvenhorse", 1)
|
|
u:set_skill("riding", 6)-- halfling has -1 modifier
|
|
u:clear_orders()
|
|
u:add_order("NACH O O")
|
|
process_orders()
|
|
assert_equal(goal, u.region)
|
|
end
|
|
|
|
function test_cannot_ride_elvenhorse_without_enough_skill()
|
|
local r = region.create(0, 0, "plain")
|
|
local goal = region.create(1, 0, "plain")
|
|
region.create(2, 0, "plain")
|
|
local f = create_faction('halfling')
|
|
local u = unit.create(f, r, 1)
|
|
u:add_item("elvenhorse", 1)
|
|
u:set_skill("riding", 5) -- halfling has -1 modifier
|
|
u:clear_orders()
|
|
u:add_order("NACH O O")
|
|
process_orders()
|
|
assert_equal(goal, u.region)
|
|
end
|
|
|
|
function test_no_peasant_growth()
|
|
local r = region.create(0, 0, "plain")
|
|
r:set_resource("peasant", 2000)
|
|
eressea.settings.set("rules.peasants.growth", "0")
|
|
process_orders()
|
|
assert_equal(r:get_resource("peasant"), 2000)
|
|
end
|
|
|
|
function test_demon_food()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('demon')
|
|
local u = unit.create(f, r, 1)
|
|
local p = r:get_resource("peasant")
|
|
r:set_resource("peasant", 2000)
|
|
eressea.settings.set("rules.food.flags", "0")
|
|
eressea.settings.set("rules.peasants.growth", "0")
|
|
process_orders()
|
|
assert_not_nil(u)
|
|
assert_equal(1, u.number)
|
|
assert_equal(1999, r:get_resource("peasant"))
|
|
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.name = 'Passagier'
|
|
u2:add_order("FAHREN " .. itoa36(u3.id))
|
|
u2:add_order("KAEMPFE FLIEHE")
|
|
u3.number = 100
|
|
u3.name = 'Transporter'
|
|
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, r1, "transporter did not move")
|
|
assert_equal(u2.region, r1, "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 = create_faction('human')
|
|
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_nil(r)
|
|
assert_equal(r, get_region(0, 0))
|
|
end
|
|
|
|
function test_read_write()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
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 = eressea.write_game("test.dat")
|
|
assert_equal(result, 0)
|
|
assert_not_nil(get_region(0, 0))
|
|
assert_not_nil(get_faction(fno))
|
|
assert_not_nil(get_unit(uno))
|
|
r = nil
|
|
f = nil
|
|
u = nil
|
|
eressea.free_game()
|
|
assert_nil(get_region(0, 0))
|
|
assert_nil(get_faction(fno))
|
|
assert_nil(get_unit(uno))
|
|
result = eressea.read_game("test.dat")
|
|
assert_equal(0, result)
|
|
assert_not_nil(get_region(0, 0))
|
|
assert_not_nil(get_faction(fno))
|
|
assert_not_nil(get_unit(uno))
|
|
end
|
|
|
|
function test_descriptions()
|
|
local info = "Descriptions can be very long. Bug 1984 behauptet, dass es Probleme gibt mit Beschreibungen die laenger als 120 Zeichen sind. This description is longer than 120 characters."
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
local s = _test_create_ship(r)
|
|
local b = building.create(r, "castle")
|
|
local uno = u.id
|
|
local fno = f.id
|
|
local sno = s.id
|
|
local bno = b.id
|
|
u.info = info
|
|
r.info = info
|
|
f.info = info
|
|
s.info = info
|
|
b.info = info
|
|
|
|
filename = "test.dat"
|
|
eressea.write_game(filename)
|
|
eressea.free_game()
|
|
eressea.read_game(filename)
|
|
os.remove("data/test.dat")
|
|
assert_equal(info, get_ship(sno).info)
|
|
assert_equal(info, get_unit(uno).info)
|
|
assert_equal(info, get_faction(fno).info)
|
|
assert_equal(info, get_building(bno).info)
|
|
assert_equal(info, get_region(0, 0).info)
|
|
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")
|
|
if not gmtool then
|
|
return
|
|
end
|
|
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_nil(gmtool.get_cursor())
|
|
|
|
gmtool.close()
|
|
end
|
|
|
|
function test_faction()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
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 = create_faction('human')
|
|
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 = create_faction('human')
|
|
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 = create_faction('human')
|
|
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_renumber_ship()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
local u = unit.create(f, r)
|
|
local s = ship.create(r, config.ships[1])
|
|
u.ship = s
|
|
u:add_order("NUMMER SCHIFF 1")
|
|
process_orders()
|
|
assert_equal(1, s.id)
|
|
u:clear_orders()
|
|
u:add_order("NUMMER SCHIFF 2")
|
|
process_orders()
|
|
assert_equal(2, s.id)
|
|
end
|
|
|
|
function test_recruit2()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
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 = create_faction('human')
|
|
f1.age = 20
|
|
local u1 = unit.create(f1, r, 10)
|
|
u1:add_item("sword", 10)
|
|
u1:add_item("money", 10)
|
|
u1:set_skill("melee", 10)
|
|
u1:clear_orders()
|
|
u1:add_order("NACH O")
|
|
u1.name="Kalle Pimp"
|
|
|
|
local f2 = create_faction('human')
|
|
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, u1.region, "unit may not move after combat")
|
|
end
|
|
|
|
function test_recruit()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
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_equal(n+1, u.number)
|
|
local p = r:get_resource("peasant")
|
|
assert_true(p<200 and p>=200-n)
|
|
end
|
|
|
|
function test_produce()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
u:clear_orders()
|
|
local sword = config.get_resource('sword')
|
|
u:set_skill(sword.build_skill_name, 3)
|
|
u:add_item("iron", 10)
|
|
u:add_item("money", u.number * 10)
|
|
u:add_order("MACHE Schwert")
|
|
process_orders()
|
|
assert_equal(10-3/sword.build_skill_min*sword.materials['iron'], u:get_item("iron"))
|
|
assert_equal(3/sword.build_skill_min, u:get_item("sword"))
|
|
end
|
|
|
|
function test_work()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
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_equal(20, u:get_item("money"))
|
|
end
|
|
|
|
function test_upkeep()
|
|
eressea.settings.set("rules.food.flags", "0")
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
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_equal(u:get_item("money"), u.number)
|
|
end
|
|
|
|
function test_id()
|
|
local r = region.create(0, 0, "plain")
|
|
|
|
local f = create_faction('human')
|
|
f.id = atoi36("42")
|
|
assert_not_equal(f, get_faction(42))
|
|
assert_equal(f, get_faction("42"))
|
|
assert_equal(f, get_faction(atoi36("42")))
|
|
|
|
local u = unit.create(f, r, 1)
|
|
u.id = atoi36("42")
|
|
assert_not_equal(get_unit(42), u)
|
|
assert_equal(get_unit("42"), u)
|
|
assert_equal(get_unit(atoi36("42")), u)
|
|
|
|
local b = building.create(r, "castle")
|
|
-- <not working> b.id = atoi36("42")
|
|
local fortytwo = itoa36(b.id)
|
|
assert_equal(get_building(fortytwo), b)
|
|
assert_equal(get_building(atoi36(fortytwo)), b)
|
|
|
|
local s = _test_create_ship(r)
|
|
assert_not_nil(s)
|
|
-- <not working> s.id = atoi36("42")
|
|
local fortytwo = itoa36(s.id)
|
|
assert_equal(get_ship(fortytwo), s)
|
|
assert_equal(get_ship(atoi36(fortytwo)), s)
|
|
end
|
|
|
|
function test_mallorn()
|
|
local r = region.create(0, 0, "plain")
|
|
r:set_flag(1, false) -- not mallorn
|
|
r:set_resource("tree", 100)
|
|
assert_equal(100, r:get_resource("tree"))
|
|
local m = region.create(0, 0, "plain")
|
|
m:set_flag(1, true) -- mallorn
|
|
m:set_resource("tree", 100)
|
|
assert_equal(100, m:get_resource("tree"))
|
|
|
|
local f = create_faction('human')
|
|
|
|
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_equal(2, u1:get_item("log"))
|
|
assert_equal(2, u2:get_item("log"))
|
|
local mallorn_cfg = config.get_resource("mallorn")
|
|
if mallorn_cfg then
|
|
assert_equal(1, u3:get_item("mallorn"))
|
|
else
|
|
assert_equal(-1, u3:get_item("mallorn"))
|
|
assert_equal(0, u3:get_item("log"))
|
|
end
|
|
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 = create_faction('human')
|
|
assert_not_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_building_other()
|
|
local r = region.create(0,0, "plain")
|
|
local f1 = create_faction('human')
|
|
local f2 = create_faction('human')
|
|
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
|
|
|
|
-- segfault above
|
|
|
|
function test_config()
|
|
assert_not_nil(config.basepath)
|
|
assert_not_nil(config.locales)
|
|
end
|
|
|
|
local function _test_create_laen()
|
|
eressea.settings.set("rules.terraform.all", "1")
|
|
local r = region.create(0,0, "mountain")
|
|
local f1 = create_faction('human')
|
|
local u1 = unit.create(f1, r, 1)
|
|
r:set_resource("laen", 50)
|
|
return r, u1
|
|
end
|
|
|
|
function test_laen1()
|
|
local r, u1 = _test_create_laen()
|
|
|
|
u1:add_item("money", 1000)
|
|
u1:set_skill("mining", 14)
|
|
u1:clear_orders()
|
|
u1:add_order("MACHEN Laen")
|
|
|
|
process_orders()
|
|
assert_equal(0, u1:get_item("laen"))
|
|
end
|
|
|
|
function test_laen2()
|
|
local r, u1 = _test_create_laen()
|
|
|
|
u1:add_item("money", 1000)
|
|
u1:set_skill("mining", 15)
|
|
u1:clear_orders()
|
|
u1:add_order("MACHEN Laen")
|
|
u1.name = "Laenmeister"
|
|
|
|
local b = building.create(r, "mine")
|
|
b.size = 10
|
|
u1.building = b
|
|
local laen = r:get_resource("laen")
|
|
|
|
process_orders()
|
|
assert_equal(laen - 2, r:get_resource("laen"))
|
|
assert_equal(2, u1:get_item("laen"))
|
|
end
|
|
|
|
function test_mine()
|
|
local r = region.create(0,0, "mountain")
|
|
local f1 = create_faction('human')
|
|
local u1 = unit.create(f1, r, 1)
|
|
|
|
u1:add_item("money", 1000)
|
|
u1:set_skill("mining", 1)
|
|
u1:clear_orders()
|
|
u1:add_order("MACHEN Eisen")
|
|
|
|
local b = building.create(r, "mine")
|
|
b.size = 10
|
|
u1.building = b
|
|
local iron = r:get_resource("iron")
|
|
|
|
process_orders()
|
|
assert_equal(2, u1:get_item("iron")) -- skill +1
|
|
assert_equal(iron - 1, r:get_resource("iron")) -- only 1/2 is taken away
|
|
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 = create_faction('human')
|
|
f1.age=20
|
|
local f2 = create_faction('human')
|
|
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")
|
|
assert_true(iron > 0)
|
|
process_orders()
|
|
assert_equal(iron, u2:get_item("iron"))
|
|
end
|
|
|
|
local function is_flag_set(flags, flag)
|
|
return math.fmod(flags, flag*2) - math.fmod(flags, flag) == flag;
|
|
end
|
|
|
|
function test_hero_hero_transfer()
|
|
local r = region.create(0,0, "mountain")
|
|
local f = create_faction('human')
|
|
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(2, u2.number)
|
|
assert_true(is_flag_set(u2.flags, 128), 128, "unit is not a hero?")
|
|
assert_equal(1, u1.number)
|
|
assert_false(is_flag_set(u1.flags, 128), 128, "recruiting into an empty hero unit should not create a hero")
|
|
end
|
|
|
|
function test_hero_normal_transfer()
|
|
local r = region.create(0,0, "mountain")
|
|
local f = create_faction('human')
|
|
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 = create_faction('elf')
|
|
local u = unit.create(f, r, 1)
|
|
u:add_item("money", 10000)
|
|
u:clear_orders()
|
|
u:add_order("LERNEN MAGIE Gwyrrd")
|
|
assert_equal(0, u:get_skill("magic"))
|
|
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 = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
u:add_item("money", 100)
|
|
u:clear_orders()
|
|
u:add_order("LERNEN Reiten") -- don't work
|
|
eressea.settings.set("rules.food.flags", "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 = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
u:add_item("money", 100)
|
|
u:clear_orders()
|
|
u:add_order("LERNEN Reiten") -- don't work
|
|
eressea.settings.set("rules.food.flags", "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 = create_faction('human')
|
|
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 = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
local uid = u.id
|
|
process_orders()
|
|
r.terrain = "ocean"
|
|
u = get_unit(uid)
|
|
assert_not_nil(get_unit(uid))
|
|
process_orders()
|
|
assert_nil(get_unit(uid))
|
|
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 = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
u:add_item("horse", 1)
|
|
local horse_cfg = config.get_resource("horse")
|
|
u:add_item("sword", (horse_cfg.capacity - u.weight)/100)
|
|
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 = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
local horse_cfg = config.get_resource("horse")
|
|
local cart_cfg = config.get_resource("cart")
|
|
local sword_cfg = config.get_resource("sword")
|
|
|
|
u:set_skill("riding", 3)
|
|
|
|
local capacity = (horse_cfg.capacity-horse_cfg.weight)*2 - u.weight
|
|
if cart_cfg~=nil then
|
|
capacity = capacity + cart_cfg.capacity-cart_cfg.weight
|
|
end
|
|
u:add_item("sword", capacity / sword_cfg.weight)
|
|
|
|
u:add_item("horse", 1)
|
|
if cart_cfg~=nil then
|
|
-- we need 2 horses for a cart, so this should fail:
|
|
u:add_item("cart", 1)
|
|
u:clear_orders()
|
|
u:add_order("NACH O O")
|
|
process_orders()
|
|
assert_equal(0, u.region.x)
|
|
end
|
|
|
|
-- here is your second horse, milord:
|
|
u:add_item("horse", 1)
|
|
assert_equal(2, u:get_item("horse"))
|
|
|
|
-- ride
|
|
u:clear_orders()
|
|
u:add_order("NACH O O")
|
|
process_orders()
|
|
assert_equal(2, u.region.x)
|
|
|
|
-- walk
|
|
u:add_item("sword", 1000/sword_cfg.weight)
|
|
u:clear_orders()
|
|
u:add_order("NACH W W")
|
|
process_orders()
|
|
assert_equal(1, u.region.x)
|
|
|
|
-- make this fellow too heavy
|
|
u:add_item("sword", 1000/sword_cfg.weight)
|
|
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 = create_faction('human')
|
|
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.recruit", package.seeall, lunit.testcase)
|
|
|
|
function setup()
|
|
eressea.free_game()
|
|
eressea.settings.set("rules.food.flags", "4")
|
|
eressea.settings.set("rules.peasants.growth", "0")
|
|
end
|
|
|
|
function test_bug_1795_limit()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
local u1 = one_unit(r,f)
|
|
u1:add_item("money", 100000000)
|
|
u1:add_order("REKRUTIEREN 9999")
|
|
r:set_resource("peasant", 2000) -- no fractional growth!
|
|
local peasants = r:get_resource("peasant")
|
|
local limit,frac = math.modf(peasants/40) -- one day this should be a parameter
|
|
|
|
process_orders()
|
|
assert_equal(limit+1, u1.number, u1.number .. "!=" .. (limit+1))
|
|
assert_equal(peasants-limit, r:get_resource("peasant"))
|
|
end
|
|
|
|
function test_bug_1795_demons()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('demon')
|
|
local u1 = one_unit(r,f)
|
|
r:set_resource("peasant", 2000)
|
|
local peasants = r:get_resource("peasant")
|
|
local limit,frac = math.modf(peasants/40)
|
|
|
|
u1:add_item("money", 100000000)
|
|
u1:add_order("REKRUTIEREN 9999")
|
|
|
|
process_orders()
|
|
|
|
assert_equal(limit+1, u1.number, u1.number .. "!=" .. (limit+1))
|
|
assert_equal(peasants, r:get_resource("peasant"))
|
|
end
|
|
|
|
module("tests.parser", package.seeall, lunit.testcase)
|
|
|
|
function setup()
|
|
eressea.free_game()
|
|
eressea.settings.set("rules.food.flags", "4") -- FOOD_IS_FREE
|
|
eressea.settings.set("rules.move.owner_leave", "0")
|
|
end
|
|
|
|
function test_parser()
|
|
local r = region.create(0, 0, "mountain")
|
|
local f = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
local filename = "orders.txt"
|
|
|
|
local file = io.open(filename, "w")
|
|
assert_not_nil(file)
|
|
f.password = 'Hodor'
|
|
file:write('ERESSEA ' .. itoa36(f.id) .. ' "Hodor"\n')
|
|
file:write('EINHEIT ' .. itoa36(u.id) .. "\n")
|
|
file:write("BENENNEN EINHEIT 'Goldene Herde'\n")
|
|
file:close()
|
|
|
|
eressea.read_orders(filename)
|
|
process_orders()
|
|
os.remove(filename)
|
|
assert_equal("Goldene Herde", u.name)
|
|
end
|
|
|
|
local function set_order(u, str)
|
|
u:clear_orders()
|
|
u:add_order(str)
|
|
end
|
|
|
|
function test_prefix()
|
|
local r0 = region.create(0, 0, "plain")
|
|
local f1 = create_faction('human')
|
|
local u1 = unit.create(f1, r0, 1)
|
|
|
|
set_order(u1, "PRAEFIX See")
|
|
process_orders()
|
|
assert_not_nil(u1:show():find("Seemensch"))
|
|
|
|
u1.race = "elf"
|
|
assert_not_nil(u1:show():find("Seeelf"))
|
|
|
|
set_order(u1, "PRAEFIX Mond")
|
|
process_orders()
|
|
assert_not_nil(u1:show():find("Mondelf"))
|
|
|
|
set_order(u1, "PRAEFIX")
|
|
process_orders()
|
|
assert_not_nil(u1:show():find("Elf"))
|
|
|
|
set_order(u1, "PRAEFIX Erz")
|
|
process_orders()
|
|
assert_not_nil(u1:show():find("Erzelf"))
|
|
u1.faction.locale = "en"
|
|
assert_not_nil(u1:show():find("archelf"))
|
|
end
|
|
|
|
function test_recruit()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
|
|
u:add_item("money", 1000)
|
|
set_order(u, "REKRUTIERE 5")
|
|
process_orders()
|
|
for u in f.units do
|
|
assert_equal(6, u.number)
|
|
end
|
|
end
|
|
|
|
function test_give_horses()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = faction.create("human", "noreply@eressea.de", "de")
|
|
local u = unit.create(f, r, 1)
|
|
|
|
r:set_resource("horse", 0)
|
|
u:add_item("horse", 21)
|
|
u:add_item("dolphin", 10)
|
|
u:add_order("GIB 0 7 PFERD")
|
|
u:add_order("GIB 0 5 DELPHIN")
|
|
process_orders()
|
|
assert_equal(7, r:get_resource("horse"))
|
|
assert_equal(5, u:get_item("dolphin"))
|
|
assert_equal(14, u:get_item("horse"))
|
|
end
|
|
|
|
function test_give_silver()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = faction.create("human", "noreply@eressea.de", "de")
|
|
local u = unit.create(f, r, 1)
|
|
|
|
r:set_resource("peasant", 0)
|
|
r:set_resource("money", 11)
|
|
u:clear_orders()
|
|
u:add_item("money", 20)
|
|
u:add_order("GIB 0 10 SILBER")
|
|
process_orders()
|
|
assert_equal(21, r:get_resource("money"))
|
|
assert_equal(10, u:get_item("money"))
|
|
end
|
|
|
|
function test_give_horses()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
|
|
r:set_resource("horse", 0)
|
|
u:add_item("horse", 21)
|
|
u:add_item("dolphin", 10)
|
|
u:add_order("GIB 0 7 PFERD")
|
|
u:add_order("GIB 0 5 DELPHIN")
|
|
process_orders()
|
|
assert_equal(7, r:get_resource("horse"))
|
|
assert_equal(5, u:get_item("dolphin"))
|
|
assert_equal(14, u:get_item("horse"))
|
|
end
|
|
|
|
function test_give_silver()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
|
|
r:set_resource("peasant", 0)
|
|
r:set_resource("money", 11)
|
|
u:clear_orders()
|
|
u:add_item("money", 20)
|
|
u:add_order("GIB 0 10 SILBER")
|
|
process_orders()
|
|
assert_equal(21, r:get_resource("money"))
|
|
assert_equal(10, u:get_item("money"))
|
|
end
|
|
|
|
function test_build_castle_one_stage()
|
|
local r = region.create(0, 0, 'plain')
|
|
local f = faction.create('human')
|
|
local u = unit.create(f, r, 2)
|
|
|
|
u:add_item('stone', 4)
|
|
|
|
u:set_skill('building', 1)
|
|
u:add_order('MACHE BURG')
|
|
|
|
process_orders()
|
|
assert_equal(2, u.building.size)
|
|
assert_equal(2, u:get_item('stone'))
|
|
end
|
|
|
|
function test_build_castle()
|
|
local r = region.create(0, 0, "plain")
|
|
local f = create_faction('human')
|
|
local u = unit.create(f, r, 1)
|
|
|
|
u:add_item('stone', 1)
|
|
u:set_skill('building', 1)
|
|
u:add_order("MACHE BURG")
|
|
process_orders()
|
|
assert_not_nil(u.building)
|
|
assert_equal(1, u.building.size)
|
|
assert_equal(u.building.name, "Burg")
|
|
end
|
|
|
|
function test_route()
|
|
local r1 = region.create(0, 0, "plain")
|
|
local r2 = region.create(1, 0, "plain")
|
|
local f = faction.create("human", "route@example.com")
|
|
local u = unit.create(f, r1, 1)
|
|
u:add_order("ROUTE O W P")
|
|
process_orders()
|
|
assert_equal("ROUTE West PAUSE Ost", u:get_order(0))
|
|
assert_equal(r2, u.region)
|
|
end
|
|
|
|
function test_route_horse()
|
|
local r1 = region.create(0, 0, "plain")
|
|
local r2 = region.create(1, 0, "plain")
|
|
local f = faction.create("human", "route@example.com")
|
|
local u = unit.create(f, r1, 1)
|
|
u:add_order("ROUTE O P W P")
|
|
u:add_item('horse', 1)
|
|
u:set_skill('riding', 1)
|
|
process_orders()
|
|
assert_equal("ROUTE West PAUSE Ost PAUSE", u:get_order(0))
|
|
assert_equal(r2, u.region)
|
|
end
|
|
|
|
function test_route_pause()
|
|
local r1 = region.create(0, 0, "plain")
|
|
local r2 = region.create(1, 0, "plain")
|
|
local f = faction.create("human", "route@example.com")
|
|
local u = unit.create(f, r1, 1)
|
|
u:add_order("ROUTE P O W")
|
|
process_orders()
|
|
assert_equal("ROUTE P O W", u:get_order(0))
|
|
assert_equal(r1, u.region)
|
|
end
|
|
|
|
function test_bug_2393_cart()
|
|
local r1 = region.create(0, 0, "plain")
|
|
local r2 = region.create(1, 0, "plain")
|
|
local f = faction.create("human", "cart@example.com")
|
|
local u = unit.create(f, r1, 2)
|
|
u:add_order("NACH O")
|
|
u:add_item('stone', 2)
|
|
u:add_item('horse', 2)
|
|
u:add_item('cart', 1)
|
|
process_orders()
|
|
assert_equal(r1, u.region)
|
|
end
|
|
|
|
function test_immunity_stops_guard()
|
|
eressea.settings.set("NewbieImmunity", 2)
|
|
local f = faction.create('human')
|
|
local r = region.create(0, 0, 'plain')
|
|
local u = unit.create(f, r)
|
|
u:set_skill('polearm', 2)
|
|
u:add_item('lance', 1)
|
|
u:add_order('BEWACHE')
|
|
process_orders()
|
|
assert_equal(f.age, 1)
|
|
assert_true(not u.guard)
|
|
process_orders()
|
|
assert_equal(f.age, 2)
|
|
assert_true(u.guard)
|
|
end
|
|
|
|
function test_region_keys()
|
|
local r = region.create(0, 0, 'plain')
|
|
assert_nil(r:get_key('test'))
|
|
assert_nil(r:get_key('more'))
|
|
r:set_key('test', 42)
|
|
r:set_key('more') -- default is 1
|
|
assert_equal(42, r:get_key('test'))
|
|
assert_equal(1, r:get_key('more'))
|
|
end
|
|
|
|
function test_faction_keys()
|
|
local f = faction.create('human')
|
|
assert_nil(f:get_key('test'))
|
|
assert_nil(f:get_key('more'))
|
|
f:set_key('test', 42)
|
|
f:set_key('more') -- default is 1
|
|
assert_equal(42, f:get_key('test'))
|
|
assert_equal(1, f:get_key('more'))
|
|
end
|
|
|
|
function test_cartmaking()
|
|
local f = faction.create('human')
|
|
local r = region.create(0, 0, 'plain')
|
|
local u = unit.create(f, r)
|
|
u:set_skill('cartmaking', 1)
|
|
u:add_item('log', 10)
|
|
u:add_order('MACHE Wagen')
|
|
process_orders()
|
|
assert_equal(1, u:get_item('cart'))
|
|
assert_equal(5, u:get_item('log'))
|
|
end
|