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

teting give

This commit is contained in:
Enno Rehling 2009-10-03 16:02:14 +00:00
parent cc82fc01a9
commit 51489e305b
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/scripts/tests.lua
View File

@ -724,6 +724,19 @@ function test_control()
assert(b.owner==u2) assert(b.owner==u2)
end end
function test_give()
free_game()
local u1, u2 = two_units(region.create(0, 0, "plain"), two_factions())
u1:clear_orders()
u1:add_item("money", 500)
local m1, m2 = u1:get_item("money"), u2:get_item("money")
u1:add_order("GIB " .. itoa36(u2.no) .. " 332 Silber")
process_orders()
assert(u1:get_item("money")==m1-332-10*u1.number)
print(u2:get_item("money"), m2)
assert(u2:get_item("money")==m2+110-10*u2.number)
end
function test_storage() function test_storage()
free_game() free_game()
local r = region.create(0, 0, "plain") local r = region.create(0, 0, "plain")
@ -750,6 +763,7 @@ end
loadscript("extensions.lua") loadscript("extensions.lua")
e3only = { e3only = {
["give"] = test_give,
["canoe"] = test_canoe, ["canoe"] = test_canoe,
["morale"] = test_morale, ["morale"] = test_morale,
["owners"] = test_owners, ["owners"] = test_owners,