server/scripts/tests/bson.lua

40 lines
874 B
Lua
Raw Normal View History

require "lunit"
module("tests.bson", package.seeall, lunit.testcase)
function setup()
free_game()
end
function test_bson_create()
local a = attrib.create("global", 12)
assert_not_equal(nil, a)
for a in attrib.get("global") do
assert_equal(a.data, 12)
end
end
function test_illegal_arg()
local a = attrib.create(nil, 42)
assert_equal(nil, a)
a = attrib.create("fred", 42)
assert_equal(nil, a)
end
function test_bson_readwrite()
local i, r = region.create(0, 0, "mountain")
attrib.create(r, 42)
i = write_game("test_read_write.dat")
assert_equal(0, i)
free_game()
r = get_region(0, 0)
assert_equal(nil, r)
i = read_game("test_read_write.dat")
assert_equal(0, i)
r = get_region(0, 0)
assert_not_equal(nil, r)
for a in attrib.get(r) do
assert_equal(a.data, 42)
end
end