From 2bbcfa7e0cbeab4ecfa9ea22752c092824c7f872 Mon Sep 17 00:00:00 2001
From: Enno Rehling <enno@eressea.de>
Date: Fri, 25 May 2012 19:55:03 -0700
Subject: [PATCH] test this spell

---
 scripts/e3a/modules.lua     |  1 +
 scripts/eressea/modules.lua |  1 +
 scripts/tests/spells.lua    | 49 +++++++++++++++++++++++++++++++++++++
 3 files changed, 51 insertions(+)
 create mode 100644 scripts/tests/spells.lua

diff --git a/scripts/e3a/modules.lua b/scripts/e3a/modules.lua
index af37a3389..2f95676c0 100644
--- a/scripts/e3a/modules.lua
+++ b/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', 
diff --git a/scripts/eressea/modules.lua b/scripts/eressea/modules.lua
index b04f0528b..2765b8d2e 100644
--- a/scripts/eressea/modules.lua
+++ b/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', 
 }
diff --git a/scripts/tests/spells.lua b/scripts/tests/spells.lua
new file mode 100644
index 000000000..e1e3b38b0
--- /dev/null
+++ b/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