Module:Wikt-lang/testcases

-- Unit tests for [[Module:Language]]. Click talk page to run tests.
local p = require 'Module:UnitTests'
local m_Language = require 'Module:Language'

local function tag(word, languageCode)
	return '<span lang="' .. languageCode .. '">' .. word .. '</span>'
end

local decompose = mw.ustring.toNFD
function p:check_makeEntryName(languageCode, word, expected)
	self:equals(
		tag(word, languageCode),
		decompose(m_Language.makeEntryName(word, languageCode)),
		decompose(expected),
		{ display = function (word) return tag(word, languageCode) end })
end

p['test makeEntryName'] = function (self)
	local examples = {
		{ "ar", "العَرَبِيَّة", "العربية" },
		{ "grc", "δημοκρᾰτῐ́ᾱ", "δημοκρατία" },
		{ "ha", "àzàhàr̃iyyā̀", "azahariyya" },
		{ "la", "coëō", "coeo" },
		{ "nci", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ru", "ру́сский язы́к", "русский язык" },
		{ "sh", "ćá", "ća" }, -- fake word with c-acute and tonal acute; add a real word if you know one
		
		--[[
		{ "ab", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ang", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ar", "Quetzalcōātl", "Quetzalcoatl" },
		{ "av", "Quetzalcōātl", "Quetzalcoatl" },
		{ "be", "Quetzalcōātl", "Quetzalcoatl" },
		{ "bn", "Quetzalcōātl", "Quetzalcoatl" },
		{ "bua", "Quetzalcōātl", "Quetzalcoatl" },
		{ "cel-pro", "Quetzalcōātl", "Quetzalcoatl" },
		{ "cu", "Quetzalcōātl", "Quetzalcoatl" },
		{ "de", "Quetzalcōātl", "Quetzalcoatl" },
		{ "en", "Quetzalcōātl", "Quetzalcoatl" },
		{ "es", "Quetzalcōātl", "Quetzalcoatl" },
		{ "egy", "Quetzalcōātl", "Quetzalcoatl" },
		{ "fr", "Quetzalcōātl", "Quetzalcoatl" },
		{ "frm", "Quetzalcōātl", "Quetzalcoatl" },
		{ "frp", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ff", "Quetzalcōātl", "Quetzalcoatl" },
		{ "gem-pro", "Quetzalcōātl", "Quetzalcoatl" },
		{ "gml", "Quetzalcōātl", "Quetzalcoatl" },
		{ "gmw-ecg", "Quetzalcōātl", "Quetzalcoatl" },
		{ "goh", "Quetzalcōātl", "Quetzalcoatl" },
		{ "got", "Quetzalcōātl", "Quetzalcoatl" },
		{ "gsw", "Quetzalcōātl", "Quetzalcoatl" },
		{ "grc", "Quetzalcōātl", "Quetzalcoatl" },
		{ "grk-pro", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ha", "Quetzalcōātl", "Quetzalcoatl" },
		{ "hi", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ine-bsl-pro", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ine-pro", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ja", "Quetzalcōātl", "Quetzalcoatl" },
		{ "jbo", "Quetzalcōātl", "Quetzalcoatl" },
		{ "la", "Quetzalcōātl", "Quetzalcoatl" },
		{ "lt", "Quetzalcōātl", "Quetzalcoatl" },
		{ "moe", "Quetzalcōātl", "Quetzalcoatl" },	
		{ "mul", "Quetzalcōātl", "Quetzalcoatl" },
		{ "nci", "Quetzalcōātl", "Quetzalcoatl" },
		{ "nds-de", "Quetzalcōātl", "Quetzalcoatl" },
		{ "oge", "Quetzalcōātl", "Quetzalcoatl" },
		{ "oj", "Quetzalcōātl", "Quetzalcoatl" },
		{ "orv", "Quetzalcōātl", "Quetzalcoatl" },
		{ "osx", "Quetzalcōātl", "Quetzalcoatl" },
		{ "pt", "Quetzalcōātl", "Quetzalcoatl" },
		{ "pa", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ru", "Quetzalcōātl", "Quetzalcoatl" },
		{ "rw", "Quetzalcōātl", "Quetzalcoatl" },
		{ "se", "Quetzalcōātl", "Quetzalcoatl" },
		{ "sem-pro", "Quetzalcōātl", "Quetzalcoatl" },
		{ "sh", "Quetzalcōātl", "Quetzalcoatl" },
		{ "sl", "Quetzalcōātl", "Quetzalcoatl" },
		{ "sla-pro", "Quetzalcōātl", "Quetzalcoatl" },
		{ "uk", "Quetzalcōātl", "Quetzalcoatl" },
		{ "ur", "Quetzalcōātl", "Quetzalcoatl" },
		{ "zh", "Quetzalcōātl", "Quetzalcoatl" },
		{ "xcl", "Quetzalcōātl", "Quetzalcoatl" },
		{ "xgf", "Quetzalcōātl", "Quetzalcoatl" },
		{ "xvn", "Quetzalcōātl", "Quetzalcoatl" },
		{ "yua", "Quetzalcōātl", "Quetzalcoatl" },
		]]--
	}
	
	self:iterate(examples, "check_makeEntryName")
end

return p