mirror of
https://github.com/minetest/minetest.git
synced 2024-11-14 03:33:44 +01:00
84 lines
2.0 KiB
Lua
84 lines
2.0 KiB
Lua
--
|
|
-- Minimal Development Test
|
|
-- Mod: test
|
|
--
|
|
|
|
-- Try out PseudoRandom
|
|
pseudo = PseudoRandom(13)
|
|
assert(pseudo:next() == 22290)
|
|
assert(pseudo:next() == 13854)
|
|
|
|
|
|
--
|
|
-- HP Change Reasons
|
|
--
|
|
local expect = nil
|
|
local function run_hpchangereason_tests(player)
|
|
expect = { type = "set_hp", from = "mod" }
|
|
player:set_hp(3)
|
|
assert(expect == nil)
|
|
|
|
expect = { a = 234, type = "set_hp", from = "mod" }
|
|
player:set_hp(10, { a= 234 })
|
|
assert(expect == nil)
|
|
|
|
expect = { df = 3458973454, type = "fall", from = "mod" }
|
|
player:set_hp(10, { type = "fall", df = 3458973454 })
|
|
assert(expect == nil)
|
|
end
|
|
minetest.register_on_player_hpchange(function(player, hp, reason)
|
|
if not expect then
|
|
return
|
|
end
|
|
|
|
for key, value in pairs(reason) do
|
|
assert(expect[key] == value)
|
|
end
|
|
|
|
for key, value in pairs(expect) do
|
|
assert(reason[key] == value)
|
|
end
|
|
|
|
expect = nil
|
|
end)
|
|
|
|
|
|
|
|
local function run_player_meta_tests(player)
|
|
local meta = player:get_meta()
|
|
meta:set_string("foo", "bar")
|
|
assert(meta:contains("foo"))
|
|
assert(meta:get_string("foo") == "bar")
|
|
assert(meta:get("foo") == "bar")
|
|
|
|
local meta2 = player:get_meta()
|
|
assert(meta2:get_string("foo") == "bar")
|
|
assert(meta2:get("foo") == "bar")
|
|
assert(meta:equals(meta2))
|
|
assert(player:get_attribute("foo") == "bar")
|
|
|
|
meta:set_string("bob", "dillan")
|
|
assert(meta:get_string("foo") == "bar")
|
|
assert(meta:get_string("bob") == "dillan")
|
|
assert(meta:get("bob") == "dillan")
|
|
assert(meta2:get_string("foo") == "bar")
|
|
assert(meta2:get_string("bob") == "dillan")
|
|
assert(meta2:get("bob") == "dillan")
|
|
assert(meta:equals(meta2))
|
|
assert(player:get_attribute("foo") == "bar")
|
|
assert(player:get_attribute("bob") == "dillan")
|
|
|
|
meta:set_string("foo", "")
|
|
assert(not meta:contains("foo"))
|
|
assert(meta:get("foo") == nil)
|
|
assert(meta:get_string("foo") == "")
|
|
assert(meta:equals(meta2))
|
|
end
|
|
|
|
local function run_player_tests(player)
|
|
run_hpchangereason_tests(player)
|
|
run_player_meta_tests(player)
|
|
minetest.chat_send_all("All tests pass!")
|
|
end
|
|
minetest.register_on_joinplayer(run_player_tests)
|