test this spell

scripts/e3a/modules.lua

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

scripts/eressea/modules.lua

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

scripts/tests/spells.lua

@@ -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