Module:hy-pronunciation/testcases

local p = require('Module:UnitTests')
local m_hy_pron = require('Module:hy-pronunciation')
local lang = require("Module:languages").getByCode("hy")

function link(term)
    return require("Module:links").full_link {
        term = term,
        lang = lang
    }
end

local function tag_IPA(IPA)
	return '<span class="IPA">' .. IPA .. '</span>'
end

local options = { display = tag_IPA, comment = true }

function p:check_pron(word, east_ipa, west_ipa, phonetic)
	local function do_word(ipa, system)
		local ipa
		if phonetic then ipa = m_hy_pron.phonetic_IPA(word, system) else ipa = m_hy_pron.phonemic_IPA(word, system) end
		self:equals(
			{link(word)},
			ipa,
			ipa,
			options
		)
	end
	do_word(east_ipa, "east")
	if west_ipa then
		do_word(west_ipa, "west")
	end
end

function p:test_phonemic_pron()
	local examples = {
		{ "հավ", "hɑv" },
		{ "շուն", "ʃun" },
		{ "կաթիլ", "kɑˈtʰil" },
		{ "մոծակ", "moˈt͡sɑk" },
		{ "ուխտ", "uχt" },
		{ "Գուդաու՛թա", "ɡudɑˈutʰɑ" },
		{ "էշ", "eʃ" },
		{ "մանըր", "ˈmɑnəɾ" },
		{ "աստըղ", "ˈɑstəʁ" },
		{ "ղըրղը՛զ", "ʁəɾˈʁəz" },
		{ "երակ", "jeˈɾɑk" },
		{ "անկարելի", "ɑnkɑɾeˈli" },
		{ "Մըկըրտիչ", "məkəɾˈtit͡ʃʰ" },
		{ "Աննա", "ɑnˈnɑ" },
		{ "մի՛թե", "ˈmitʰe" },
		{ "պաչիկ", "pɑˈt͡ʃʰik" },
		{ "Ա՛նգլիա", "ˈɑnɡliɑ" },
		{ "Պրա՛հա", "ˈpɾɑhɑ" },
		{ "ովասիս", "ovɑˈsis" },
		{ "բանեցնել", "bɑnet͡sʰˈnel" },
		{ "ափսուրդ", "ɑpʰˈsuɾd" },
		{ "հանձնել", "hɑnd͡zˈnel" },
		{ "Սեբեոս", "sebeˈos" },
		{ "յուան", "juˈɑn" },
		{ "քաոս", "kʰɑˈos" },
		{ "Ամերիկայի Միացյալ Նահանգներ", "ɑmeɾikɑˈji miɑˈt͡sʰjɑl nɑhɑnɡˈneɾ" },
		{ "թիակ", "tʰiˈɑk" },
		{ "մյուս", "mjus", "mʏs" },
		{ "հայուհի", "hɑjuˈhi", "hɑjuˈhi" },
		{ "Կույումջյան", "kujumˈd͡ʒjɑn", "ɡujumˈt͡ʃjɑn" },
		{ "որթեգ(ը)րում", "voɾtʰeɡ(ə)ˈɾum", "voɾtek(ə)ˈɾum" },
		{ "բացվածք", "bɑt͡sʰˈvɑt͡skʰ", "pɑt͡sˈvɑd͡zk" },
		{ "ամուսնացնել", "ɑmusnɑt͡sʰˈnel", "ɑmusnɑt͡səˈnel" },
		{ "գովք", "ɡovkʰ", "kovk" },
		{ "ծիծաղկոտ", "t͡sit͡sɑχˈkot", "d͡zid͡zɑʁˈɡod" },
		{ "աղտ", "ɑχt", "ɑʁd" },
		{ "ախպար", "ɑχˈpɑɾ", "ɑχˈbɑɾ" },
		{ "Կովկաս", "kofˈkɑs", "ɡovˈɡɑs" },
		{ "հըրեշտակ", "həɾeʃˈtɑk", "həɾeʃˈdɑɡ" },
		{ "ֆըշշալ", "fəʃˈʃɑl", "fəʃˈʃɑl" },
		{ "բրոունյան", "bɾouˈnjɑn", "pɾouˈnjɑn" },
		{ "օքտագործում", "okʰtɑɡoɾˈt͡sum", "okdɑkoɾˈd͡zum" },
		{ "օրհնյալ", "oɾhˈnjɑl", "oɾhˈnjɑl" },
		{ "հավատք", "hɑˈvɑtkʰ", "hɑˈvɑdk" },
		{ "վատթար", "vɑtˈtʰɑɾ", "vɑtˈtɑɾ" },
		{ "անկախություն", "ɑnkɑχuˈt͡sʰjun", "ɑnɡɑχuˈtʏn" },
		{ "շինանյութ", "ʃinɑˈnjutʰ", "ʃinɑˈnʏt"},
		{ "ոչ ոք", "vot͡ʃʰ vokʰ"},
		{ "ասվյա", "ɑsˈvjɑ"},
		{ "տարր", "tɑɾɾ"}
	}
	
	self:iterate(examples, "check_pron", false)
end

function p:test_phonetic_pron()
	local examples = {
		{ "հավ", "hɑv" },
		{ "շուն", "ʃun" },
		{ "կաթիլ", "kɑtʰíl" },
		{ "մոծակ", "mot͡sɑ́k" },
		{ "ուխտ", "uχt" },
		{ "Գուդաու՛թա", "ɡudɑútʰɑ" },
		{ "էշ", "eʃ" },
		{ "մանըր", "mɑ́nəɾ" },
		{ "աստըղ", "ɑ́stəʁ" },
		{ "ղըրղը՛զ", "ʁəɾʁə́z" },
		{ "երակ", "jeɾɑ́k" },
		{ "անկարելի", "ɑŋkɑɾelí" },
		{ "Մըկըրտիչ", "məkəɾtít͡ʃʰ" },
		{ "Աննա", "ɑnːɑ́" },
		{ "մի՛թե", "mítʰe" },
		{ "պաչիկ", "pɑt͡ʃʰík" },
		{ "Ա՛նգլիա", "ɑ́ŋɡli(j)ɑ" },
		{ "Պրա՛հա", "pɾɑ́hɑ" },
		{ "ովասիս", "ovɑsís" },
		{ "բանեցնել", "bɑnet͡sʰnél" },
		{ "ափսուրդ", "ɑpʰsúɾd" },
		{ "հանձնել", "hɑnd͡znél" },
		{ "Սեբեոս", "sebeós" },
		{ "յուան", "juɑ́n" },
		{ "քաոս", "kʰɑós" },
		{ "Ամերիկայի Միացյալ Նահանգներ", "ɑmeɾikɑjí mi(j)ɑt͡sʰjɑ́l nɑhɑŋɡnéɾ" },
		{ "թիակ", "tʰi(j)ɑ́k" },
		{ "մյուս", "mjus", "mʏs" },
		{ "հայուհի", "hɑjuhí", "hɑjuhí" },
		{ "Կույումջյան", "kujumd͡ʒjɑ́n", "ɡujumt͡ʃʰjɑ́n" },
		{ "որթեգ(ը)րում", "voɾtʰeɡ(ə)ɾúm", "voɾtʰekʰ(ə)ɾúm" },
		{ "բացվածք", "bɑt͡sʰvɑ́t͡skʰ", "pʰɑt͡sʰvɑ́t͡sʰkʰ" },
		{ "ամուսնացնել", "ɑmusnɑt͡sʰnél", "ɑmusnɑt͡sʰənél" },
		{ "գովք", "ɡofkʰ", "kʰofkʰ" },
		{ "ծիծաղկոտ", "t͡sit͡sɑχkót", "d͡zid͡zɑʁɡód" },
		{ "աղտ", "ɑχt", "ɑʁd" },
		{ "ախպար", "ɑχpɑ́ɾ", "ɑχpɑ́ɾ" },
		{ "Կովկաս", "kofkɑ́s", "ɡovɡɑ́s" },
		{ "հըրեշտակ", "həɾeʃtɑ́k", "həɾeʃtɑ́ɡ" },
		{ "ֆըշշալ", "fəʃːɑ́l", "fəʃːɑ́l" },
		{ "բրոունյան", "bɾounjɑ́n", "pʰɾounjɑ́n" },
		{ "օքտագործում", "okʰtɑɡoɾt͡súm", "okʰtɑkʰoɾd͡zúm" },
		{ "օրհնյալ", "oɾhnjɑ́l", "oɾhnjɑ́l" },
		{ "հավատք", "hɑvɑ́tkʰ", "hɑvɑ́tkʰ" },
		{ "վատթար", "vɑtʰːɑ́ɾ", "vɑtʰːɑ́ɾ" },
		{ "անկախություն", "ɑŋkɑχut͡sʰjún", "ɑŋɡɑχutʰʏ́n" },
		{ "շինանյութ", "ʃinɑnjútʰ", "ʃinɑnʏ́tʰ"},
		{ "ոչ ոք", "vot͡ʃʰ vokʰ"},
		{ "ասվյա", "ɑsvjɑ́"},
		{ "տարր", "tɑɹː"},
		{ "կեցցես", "ket̚t͡sʰés"},
		{ "պատճառ", "pɑt̚t͡ʃɑ́r", "bɑd̚d͡ʒɑ́r"}
	}
	
	self:iterate(examples, "check_pron", true)
end

return p