Add formspec testing to test mod in minimal

3 files changed, 322 insertions, 120 deletions

diff --git a/games/minimal/mods/test/formspec.lua b/games/minimal/mods/test/formspec.lua
new file mode 100644
index 000000000..a4d120b41
--- /dev/null
+++ b/games/minimal/mods/test/formspec.lua
@@ -0,0 +1,195 @@
+local clip_fs = [[

+	style_type[label;noclip=%c]

+	style_type[button;noclip=%c]

+	style_type[image_button;noclip=%c]

+	style_type[item_image_button;noclip=%c]

+	style_type[tabheader;noclip=%c]

+	style_type[field;noclip=%c]

+	style_type[textarea;noclip=%c]

+	style_type[checkbox;noclip=%c]

+	style_type[dropdown;noclip=%c]

+	style_type[scrollbar;noclip=%c]

+	style_type[table;noclip=%c]

+

+	label[0,0;A clipping test]

+	button[0,1;3,0.8;x;A clipping test]

+	image_button[0,2;3,0.8;bubble.png;x2;A clipping test]

+	item_image_button[0,3;3,0.8;default:sword_steel;x3;A clipping test]

+	tabheader[0,4.7;3,0.63;x4;Clip,Test,Text,Tabs;1;false;false]

+	field[0,5;3,0.8;x5;Title;]

+	textarea[0,6;3,1;x6;Title;]

+	checkbox[0,7.5;x7;This is a test;true]

+	dropdown[0,8;3,0.8;x8;Select An Item,One,Two,Three,Four,Five;1]

+	scrollbar[0,9;3,0.8;horizontal;x9;3]

+	tablecolumns[text;text]

+	table[0,10;3,1;x10;one,two,three,four;1]

+]]

+

+

+local style_fs = [[

+	style[one_btn1;bgcolor=red;textcolor=yellow]

+	button[0,0;2.5,0.8;one_btn1;Button]

+

+	style[one_btn2;border=false;textcolor=cyan]

+	button[0,1.05;2.5,0.8;one_btn2;Text Button]

+

+	style[one_btn3;bgimg=bubble.png;bgimg_pressed=heart.png]

+	button[0,2.1;1,1;one_btn3;Bor]

+

+	style[one_btn4;bgimg=bubble.png;bgimg_pressed=heart.png;border=false]

+	button[1.25,2.1;1,1;one_btn4;Bub]

+

+	style[one_btn5;bgimg=bubble.png;bgimg_pressed=heart.png;border=false;alpha=false]

+	button[0,3.35;1,1;one_btn5;Alph]

+

+	style[one_btn6;border=true]

+	image_button[0,4.6;1,1;bubble.png;one_btn6;Border]

+

+	style[one_btn7;border=false]

+	image_button[1.25,4.6;1,1;bubble.png;one_btn7;NoBor]

+

+	style[one_btn8;border=false]

+	image_button[0,5.85;1,1;bubble.png;one_btn8;Border;false;true;heart.png]

+

+	style[one_btn9;border=true]

+	image_button[1.25,5.85;1,1;bubble.png;one_btn9;NoBor;false;false;heart.png]

+

+	style[one_btn10;alpha=false]

+	image_button[0,7.1;1,1;bubble.png;one_btn10;NoAlpha]

+

+	style[one_btn11;alpha=true]

+	image_button[1.25,7.1;1,1;bubble.png;one_btn11;Alpha]

+

+	style[one_btn12;border=true]

+	item_image_button[0,8.35;1,1;default:sword_steel;one_btn12;Border]

+

+	style[one_btn13;border=false]

+	item_image_button[1.25,8.35;1,1;default:sword_steel;one_btn13;NoBor]

+

+

+	container[2.75,0]

+

+	style[one_tb1;textcolor=Yellow]

+	tabheader[0,3;2.5,0.63;one_tb1;Yellow,Text,Tabs;1;false;false]

+

+	style[one_f1;textcolor=yellow]

+	field[0,4.25;2.5,0.8;one_f1;Field One;Yellow Text]

+

+	style[one_f2;border=false;textcolor=cyan]

+	field[0,5.75;2.5,0.8;one_f2;Field Two;Borderless Cyan Text]

+

+	style[one_f3;textcolor=yellow]

+	textarea[0,7.025;2.5,0.8;one_f3;Label;]] ..

+		minetest.formspec_escape("Yellow Text\nLine two") .. [[ ]

+

+	style[one_f4;border=false;textcolor=cyan]

+	textarea[0,8.324999999999999;2.5,0.8;one_f4;Label;]] ..

+		minetest.formspec_escape("Borderless Cyan Text\nLine two") .. [[ ]

+

+	container_end[]

+]]

+

+--style_type[label;textcolor=green]

+--label[0,0;Green]

+--style_type[label;textcolor=blue]

+--label[0,1;Blue]

+--style_type[label;textcolor=;border=true]

+--label[1.2,0;Border]

+--style_type[label;border=true;bgcolor=red]

+--label[1.2,1;Background]

+--style_type[label;border=;bgcolor=]

+--label[0.75,2;Reset]

+

+

+local pages = {

+	[[

+		size[12,12]

+		real_coordinates[true]

+		image_button[0,0;1,1;logo.png;;1x1]

+		image_button[1,0;2,2;logo.png;;2x2]

+		button[0,2;1,1;;1x1]

+		button[1,2;2,2;;2x2]

+		item_image[0,4;1,1;air]

+		item_image[1,4;2,2;air]

+		item_image_button[0,6;1,1;test:node;;1x1]

+		item_image_button[1,6;2,2;test:node;;2x2]

+		field[3,.5;3,.5;name;Field;text]

+		pwdfield[6,.5;3,1;name;Password Field]

+		field[3,1;3,1;;Read-Only Field;text]

+		textarea[3,2;3,.5;name;Textarea;text]

+		textarea[6,2;3,2;name;Textarea;text\nmore text]

+		textarea[3,3;3,1;;Read-Only Textarea;text\nmore text]

+		textlist[3,4;3,2;name;Textlist,Perfect Coordinates;1;false]

+		tableoptions[highlight=#ABCDEF75;background=#00000055;border=false]

+		table[6,4;3,2;name;Table,Cool Stuff,Foo,Bar;2]

+		dropdown[3,6;3,1;name;This,is,a,dropdown;1]

+		dropdown[6,6;3,2;name;I,am,a,bigger,dropdown;5]

+		image[0,8;3,2;ignore.png]

+		box[3,7;3,1;#00A3FF]

+		checkbox[3,8;name;Check me!;false]

+		checkbox[3,9;name;Uncheck me now!;true]

+		scrollbar[0,11.5;11.5,.5;horizontal;name;500]

+		scrollbar[11.5,0;.5,11.5;vertical;name;0]

+		list[current_player;main;6,8;3,2;1]

+		button[9,0;2.5,1;name;]

+		button[9,1;2.5,1;name;]

+		button[9,2;2.5,1;name;]

+		label[9,0;This is a label.\nLine\nLine\nLine\nEnd]

+		button[9,3;1,1;name;]

+		vertlabel[9,4;VERT]

+		label[10,3;HORIZ]

+		tabheader[6.5,0;6,0.65;name;Tab 1,Tab 2,Tab 3,Secrets;1;false;false]

+	]],

+

+		"size[12,12]real_coordinates[true]" ..

+		"label[0.375,0.375;Styled]" ..

+		"label[6.375,0.375;Unstyled]" ..

+		"box[0,0.75;12,0.1;#999]" ..

+		"box[6,0.85;0.1,11.15;#999]" ..

+		"container[0.375,1.225]" ..

+		style_fs ..

+		"container_end[]container[6.375,1.225]" ..

+		style_fs:gsub("one_", "two_"):gsub("style%[[^%]]+%]", ""):gsub("style_type%[[^%]]+%]", "") ..

+		"container_end[]",

+

+		"size[12,12]real_coordinates[true]" ..

+		"label[0.1,0.5;Clip]" ..

+		"container[-2.5,1]" .. clip_fs:gsub("%%c", "false") .. "container_end[]" ..

+		"label[11,0.5;Noclip]" ..

+		"container[11.5,1]" .. clip_fs:gsub("%%c", "true") .. "container_end[]",

+}

+

+local function show_test_formspec(pname, page_id)

+	page_id = page_id or 2

+

+	local fs = pages[page_id] .. "tabheader[0,0;6,0.65;maintabs;Real Coord,Styles,Noclip;" .. page_id .. ";false;false]"

+

+	minetest.show_formspec(pname, "test:formspec", fs)

+end

+

+minetest.register_on_player_receive_fields(function(player, formname, fields)

+	if formname ~= "test:formspec" then

+		return false

+	end

+

+	if fields.maintabs then

+		show_test_formspec(player:get_player_name(), tonumber(fields.maintabs))

+		return true

+	end

+

+end)

+

+minetest.register_node("test:node", {

+	tiles = { "air.png" }

+})

+

+minetest.register_chatcommand("formspec", {

+	func = function(name)

+		if not minetest.get_player_by_name(name) then

+			return false, "You need to be online!"

+		end

+

+		show_test_formspec(name)

+		return true, "Opened formspec"

+	end,

+})

diff --git a/games/minimal/mods/test/init.lua b/games/minimal/mods/test/init.lua
index 72ca6e692..73fb6e6b5 100644
--- a/games/minimal/mods/test/init.lua
+++ b/games/minimal/mods/test/init.lua
@@ -3,128 +3,11 @@
 -- 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(7, { 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)
-
-
-local function test_get_craft_result()
-	minetest.log("info", "test_get_craft_result()")
-	-- normal
-	local input = {
-		method = "normal",
-		width = 2,
-		items = {"", "default:coal_lump", "", "default:stick"}
-	}
-	minetest.log("info", "torch crafting input: "..dump(input))
-	local output, decremented_input = minetest.get_craft_result(input)
-	minetest.log("info", "torch crafting output: "..dump(output))
-	minetest.log("info", "torch crafting decremented input: "..dump(decremented_input))
-	assert(output.item)
-	minetest.log("info", "torch crafting output.item:to_table(): "..dump(output.item:to_table()))
-	assert(output.item:get_name() == "default:torch")
-	assert(output.item:get_count() == 4)
-	-- fuel
-	local input = {
-		method = "fuel",
-		width = 1,
-		items = {"default:coal_lump"}
-	}
-	minetest.log("info", "coal fuel input: "..dump(input))
-	local output, decremented_input = minetest.get_craft_result(input)
-	minetest.log("info", "coal fuel output: "..dump(output))
-	minetest.log("info", "coal fuel decremented input: "..dump(decremented_input))
-	assert(output.time)
-	assert(output.time > 0)
-	-- cook
-	local input = {
-		method = "cooking",
-		width = 1,
-		items = {"default:cobble"}
-	}
-	minetest.log("info", "cobble cooking input: "..dump(output))
-	local output, decremented_input = minetest.get_craft_result(input)
-	minetest.log("info", "cobble cooking output: "..dump(output))
-	minetest.log("info", "cobble cooking decremented input: "..dump(decremented_input))
-	assert(output.time)
-	assert(output.time > 0)
-	assert(output.item)
-	minetest.log("info", "cobble cooking output.item:to_table(): "..dump(output.item:to_table()))
-	assert(output.item:get_name() == "default:stone")
-	assert(output.item:get_count() == 1)
-end
-test_get_craft_result()
+dofile(minetest.get_modpath("test") .. "/player.lua")
+dofile(minetest.get_modpath("test") .. "/formspec.lua")
diff --git a/games/minimal/mods/test/player.lua b/games/minimal/mods/test/player.lua
new file mode 100644
index 000000000..e66539eac
--- /dev/null
+++ b/games/minimal/mods/test/player.lua
@@ -0,0 +1,124 @@
+--
+-- Minimal Development Test
+-- Mod: test
+--
+
+--
+-- 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(7, { 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)
+
+
+local function test_get_craft_result()
+	minetest.log("info", "test_get_craft_result()")
+	-- normal
+	local input = {
+		method = "normal",
+		width = 2,
+		items = {"", "default:coal_lump", "", "default:stick"}
+	}
+	minetest.log("info", "torch crafting input: "..dump(input))
+	local output, decremented_input = minetest.get_craft_result(input)
+	minetest.log("info", "torch crafting output: "..dump(output))
+	minetest.log("info", "torch crafting decremented input: "..dump(decremented_input))
+	assert(output.item)
+	minetest.log("info", "torch crafting output.item:to_table(): "..dump(output.item:to_table()))
+	assert(output.item:get_name() == "default:torch")
+	assert(output.item:get_count() == 4)
+	-- fuel
+	local input = {
+		method = "fuel",
+		width = 1,
+		items = {"default:coal_lump"}
+	}
+	minetest.log("info", "coal fuel input: "..dump(input))
+	local output, decremented_input = minetest.get_craft_result(input)
+	minetest.log("info", "coal fuel output: "..dump(output))
+	minetest.log("info", "coal fuel decremented input: "..dump(decremented_input))
+	assert(output.time)
+	assert(output.time > 0)
+	-- cook
+	local input = {
+		method = "cooking",
+		width = 1,
+		items = {"default:cobble"}
+	}
+	minetest.log("info", "cobble cooking input: "..dump(output))
+	local output, decremented_input = minetest.get_craft_result(input)
+	minetest.log("info", "cobble cooking output: "..dump(output))
+	minetest.log("info", "cobble cooking decremented input: "..dump(decremented_input))
+	assert(output.time)
+	assert(output.time > 0)
+	assert(output.item)
+	minetest.log("info", "cobble cooking output.item:to_table(): "..dump(output.item:to_table()))
+	assert(output.item:get_name() == "default:stone")
+	assert(output.item:get_count() == 1)
+end
+test_get_craft_result()