server/scripts/tests/e2/astral.lua

local tcname = 'tests.e2.astral'
local lunit = require('lunit')
if _VERSION >= 'Lua 5.2' then
  _ENV = module(tcname, 'seeall')
else
  module(tcname, lunit.testcase, package.seeall)
end

function setup()
    eressea.free_game()
    eressea.settings.set("nmr.removenewbie", "0")
    eressea.settings.set("nmr.timeout", "0")
    eressea.settings.set("NewbieImmunity", "0")
    eressea.settings.set("rules.food.flags", "4")
    eressea.settings.set("rules.peasants.growth.factor", "0")
    eressea.settings.set("magic.fumble.enable", "0")
    eressea.settings.set("magic.regeneration.enable", "0")
end

function test_fetch_astral()
    local r = region.create(0, 0, "plain")
    local ra = r:get_astral('fog')
    local rb = region.create(ra.x + 1, ra.y, 'fog')
    local f = faction.create("human");
    local u1 = unit.create(f, r, 1)
    local u2 = unit.create(f, r, 1)
    local u3 = unit.create(f, rb, 1)
    rb.plane = ra.plane
    u1.magic = "gray"
    u1:set_skill("magic", 6)
    u1.aura = 0
    u1:add_spell("fetch_astral")

    u1:clear_orders()
    u1:add_order("ZAUBERE Ruf~der~Realitaet " .. itoa36(u2.id) .. " " .. itoa36(u3.id))
    process_orders()
    assert_equal(1, f:count_msg_type('missing_components_list'), 'no components')

    u1.aura = 12 -- 2 Aura pro Stufe
    process_orders()
    assert_equal(12, u1.aura)
    assert_equal(1, f:count_msg_type('spellfail_astralonly'), 'astral space')

    u2.region = ra
    process_orders()
    assert_equal(0, u1.aura)
    assert_equal(r, u2.region)
    assert_equal(rb, u3.region)
end

function test_pull_astral()
    local r = region.create(0, 0, "plain")
    local f = faction.create("human")
    local u1 = unit.create(f, r, 1)
    local u2 = unit.create(f, r, 1)
    u1.magic = "gray"
    u1:set_skill("magic", 6)
    u1.aura = 0
    u1:add_spell("pull_astral")

    u1:clear_orders()
    u1:add_order("ZAUBERE Astraler~Ruf " .. itoa36(u2.id))
    process_orders()
    assert_equal(1, f:count_msg_type('error209'), 'syntax error')
    u1:clear_orders()

    u1:clear_orders()
    u1:add_order("ZAUBERE Astraler~Ruf 1 0 " .. itoa36(u2.id))
    process_orders()
    assert_equal(0, f:count_msg_type('error209'), 'syntax error')
    assert_equal(1, f:count_msg_type('error194'), 'target region')

    u1:clear_orders()
    u1:add_order("ZAUBERE Astraler~Ruf 0 0 " .. itoa36(u2.id))
    u1.aura = 0 -- missing components
    process_orders()
    assert_equal(0, f:count_msg_type('error194'), 'target region')
    assert_equal(1, f:count_msg_type('missing_components_list'), 'no components')

    u1.aura = 12 -- 2 Aura pro Stufe
    process_orders()
    assert_equal(1, f:count_msg_type('spellfail_astralonly'), 'astral space')

    u1.region = u1.region:get_astral('fog')
    assert_equal('fog', u1.region.terrain)
    process_orders()
    assert_equal(0, f:count_msg_type('spellfail_astralonly'), 'astral space')
    assert_equal(1, f:count_msg_type('send_astral'), 'astral space')

    assert_equal(u1.region, u2.region)
end