Marc
/
server
forked from github/server
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

test this spell

This commit is contained in:
Enno Rehling 2012-05-25 19:55:03 -07:00
parent c3cd519152
commit 2bbcfa7e0c
3 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scripts/e3a/modules.lua
View File

@ -8,6 +8,7 @@ tests = {
srcpath .. '/shared/scripts/tests/common.lua', srcpath .. '/shared/scripts/tests/common.lua',
srcpath .. '/shared/scripts/tests/spells.lua', srcpath .. '/shared/scripts/tests/spells.lua',
srcpath .. '/shared/scripts/tests/bson.lua', srcpath .. '/shared/scripts/tests/bson.lua',
srcpath .. '/eressea/scripts/tests/spells.lua',
srcpath .. '/eressea/scripts/tests/castles.lua', srcpath .. '/eressea/scripts/tests/castles.lua',
srcpath .. '/eressea/scripts/tests/morale.lua', srcpath .. '/eressea/scripts/tests/morale.lua',
srcpath .. '/eressea/scripts/tests/e3a.lua', srcpath .. '/eressea/scripts/tests/e3a.lua',

1
scripts/eressea/modules.lua
View File

@ -19,5 +19,6 @@ tests = {
srcpath .. '/shared/scripts/tests/common.lua', srcpath .. '/shared/scripts/tests/common.lua',
srcpath .. '/shared/scripts/tests/spells.lua', srcpath .. '/shared/scripts/tests/spells.lua',
srcpath .. '/shared/scripts/tests/bson.lua', srcpath .. '/shared/scripts/tests/bson.lua',
srcpath .. '/eressea/scripts/tests/spells.lua',
srcpath .. '/eressea/scripts/tests/eressea.lua', srcpath .. '/eressea/scripts/tests/eressea.lua',
} }

49
scripts/tests/spells.lua Normal file
View File

@ -0,0 +1,49 @@
require "lunit"
module("tests.spells", package.seeall, lunit.testcase)
function setup()
free_game()
settings.set("magic.fumble.enable", "0")
end
function test_blessedharvest_lasts_n_turn()
free_game()
local r = region.create(0, 0, "plain")
local f = faction.create("noreply@eressea.de", "halfling", "de")
local u = unit.create(f, r)
local err = 0
r:set_resource("peasant", 100)
r:set_resource("money", 0)
u:add_item("money", 1000)
u.magic = "gwyrrd"
u.race = "dwarf"
u:set_skill("magic", 20)
u.aura = 200
err = err + u:add_spell("raindance")
err = err + u:add_spell("blessedharvest")
assert_equal(0, err)
u:clear_orders()
local level = 5
u:add_order("ZAUBERE STUFE " .. level .. " Regentanz")
assert_equal(0, r:get_resource("money"), 0)
local m = 0
local p = 100
for i=1,level+2 do
process_orders()
local income = p * 12
p = r:get_resource("peasant")
income = income - p * 10
m = m + income
-- print(i, m, p, r:get_resource("money"))
if (i>level+1) then
assert_not_equal(m, r:get_resource("money"))
else
assert_equal(m, r:get_resource("money"))
end
u:clear_orders()
u:add_order("ARBEITEN")
end
end