forked from github/server
d503937999
new tests in progress. remove giveitem.c attribute, the name clashed with a trigger, and it was only part of an arena that is gone from the game, I think.
124 lines
3.7 KiB
Lua
124 lines
3.7 KiB
Lua
require "lunit"
|
|
|
|
module("tests.rules", package.seeall, lunit.testcase)
|
|
|
|
function setup()
|
|
eressea.free_game()
|
|
eressea.settings.set("nmr.removenewbie", "0")
|
|
eressea.settings.set("nmr.timeout", "0")
|
|
eressea.settings.set("NewbieImmunity", "0")
|
|
eressea.config.parse('{ "races": { "human" : {}}}')
|
|
end
|
|
|
|
function test_landing1()
|
|
local ocean = region.create(1, 0, "ocean")
|
|
local r = region.create(0, 0, "plain")
|
|
local f = faction.create("noreply@eressea.de", "insects", "de")
|
|
local f2 = faction.create("noreply@eressea.de", "human", "de")
|
|
local s = ship.create(ocean, "longboat")
|
|
local u1 = unit.create(f, ocean, 1)
|
|
local u2 = unit.create(f2, r, 1)
|
|
assert_not_nil(u2)
|
|
u1:add_item("money", 1000)
|
|
u2:add_item("money", 1000)
|
|
|
|
u1.ship = s
|
|
u1:set_skill("sailing", 10)
|
|
u1:clear_orders()
|
|
u1:add_order("NACH w")
|
|
process_orders()
|
|
|
|
assert_equal(r.id, u1.region.id) -- the plain case: okay
|
|
end
|
|
|
|
function test_landing_harbour()
|
|
local ocean = region.create(1, 0, "ocean")
|
|
local r = region.create(0, 0, "glacier")
|
|
local harbour = building.create(r, "harbour")
|
|
harbour.size = 25
|
|
local f = faction.create("noreply@eressea.de", "human", "de")
|
|
local f2 = faction.create("noreply@eressea.de", "human", "de")
|
|
local s = ship.create(ocean, "longboat")
|
|
local u1 = unit.create(f, ocean, 1)
|
|
local u2 = unit.create(f2, r, 1)
|
|
assert_not_nil(u2)
|
|
u1:add_item("money", 1000)
|
|
u2:add_item("money", 1000)
|
|
u2.building = harbour
|
|
|
|
u1.ship = s
|
|
u1:set_skill("sailing", 10)
|
|
u1:clear_orders()
|
|
u1:add_order("NACH w")
|
|
process_orders()
|
|
|
|
assert_equal(r.id, u1.region.id) -- glacier with harbour -- okay
|
|
end
|
|
|
|
function test_landing_harbour_unpaid()
|
|
local ocean = region.create(1, 0, "ocean")
|
|
local r = region.create(0, 0, "glacier")
|
|
local harbour = building.create(r, "harbour")
|
|
harbour.size = 25
|
|
local f = faction.create("noreply@eressea.de", "human", "de")
|
|
local f2 = faction.create("noreply@eressea.de", "human", "de")
|
|
local s = ship.create(ocean, "longboat")
|
|
local u1 = unit.create(f, ocean, 1)
|
|
local u2 = unit.create(f2, r, 1)
|
|
assert_not_nil(u2)
|
|
u1:add_item("money", 1000)
|
|
u2:add_item("money", 1000)
|
|
|
|
u1.ship = s
|
|
u1:set_skill("sailing", 10)
|
|
u1:clear_orders()
|
|
u1:add_order("NACH w")
|
|
process_orders()
|
|
|
|
assert_equal(ocean.id, u1.region.id) -- did not pay
|
|
end
|
|
|
|
function test_landing_terrain()
|
|
local ocean = region.create(1, 0, "ocean")
|
|
local r = region.create(0, 0, "glacier")
|
|
local f = faction.create("noreply@eressea.de", "human", "de")
|
|
local f2 = faction.create("noreply@eressea.de", "human", "de")
|
|
local s = ship.create(ocean, "longboat")
|
|
local u1 = unit.create(f, ocean, 1)
|
|
local u2 = unit.create(f2, r, 1)
|
|
assert_not_nil(u2)
|
|
u1:add_item("money", 1000)
|
|
u2:add_item("money", 1000)
|
|
|
|
u1.ship = s
|
|
u1:set_skill("sailing", 10)
|
|
u1:clear_orders()
|
|
u1:add_order("NACH w")
|
|
process_orders()
|
|
|
|
assert_equal(ocean.id, u1.region.id) -- cannot land in glacier without harbour
|
|
end
|
|
|
|
function test_landing_insects()
|
|
local ocean = region.create(1, 0, "ocean")
|
|
local r = region.create(0, 0, "glacier")
|
|
local harbour = building.create(r, "harbour")
|
|
harbour.size = 25
|
|
local f = faction.create("noreply@eressea.de", "insects", "de")
|
|
local f2 = faction.create("noreply@eressea.de", "human", "de")
|
|
local s = ship.create(ocean, "longboat")
|
|
local u1 = unit.create(f, ocean, 1)
|
|
local u2 = unit.create(f2, r, 1)
|
|
assert_not_nil(u2)
|
|
u1:add_item("money", 1000)
|
|
u2:add_item("money", 1000)
|
|
u2.building = harbour
|
|
|
|
u1.ship = s
|
|
u1:set_skill("sailing", 10)
|
|
u1:clear_orders()
|
|
u1:add_order("NACH w")
|
|
process_orders()
|
|
|
|
assert_equal(ocean.id, u1.region.id) -- insects cannot land in glaciers
|
|
end
|