require "lunit" module("tests.xmas", package.seeall, lunit.testcase ) function setup() eressea.free_game() eressea.settings.set("nmr.timeout", "0") eressea.settings.set("rules.grow.formula", "0") eressea.settings.set("rules.peasants.growth.factor", "0") eressea.settings.set("volcano.active.percent", "0") eressea.settings.set("volcano.outbreak.percent", "0") eressea.settings.set("volcano.stop.percent", "0") end function test_snowglobe_fail() local r1 = region.create(0, 0, "glacier") local r2 = region.create(1, 0, "ocean") local f = faction.create("human", "snowglobe1@eressea.de", "de") local u = unit.create(f, r1, 1) u:add_item("snowglobe", 1) u:clear_orders() u:add_order("BENUTZEN 1 Schneekugel Ost") unit.create(f, r2, 1) -- unit in target region => fail process_orders() assert_equal('ocean', r2.terrain) assert_equal(1, u:get_item('snowglobe')) assert_equal(1, f:count_msg_type('target_region_not_empty')) end function test_snowglobe_missing_direction() local r1 = region.create(0, 0, "glacier") local r2 = region.create(1, 0, "ocean") local f = faction.create("human", "snowglobe1@eressea.de", "de") local u = unit.create(f, r1, 1) u:add_item("snowglobe", 1) u:clear_orders() u:add_order("BENUTZEN 1 Schneekugel") process_orders() assert_equal('ocean', r2.terrain) assert_equal(1, u:get_item('snowglobe')) assert_equal(1, f:count_msg_type('missing_direction')) end function test_snowglobe() local r1 = region.create(0, 0, "glacier") local r2 = region.create(1, 0, "ocean") local f = faction.create("human", "snowglobe2@eressea.de", "de") local u = unit.create(f, r1, 1) local fail = 0 u:add_item("snowglobe", have) local xform = { ocean = "glacier", glacier = "glacier", firewall = "volcano", desert = "plain", volcano = "mountain", plain = "plain" } for k, v in pairs(xform) do r2.terrain = k use_snowglobe(u, 1, "Ost", nil) assert_equal(v, r2.terrain) if k==v then fail = fail + 1 assert_equal(fail, f:count_msg_type('target_region_invalid')) end end end local function use_tree(terrain) local r = region.create(0, 0, terrain) local f = faction.create("human", "noreply@eressea.de", "de") local u1 = unit.create(f, r, 5) r:set_resource("tree", 0) u1:add_item("xmastree", 1) u1:clear_orders() u1:add_order("BENUTZEN 1 Weihnachtsbaum") process_orders() return r end function test_xmastree() local r r = use_tree("ocean") assert_nil(r:get_key("xm06")) assert_equal(0, r:get_resource("tree")) eressea.free_game() r = use_tree("plain") assert_equal(get_turn(), r:get_key("xm06")) assert_equal(10, r:get_resource("tree")) end function test_stardust() -- fix random peasant changes: eressea.settings.set("rules.economy.repopulate_maximum", 0) local r = region.create(0, 0, "plain") r:set_resource("peasant", 10) local f = faction.create("human", "noreply@eressea.de", "de") local u = unit.create(f, r, 5) u:add_item("stardust", 1) u:clear_orders() u:add_order("BENUTZEN 1 Sternenstaub") process_orders() assert_equal(15, r:get_resource("peasant")) assert_equal(0, u:get_item('stardust')) end