require "lunit" module("tests.e2.production", package.seeall, lunit.testcase ) function setup() eressea.game.reset() eressea.settings.set("rules.food.flags", "4") -- food is free eressea.settings.set("NewbieImmunity", "0") end local function create_faction(race) return faction.create(race, race .. '@example.com', "de") end function test_produce_multi() local r = region.create(0, 0, 'mountain') local f = create_faction('human') local u = unit.create(f, r, 1) -- sword needs skill=3, iron=1 u:set_skill('weaponsmithing', 15) u:add_item('iron', 5) turn_begin() u:add_order("MACHE 6 Schwert") turn_process() assert_equal(5, u:get_item('sword')) assert_equal(0, u:get_item('iron')) end function test_greatbow_needs_elf() -- only elves can build a greatbow local r = region.create(0, 0, 'mountain') local f = create_faction('human') local u = unit.create(f, r, 1) turn_begin() u:set_skill('weaponsmithing', 5) u:add_item('mallorn', 2) u:add_order("MACHE Elfenbogen") turn_process() -- humans cannot do it assert_equal(1, f:count_msg_type("error117")) assert_equal(0, u:get_item('greatbow')) assert_equal(2, u:get_item('mallorn')) u.race = 'elf' turn_process() -- but elves can assert_equal(1, u:get_item('greatbow')) assert_equal(0, u:get_item('mallorn')) end function test_troll_quarrying_bonus() -- Von Trollen abgebaute Steine werden nur zu 75% vom "Regionsvorrat" abgezogen. -- Dieser Effekt ist kumulativ zu einem Steinbruch. local r = region.create(0, 0, 'mountain') local f = create_faction('human') local u = unit.create(f, r, 1) turn_begin() r:set_resource("stone", 100) u:set_skill('quarrying', 4) u:add_order("MACHE Steine") turn_process() -- humans get no bonus assert_equal(4, u:get_item('stone')) assert_equal(96, r:get_resource('stone')) u.race = 'troll' u:set_skill('quarrying', 2) turn_process() -- trolls have +2 to quarrying, and save 25% assert_equal(8, u:get_item('stone')) assert_equal(93, r:get_resource('stone')) end function test_dwarf_mining_bonus() -- Von Zwergen abgebautes Eisen wird nur zu 60% vom "Regionsvorrat" abgezogen. -- Dieser Effekt ist kumulativ zu einem Bergwerk (siehe hier und hier). local r = region.create(0, 0, 'mountain') local f = create_faction('human') local u = unit.create(f, r, 1) turn_begin() r:set_resource('iron', 100) u:set_skill('mining', 10) u:add_order('MACHE Eisen') turn_process() -- humans get no bonus assert_equal(10, u:get_item('iron')) assert_equal(90, r:get_resource('iron')) u.race = 'dwarf' u:set_skill('mining', 8) turn_process() -- dwarves have +2 to mining, and save 40% assert_equal(20, u:get_item('iron')) assert_equal(84, r:get_resource('iron')) end function test_build_boat_low_skill() local r = region.create(0, 0, "plain") local f = faction.create("human", "build@example.com") local u = unit.create(f, r, 1) u:set_skill("shipcraft", 3) -- humans get +1 u:add_item("log", 10) u:add_order("MACHE BOOT") process_orders() assert_not_equal(nil, u.ship) assert_equal(4, u.ship.size) assert_equal(6, u:get_item('log')) end function test_build_boat_high_skill() local r = region.create(0, 0, "plain") local f = faction.create("human", "build@example.com") local u = unit.create(f, r, 1) u:set_skill("shipcraft", 5) -- humans get +1 u:add_item("log", 10) u:add_order("MACHE BOOT") process_orders() assert_not_equal(nil, u.ship) assert_equal(5, u.ship.size) assert_equal(5, u:get_item('log')) end