minetest/games/devtest/mods/unittests/player.lua

--
-- HP Change Reasons
--
local expect = nil
local function run_hpchangereason_tests(player)
	local old_hp = player:get_hp()

	player:set_hp(20)
	expect = { type = "set_hp", from = "mod" }
	player:set_hp(3)
	assert(expect == nil)

	expect = { a = 234, type = "set_hp", from = "mod" }
	player:set_hp(7, { a= 234 })
	assert(expect == nil)

	expect = { df = 3458973454, type = "fall", from = "mod" }
	player:set_hp(10, { type = "fall", df = 3458973454 })
	assert(expect == nil)

	player:set_hp(old_hp)
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))

	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))

	meta:set_string("foo", "")
	assert(not meta:contains("foo"))
	assert(meta:get("foo") == nil)
	assert(meta:get_string("foo") == "")
	assert(meta:equals(meta2))
end

function unittests.test_player(player)
	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)

	run_hpchangereason_tests(player)
	run_player_meta_tests(player)
	local msg = "Player tests passed for player '"..player:get_player_name().."'!"
	minetest.chat_send_all(msg)
	minetest.log("action", "[unittests] "..msg)
	return true
end