some test cases for e2 fixed

src/scripts/config-test.lua

@@ -1 +1 @@
-maxnmrs = 500
+maxnmrs = 1000

src/scripts/eressea.lua

@@ -71,8 +71,12 @@ function process(orders)
   plan_monsters()
 
   local nmrs = get_nmrs(1)
-  if nmrs >= 80 then
-    print("Shit. More than 80 factions with 1 NMR (" .. nmrs .. ")")
+  --  nmrs = 0
+  if maxnmrs == nil then
+      maxnmrs = 80
+  end
+  if nmrs >= maxnmrs then
+    print("Shit. More than " .. maxnmrs .. " factions with 1 NMR (" .. nmrs .. ")")
     write_summary()
     return -1
   end

src/scripts/tests.lua

@@ -749,8 +749,18 @@ function test_storage()
 end
 
 loadscript("extensions.lua")
-tests = {
+e3only = {    
+    ["canoe"] = test_canoe,
+    ["morale"] = test_morale,
+    ["owners"] = test_owners,
+    ["taxes"] = test_taxes,
+    ["spells"] = test_spells,
     ["alliance"] = test_alliance,
+    ["leave"] = test_leave,
+    ["market"] = test_market
+}
+
+tests = {
     ["pure"] = test_pure,
     ["read_write"] = test_read_write,
     ["control"] = test_control,
@@ -761,33 +771,32 @@ tests = {
     ["message"] = test_message,
     ["hashtable"] = test_hashtable,
     ["gmtool"] = test_gmtool,
-    ["leave"] = test_leave,
     ["events"] = test_events,
     ["produce"] = test_produce,
     ["rename"] = test_rename,
     ["recruit"] = test_recruit,
     ["recruit2"] = test_recruit2,
-    ["spells"] = test_spells,
     ["herbalism"] = test_herbalism,
     ["storage"] = test_storage,
-    ["taxes"] = test_taxes,
     ["mallorn"] = test_mallorn,
     ["upkeep"] = test_upkeep,
     ["id"] = test_id,
     ["work"] = test_work,
-    ["morale"] = test_morale,
-    ["owners"] = test_owners,
-    ["canoe"] = test_canoe,
     ["plane"] = test_plane,
-    ["guard"] = test_guard,
-    ["market"] = test_market
+    ["guard"] = test_guard
 }
+
 mytests = {
     ["guard"] = test_guard,
     ["plane"] = test_plane,
     ["owners"] = test_owners
 }
+
 fail = 0
+
+thetests = tests
+
+function test(tests)
     for k, v in pairs(tests) do
         local status, err = pcall(v)
         if not status then
@@ -797,6 +806,17 @@ for k, v in pairs(tests) do
             print("[OK] " .. k)
         end
     end
+end
+
+function is_e3()
+    free_game()
+    r = region.create(0, 0, "plain")
+    b = building.create(r, "market")
+    return b~=nil
+end
+
+test(tests)
+if is_e3() then test(e3only) end
 
 -- spells_csv()