Modul:languages/testcases

Berikut merupakan pendokumenan yang terletak di Modul:languages/testcases/doc. ^[sunting]

Pautan berguna: laman akar • sublaman • pautan • transklusi • modul ujian • kotak pasir

(refresh)

testcases for getCategoryName:

	Text	Expected	Actual
	ms	Bahasa Melayu	Bahasa Melayu
	af	Bahasa Afrikaans	Bahasa Afrikaans
	av	Bahasa Avar	Bahasa Avar
	ht	Bahasa Kreol Haiti	Bahasa Kreol Haiti
	ase	Bahasa Tangan Amerika Syarikat	Bahasa American Sign Language

testcases for getFamily:

	Text	Expected	Actual
	en	gmw-ang	gmw-ang
	ht	crp	crp
	ase	sgn	sgn

testcases for getFull:

	Text	Expected	Actual
	de	de	de
	de-AT	de	de
	de-AT-vie	de	de
	gem	gem	gem

testcases for getOtherNames:

	Text	Expected	Actual
	ht	{"Creole", "Haitian", "Kreyòl"}	{"Creole", "Haitian", "Kreyòl"}
	ase	{"Ameslan", "ASL"}	{"Ameslan", "ASL"}

testcases for getScriptCodes:

	Text	Expected	Actual
	en	{"Latn", "Brai", "Shaw", "Dsrt"}	{"Latn", "Brai", "Shaw", "Dsrt"}
	ht	{"Latn"}	{"Latn"}
	ase	{"Sgnw"}	{"Sgnw"}

testcases for getWikidataItem:

	Text	Expected	Actual
	en	Q1860	Q1860
	eo	Q143	Q143
	aql-pro	Q18389588	Q18389588
	mkh-ban-pro	(nil)	Q116773189

testcases for getWikipediaArticle:

	Text	Expected	Actual
	ms	Bahasa Melayu	Bahasa Melayu
	en	Bahasa Inggeris	Bahasa Inggeris
	af	Bahasa Afrikaans	Bahasa Afrikaans
	ae	Bahasa Avestan	Avestan
	ht	Bahasa Kreol Haiti	Bahasa Kreol Haiti
	ase	Abjad tangan Amerika Syarikat	Abjad tangan Amerika Syarikat
	dv	Bahasa Dihevi	Bahasa Divehi
	eo	Bahasa Esperanto	Bahasa Esperanto
	goh	Bahasa Jerman Hulu Kuno	Bahasa Jerman Hulu Kuno

testcases for makeDisplayText:

	Text	Expected	Actual
	ஸ்ரீகாகுளம் (Tamil, ta)	ஶ்ரீகாகுளம்	ஶ்ரீகாகுளம்

testcases for makeEntryName:

	Text	Expected	Actual
	hūmānitās (Latin, la)	humanitas	humanitas
	coëō (Latin, la)	coeo	coeo
	àzàhàr̃iyyā̀ (Hausa, ha)	azahariyya	azahariyya
	alas! (Inggeris, en)	alas	alas
	¿cómo te llamas? (Sepanyol, es)	cómo te llamas	cómo te llamas
	ӓ ё (Rusia, ru)	а ё	а ё
	¿ ? (Sepanyol, es)	¿ ?	¿ ?
	¡ ! (Sepanyol, es)	¡ !	¡ !
	mais bien sûr ! (Perancis, fr)	mais bien sûr	mais bien sûr
	¡ (Translingual, mul)	¡	¡
	Πηληῐ̈ᾰ́δης (Yunani Purba, grc)	Πηληϊάδης	Πηληϊάδης
	العَرَبِيَّة (Arab, ar)	العربية	العربية
	ٱ (Arab, ar)	ٱ	ٱ
	ـُ (Arab, ar)	ـُ	ـُ
	치〯 (Korea Pertengahan, okm)	치	치
script-specific (no change when wrong script code is provided)
	ایشؽق (Azeri, az)	ایشیق	ایشیق
	ایشؽق (Azeri, az), table	ایشؽق	ایشؽق

testcases for makeSortKey:

	Text	Expected	Actual
diacritic removal
	Πηληϊάδης Αἶνος (Yunani Purba, grc)	ΠΗΛΗΙΑΔΗΣ ΑΙΝΟΣ	ΠΗΛΗΙΑΔΗΣ ΑΙΝΟΣ
	shį́į́dą́ą́ʼ (Navajo, nv)	SIIDAAZ	SIIDAAZ
dedicated sortkey modules
	Tuyên ngôn toàn thế giới về nhân quyền của Liên Hợp Quốc (Vietnam, vi)	TUYEN NGON TOAN! THE% GIOI% VE! NHAN QUYEN! CUA# LIEN HOP& QUOC%	TUYEN NGON TOAN! THE% GIOI% VE! NHAN QUYEN! CUA# LIEN HOP& QUOC%
	命裡有時終須有，命裡無時莫強求 (Cina, zh)	口05衣07月02日06糸05頁03月02，口05衣07火08日06艸07弓08水02	口05衣07月02日06糸05頁03月02口05衣07火08日06艸07弓08水02
	⿱𡩧⿺進⿰貝招 (Cina, zh)	宀37	宀37
dotted and dotless i
	İzmir (Turki, tr)	IZMIR	IZMIR
	ışık (Turki, tr)	ISIK	ISIK

testcases for makeWikipediaLink:

	Text	Expected	Actual
	ms	[[w:Bahasa Melayu|Melayu]]	[[w:Bahasa Melayu|Melayu]]
	id	[[w:Bahasa Indonesia|Indonesia]]	[[w:Bahasa Indonesia|Indonesia]]
	en	[[w:Bahasa Inggeris|Inggeris]]	[[w:Bahasa Inggeris|Inggeris]]

testcases for toJSON:

	Text	Expected	Actual
	en-toJSON	{"ancestors" : [ "en-ear" ], "code" : "en", "canonicalName" : "English", "wikimediaLanguages" : [ "en", "simple" ], "aliases" : [ "Modern English", "New English" ], "type" : [ "language", "full", "regular" ], "wikidataItem" : "Q1860", "varieties" : [ "Polari", "Yinglish" ], "scripts" : [ "Latn", "Brai", "Shaw", "Dsrt" ], "family" : "gmw-ang", "otherNames" : [], "categoryName" : "English language", "nonEtymological" : "en"}	{"ancestors" : [ "en-ear" ], "code" : "en", "canonicalName" : "Inggeris", "wikimediaLanguages" : [ "en", "simple" ], "full" : "en", "aliases" : [ "Modern English", "New English" ], "wikidataItem" : "Q1860", "varieties" : [ "Polari", "Yinglish" ], "scripts" : [ "Latn", "Brai", "Shaw", "Dsrt" ], "family" : "gmw-ang", "otherNames" : [], "categoryName" : "Bahasa Inggeris", "type" : [ "full", "language", "regular" ]}

---

local tests = require("Module:UnitTests")

local m_languages = require("Module:languages")
local tag = require("Module:script utilities").tag_text

-- Auto-create language objects: langs.en -> language object for English.
local langs = require ("Module:languages/cache")

local get_script = require("Module:scripts").getByCode

function tests:check(funcName)
	-- Use English language object to test for existence of function.
	local func = langs.en[funcName] or error("No function named " .. funcName .. " in language object.")
	local options = {}
	local function show_remaining_arguments(...)
		if select("#", ...) > 0 then
			local output = require "Module:array"()
			for _, arg in ipairs {...} do
				output:insert(", ")
				output:insert(tostring(arg))
			end
			return output:concat()
		else
			return ""
		end
	end
	return function(self, lang, example, expected, ...)
		function options.display(text)
			return tag(text, lang)
		end
		self:equals(tag(example, lang) .. " (" .. lang:getCanonicalName() .. ", <code>" .. lang:getCode() .. "</code>)" .. show_remaining_arguments(...),
			func(lang, example, ...),
			expected,
			options)
	end
end

function tests:test_makeEntryName()
	local examples = {
		{ langs.la, "hūmānitās", "humanitas" },
		{ langs.la, "coëō", "coeo" },
		{ langs.ha, "àzàhàr̃iyyā̀", "azahariyya" },
		{ langs.en, "alas!", "alas" },
		{ langs.es, "¿cómo te llamas?", "cómo te llamas" },
		{ langs.ru, "ӓ ё", "а ё" },
		{ langs.es, "¿ ?", "¿ ?" },
		{ langs.es, "¡ !", "¡ !" },
		{ langs.fr, "mais bien sûr !", "mais bien sûr" },
		{ langs.mul, "¡", "¡" },
		{ langs.grc, "Πηληῐ̈ᾰ́δης", "Πηληϊάδης" },
		{ langs.ar, "العَرَبِيَّة", "العربية" },
		{ langs.ar, "ٱ", "ٱ" }, -- special case: alif waṣla
		{ langs.ar, "ـُ", "ـُ" }, -- special case: taṭwīl with vowel diacritic
		{ langs.okm, "치〯", "치" },
		"script-specific (no change when wrong script code is provided)",
		{ langs.az, "ایشؽق", "ایشیق" },
		{ langs.az, "ایشؽق", "ایشؽق", get_script("Cyrl") }, -- no change with wrong script code
	}
	
	self:iterate(examples, self:check("makeEntryName"))
end

function tests:test_makeDisplayText()
	local examples = {
		{ langs.ta, "ஸ்ரீகாகுளம்", "ஶ்ரீகாகுளம்" },
	}
	
	self:iterate(examples, self:check("makeDisplayText"))
end

function tests:test_makeSortKey()
	local examples = {
		"diacritic removal",
		{ langs.grc, "Πηληϊάδης Αἶνος", "ΠΗΛΗΙΑΔΗΣ ΑΙΝΟΣ" },
		{ langs.nv, "shį́į́dą́ą́ʼ", "SIIDAAZ" },
		"dedicated sortkey modules",
		{ langs.vi, "Tuyên ngôn toàn thế giới về nhân quyền của Liên Hợp Quốc", "TUYEN NGON TOAN! THE% GIOI% VE! NHAN QUYEN! CUA# LIEN HOP& QUOC%" },
		{ langs.zh, "命裡有時終須有，命裡無時莫強求", "口05衣07月02日06糸05頁03月02，口05衣07火08日06艸07弓08水02" },
		{ langs.zh, "⿱𡩧⿺進⿰貝招", "宀37" },
		"dotted and dotless i",
		{ langs.tr, "İzmir", "IZMIR" },
		{ langs.tr, "ışık", "ISIK" }
	}
	self:iterate(examples, self:check("makeSortKey"))
end

function tests:test_getWikipediaArticle()
	local examples = {
		{"ms", "Bahasa Melayu"},
		{"en", "Bahasa Inggeris"},
		{"af", "Bahasa Afrikaans"},
		{"ae", "Bahasa Avestan"},
		{"ht", "Bahasa Kreol Haiti"},
		{"ase", "Abjad tangan Amerika Syarikat"},
		{"dv", "Bahasa Dihevi"},
		{"eo", "Bahasa Esperanto"},
		{"goh", "Bahasa Jerman Hulu Kuno"},
	}

	self:iterate(examples, function(self, lang, expected)
		self:equals(lang, langs[lang]:getWikipediaArticle(), expected)
	end)
end

function tests:test_makeWikipediaLink()
	local examples = {
		{"ms", "[[w:Bahasa Melayu|Melayu]]"},
		{"id", "[[w:Bahasa Indonesia|Indonesia]]"},
		{"en", "[[w:Bahasa Inggeris|Inggeris]]"},
	}
	
	self:iterate(examples, function(self, lang, expected)
		self:equals(lang, langs[lang]:makeWikipediaLink(), expected, {nowiki=1})
	end)
end

function tests:test_getFamily()
	local examples = {
		{"en", "gmw-ang"},
		{"ht", "crp"},
		{"ase", "sgn"}
	}

	self:iterate(examples, function(self, lang, expected)
		self:equals(lang, langs[lang]:getFamily():getCode(), expected)
	end)
end

function tests:test_getScriptCodes()
	local examples = {
		{"en", {"Latn", "Brai", "Shaw", "Dsrt"}},
		{"ht", {"Latn"}},
		{"ase", {"Sgnw"}}
	}

	self:iterate(examples, function(self, lang, expected)
		self:equals_deep(lang, langs[lang]:getScriptCodes(), expected, {})
	end)
end

function tests:test_getOtherNames()
	local examples = {
		{"ht", {"Creole", "Haitian", "Kreyòl"}},
		{"ase", {"Ameslan", "ASL"}}
	}

	self:iterate(examples, function(self, lang, expected)
		self:equals_deep(lang, langs[lang]:getOtherNames(), expected, {})
	end)
end

function tests:test_getCategoryName()
	local examples = {
		{"ms", "Bahasa Melayu"},
		{"af", "Bahasa Afrikaans"},
		{"av", "Bahasa Avar"},
		{"ht", "Bahasa Kreol Haiti"},
		{"ase", "Bahasa Tangan Amerika Syarikat"}
	}

	self:iterate(examples, function(self, lang, expected)
		self:equals(lang, langs[lang]:getCategoryName(), expected)
	end)
end

function tests:test_getWikidataItem()
	local examples = {
		{"en", "Q1860"},
		{"eo", "Q143"},
		{"aql-pro", "Q18389588"},
		{"mkh-ban-pro", nil},
		
	}

	self:iterate(examples, function(self, lang, expected)
		self:equals(lang, langs[lang]:getWikidataItem(), expected)
	end)
end

function tests:test_toJSON() 
	self:equals('en-toJSON', langs.en:toJSON(), [[{"ancestors" : [ "en-ear" ], "code" : "en", "canonicalName" : "English", "wikimediaLanguages" : [ "en", "simple" ], "aliases" : [ "Modern English", "New English" ], "type" : [ "language", "full", "regular" ], "wikidataItem" : "Q1860", "varieties" : [ "Polari", "Yinglish" ], "scripts" : [ "Latn", "Brai", "Shaw", "Dsrt" ], "family" : "gmw-ang", "otherNames" : [], "categoryName" : "English language", "nonEtymological" : "en"}]])
end

function tests:test_getFull()
	local examples = {
		{ "de", "de" },
		{ "de-AT", "de" },
		{ "de-AT-vie", "de" },
		{ "gem", "gem" },
	}

	self:iterate(examples, function(self, lang, expected)
		self:equals(lang, langs[lang]:getFull():getCode(), expected)
	end)
end

for k, v in require "Module:table".sortedPairs(tests) do
	if type(k) == "string" and k:sub(1, 5) == "test_" then
		local new_key = k:gsub('^test_(.+)$', 'testcases for <code>%1</code>')
		tests[new_key], tests[k] = v, nil
	end
end

return tests