Module:fa-translit/testcases

---

The following documentation is located at Module:fa-translit/testcases/documentation. ^[edit]

Useful links: root page • root page’s subpages • links • transclusions • tested module • sandbox

This is the unit-testing module for Module:fa-translit.

All tests passed. (refresh)

test_translit_persian:

	Text	Expected	Actual	Differs at
	گویَا کِه	gōyā ki / guyâ ke	gōyā ki / guyâ ke
	حُقُوق	huqūq / hoğuğ	huqūq / hoğuğ
	دَقِیقَه	daqīqa / dağiğe	daqīqa / dağiğe
	خْوَرَاسَان	xwarāsān / xorâsân	xwarāsān / xorâsân
	خْویش	xwēš / xiš	xwēš / xiš
	روز	rōz / ruz	rōz / ruz
	وَلیکِن	walēkin / valiken	walēkin / valiken
	شُویْ	šūy / šuy	šūy / šuy
	شویْ	šōy / šuy	šōy / šuy
	شِیر	šīr / šir	šīr / šir
	شیر	šēr / šir	šēr / šir
	شَوْهَر	šawhar / šowhar	šawhar / šowhar
	کَسی	kasē / kasi	kasē / kasi
	گویِش	gōyiš / guyeš	gōyiš / guyeš
	بَیْنُ‌المِلَلِی	baynu-l-milalī / beyno-l-melali	baynu-l-milalī / beyno-l-melali
	شَوِی	šawī / šavi	šawī / šavi
	شِوِی	šiwī / ševi	šiwī / ševi
	شُوی	šuwē / šovi	šuwē / šovi
	خْوَدْرَو	xwadraw / xodrow	xwadraw / xodrow
	حقوق	(nil)	(nil)	N/A
	عشق	(nil)	(nil)	N/A
	نَمی‌دَانَم / نِمی‌دَانَم	namē-dānam / nemi-dânam	namē-dānam / nemi-dânam
	خَانَگِی / خَانِگِی	xānagī / xânegi	xānagī / xânegi
	موز / مَوْز	mōz / mowz	mōz / mowz

-- Unit tests for [[Module:fa-translit]]. Refresh page to run tests.
local tests = require('Module:UnitTests')
local fa_translit = require('Module:fa-translit')

local full_link = require('Module:links').full_link
local fa = require('Module:languages').getByCode('fa')
local trsp = "<span class=\"Zsym mention\" style=\"font-size:100%;\">&nbsp;/ </span>"

local rlm = require("Module:string/char")(0x200F) -- right-to-left mark

local function link(word)
	return full_link{ term = word, lang = fa, tr = "-" }
end

--TO DO
function tests:do_test_translit(arab, roman)
	self:equals(link(arab), fa_translit.tr(arab, 'fa', 'Persian'), roman)
end

function tests:test_translit_persian()
	local examples = {
		{ 'گویَا کِه', 'gōyā ki' .. trsp .. 'guyâ ke' },
		{ 'حُقُوق', 'huqūq' .. trsp .. 'hoğuğ' },
		{ 'دَقِیقَه', 'daqīqa' .. trsp .. 'dağiğe' },
		{ 'خْوَرَاسَان', 'xwarāsān' .. trsp .. 'xorâsân' },
		{ 'خْویش', 'xwēš' .. trsp .. 'xiš' },
		{ 'روز', 'rōz' .. trsp .. 'ruz' },
		{ 'وَلیکِن', 'walēkin' .. trsp .. 'valiken' },
		{ 'شُویْ', 'šūy' .. trsp .. 'šuy' },
		{ 'شویْ', 'šōy' .. trsp .. 'šuy' },
		{ 'شِیر', 'šīr' .. trsp .. 'šir' },
		{ 'شیر', 'šēr' .. trsp .. 'šir' },
		{ 'شَوْهَر', 'šawhar' .. trsp .. 'šowhar' },
		{ 'کَسی', 'kasē' .. trsp .. 'kasi' },
		{ 'گویِش', 'gōyiš' .. trsp .. 'guyeš' },
		{ 'بَیْنُ‌المِلَلِی', 'baynu-l-milalī' .. trsp .. 'beyno-l-melali' },
		{ 'شَوِی', 'šawī' .. trsp .. 'šavi' },
		{ 'شِوِی', 'šiwī' .. trsp .. 'ševi' },
		{ 'شُوی', 'šuwē' .. trsp .. 'šovi' },
		{ 'خْوَدْرَو', 'xwadraw' .. trsp .. 'xodrow' },
		-- should return nil
		{ 'حقوق', nil },
		{ 'عشق', nil },
		-- tests for vocalization override
		{ 'نَمی‌دَانَم//نِمی‌دَانَم', 'namē-dānam' .. trsp .. 'nemi-dânam' },
		{ 'خَانَگِی//خَانِگِی', 'xānagī' .. trsp .. 'xânegi' },
		{ 'موز//مَوْز', 'mōz' .. trsp .. 'mowz' },
		}
		self:iterate(examples, "do_test_translit")
end	

return tests