server/scripts/tests/e3/spells.lua

103 lines
3.0 KiB
Lua

require "lunit"
module("tests.e3.spells", package.seeall, lunit.testcase)
function setup()
eressea.game.reset()
eressea.settings.set("magic.fumble.enable", "0")
eressea.settings.set("nmr.timeout", "0")
eressea.settings.set("rules.peasants.growth", "0")
end
function test_raindance()
local r = region.create(0, 0, "plain")
local f = faction.create("halfling", "noreply@eressea.de", "de")
local u = unit.create(f, r)
r:set_resource("peasant", 100)
r:set_resource("money", 0)
u.magic = "gwyrrd"
u.race = "dwarf"
u:set_skill("magic", 20)
u.aura = 200
local err = u:add_spell("raindance")
assert_equal(0, err)
u:clear_orders()
u:add_order("ZAUBERE STUFE 3 Regentanz")
assert_equal(0, r:get_resource("money"), 0)
process_orders()
assert_equal(200, r:get_resource("money"))
u:clear_orders()
u:add_order("ARBEITEN")
process_orders()
process_orders()
assert_equal(500, r:get_resource("money"))
process_orders()
assert_equal(600, r:get_resource("money"))
end
function test_magic()
local r = region.create(0, 0, "plain")
local f = faction.create("halfling", "noreply@eressea.de", "de")
local u = unit.create(f, r)
local b = building.create(r, "castle")
u.race = "dwarf"
u.magic = "gwyrrd"
u:set_skill("magic", 30)
u.aura = 300
u:add_spell("protective_runes")
u:add_spell("analyze_magic")
u:clear_orders()
u.building = b
u:add_order("ZAUBERE \"Magie analysieren\" BURG " .. itoa36(b.id));
process_orders()
-- there used to be a SEGFAULT when writing reports here:
-- write_reports()
end
-- E3: earn 50 per every TWO levels of spell
function test_earn_silver()
local r = region.create(0, 0, "mountain")
local f = faction.create("human")
local u = unit.create(f, r)
eressea.settings.set("rules.food.flags", "4")
eressea.settings.set("magic.fumble.enable", "0")
eressea.settings.set("rules.peasants.growth", "0")
eressea.settings.set("rules.economy.repopulate_maximum", "0")
u.magic = "gwyrrd"
u.race = "elf"
u:set_skill("magic", 10)
u.aura = 100
local err = u:add_spell("earn_silver#gwyrrd")
assert_equal(0, err)
u:clear_orders()
u:add_order("ZAUBERE STUFE 1 Viehheilung")
r:set_resource("money", 200)
r:set_resource("peasant", 0)
process_orders() -- get 50 silver
assert_equal(50, u:get_item("money"))
assert_equal(150, r:get_resource("money"))
u:clear_orders() -- get 50 silver
u:add_order("ZAUBERE STUFE 2 Viehheilung")
process_orders()
assert_equal(100, u:get_item("money"))
assert_equal(100, r:get_resource("money"))
u:clear_orders() -- get 75 silver
u:add_order("ZAUBERE STUFE 3 Viehheilung")
process_orders()
assert_equal(175, u:get_item("money"))
assert_equal(25, r:get_resource("money"))
process_orders() -- not enough
assert_equal(200, u:get_item("money"))
assert_equal(0, r:get_resource("money"))
end