Module:Sandbox/Erutuon/testcases

local p = require "Module:UnitTests"
local parse_IETF = require "Module:Sandbox/Erutuon".parse_IETF

function p:test_parse_IETF()
	local examples = {
		{ "ru", { language = "ru" } },
		{ "ru-Latn", { language = "ru", script = "Latn" } },
		{ "ru-Cyrl-RU", { language = "ru", script = "Cyrl", region = "RU" } },
		{ "ru-Cyrl-RU-petr1708",
			{ language = "ru", script = "Cyrl", region = "RU", variant = "petr1708" } },
		{ "zh-Latn-pinyin", { language = "zh", script = "Latn", variant = "pinyin" } },
		{ "sl-rozaj-biske", { language = "sl", variant = { "rozaj", "biske" } } },
		{ "en-CA-newfound", { language = "en", region = "CA", variant = "newfound" } },
		{ "ine-x-proto", { language = "ine", private_use = "x-proto" } },
		"case insensitivity",
		{ "RU", { language = "RU" } },
		{ "RU-LATN", { language = "RU", script = "LATN" } },
		{ "RU-CYRL-RU", { language = "RU", script = "CYRL", region = "RU" } },
		{ "RU-CYRL-RU-PETR1708",
			{ language = "RU", script = "CYRL", region = "RU", variant = "PETR1708" } },
		{ "INE-X-PROTO", { language = "INE", private_use = "X-PROTO" } },
		"errors",
		{ "ine-!!!", { error = "invalid characters", invalid = "ine-!!!" } },
		{ "pâté", { error = "invalid characters", invalid = "pâté" } },
		{ "Latn", { error = "no language subtag", script = "Latn", invalid = "Latn" } },
		{ "blahblahblah", { error = "invalid subtag", invalid = "blahblahblah" } },
		{ "ru-blahblahblah", { language = "ru", error = "invalid subtag", invalid = "blahblahblah" } },
		{ "ru-Latn-blahblahblah",
			{ language = "ru", script = "Latn", error = "invalid subtag", invalid = "blahblahblah" } },
		{ "ru-x-blahblahblah",
			{ language = "ru", error = "length of private-use subtag out of range", invalid = "x-blahblahblah" } },
		{ "ru-x", { language = "ru", error = "empty private-use subtag", invalid = "x" } },
		{ "", nil },
		-- { mw.log, nil },
		-- { nil, nil },
	}
	
	self:iterate(
		examples,
		function (self, IETF_code, expected)
			self:equals_deep(IETF_code, parse_IETF(IETF_code), expected)
		end)
end

-- Change function names into more readable headers for the testcases tables.
for k, v in require "Module:table".sortedPairs(p) do
	if type(k) == "string" then
		local new_k = k:gsub("^test_(.+)$", "testcases for <code>%1</code>")
		if new_k ~= k then
			p[k] = nil
			p[new_k] = v
		end
	end
end

return p