server/src/scripts/run-tests.lua

-- -*- coding: utf-8 -*-

function test_locales()
  local skills = { "", "herb", "kraut", "Kräute", "Kraeut", "k", "kra", "MAGIE" }
  for k,v in pairs(skills) do
    str = test.loc_skill("de", v)
    io.stdout:write(v, "\t", tostring(str), "  ", tostring(get_string("de", "skill::" .. tostring(str))), "\n")
  end
  return 0
end

function loadscript(name)
  local script = scriptpath .. "/" .. name
  print("- loading " .. script)
  if pcall(dofile, script)==0 then
    print("Could not load " .. script)
  end
end

function run_scripts()
  scripts = { 
    "spells.lua",
    "extensions.lua",
    "familiars.lua",
  }
  for index, value in pairs(scripts) do
    loadscript(value)
  end
end
--test_locales()

function run_turn()
  plan_monsters()
  process_orders()
  spawn_dragons()
  spawn_undead()
  spawn_braineaters(0.25)
  autoseed(basepath .. "/newfactions", false)
end


function test_free()
  read_game("571.dat", "binary")
  read_orders("orders.571")
  run_turn()
  free_game()
  read_game("570.dat", "binary")
  read_orders("orders.570")
  run_turn()
  free_game()
end

loadscript("default.lua")
run_scripts()
-- go
local now = os.clock()
-- test_free()
read_game("50", "text")
write_game("50.dat", "binary")
write_game("50.txt.1", "text")
free_game()
read_game("50", "test")
write_game("50.txt.2", "text")
free_game()
local elapsed = os.clock() - now
print(elapsed)
-- text: 50.574
-- bin0: 19.547
-- bin1: 18.953
-- io.stdin:read("*line")