Module:nan-pron/testcases

-- Unit tests for ]. Refresh page to run tests.
local tests = require('Module:UnitTests')
local m_n = require('Module:nan-pron')

function tests:check_daibuun(poj,psdb)
	self:equals(poj, m_n.poj_to_psdb_conv(poj), psdb)
end

function tests:check_tl(poj,tl)
	self:equals(poj, m_n.poj_to_tl_conv(poj), tl)
end

function tests:check_pengim(pengim,ipa)
	self:equals(pengim, m_n.pengim_to_ipa_conv(pengim), '/' .. ipa .. '/')
end

function tests:check_teochew_poj(pengim,poj)
	self:equals(pengim, m_n.pengim_to_pojlike_conv(pengim), poj)
end

function tests:test_daibuun()
	self:check_daibuun('î-á', 'i\'ar') -- ?diff=38882162
	self:check_daibuun('sian-siⁿ kóng ha̍k-seng tiām-tiām thiaⁿ', 'siensvy korng hagsefng diaxmdiam tviaf')
	self:check_daibuun('kin-á-jit hit-ê cha-bó͘ gín-á lâi góan tau khòaⁿ góa', 'kin\'afjid hit\'ee za\'bor gyn\'ar laai goarn daw qvoax goar')
	self:check_daibuun('thài-khong pêng-iú lín-hó lín chia̍h-pá--bē êng to̍h lâi gún chia chē--ô͘', 'tae\'qofng peng\'iuo lynhoir lien ciaqpaf~be eeng doih laai guon ciaf zex~o')
	self:check_daibuun('tē-it tiâu', 'dexid diaau')
	self:check_daibuun('lán-lâng seⁿ--lâi chū-iû', 'lafnlaang sve~lai zuxiuu')
	self:check_daibuun('tī chun-giâm kah khoân-lī siōng it-lu̍t pêng-téng', 'di zun\'giaam kaq qoanli siong itlut pengdeang')
	self:check_daibuun('lán-lâng ū lí-sèng kah liông-sim', 'lafnlaang u lysexng kaq liongsym')
	self:check_daibuun('jî-chhiaⁿ èng-kai í hiaⁿ-tī koan-hē ê cheng-sîn lâi hō͘-siong tùi-thāi', 'jichviaf eangkay ie hvia\'di koanhe ee zengsiin laai hoxsiofng duie\'tai')
	self:check_daibuun('pe̍h-ōe-jī','peq\'oexji')
	self:check_daibuun('káu','kao')
	self:check_daibuun('chúi','zuie')
	self:check_daibuun('khǹg','qngx')
	self:check_daibuun('hóe','hoea')
	self:check_daibuun('hóe-chhia','hoefchiaf')
	self:check_daibuun('hóe-chhia-chām','hoefchiazam')
	self:check_daibuun('hóe-chhia-chām-tiúⁿ','hoefchiazaxmdviuo')
	self:check_daibuun('hóe-chhia-chām-tiúⁿ-sek','hoefchiazaxmdviwseg')

	self:check_daibuun('a ba cha chha ga ha ka kha la ma na nga pa pha sa ta tha aⁿ chaⁿ chhaⁿ haⁿ kaⁿ khaⁿ phaⁿ saⁿ taⁿ thaⁿ ah bah chah chhah hah kah khah lah nah pah phah sah tah thah hahⁿ sahⁿ ai bai chai chhai gai hai kai khai lai mai nai ngai pai phai sai tai thai aiⁿ chaiⁿ haiⁿ kaiⁿ khaiⁿ phaiⁿ taiⁿ ak bak chak chhak gak hak kak khak lak pak phak sak tak thak am cham chham gam ham kam kham lam sam tam tham an ban chan chhan gan han kan khan lan pan phan san tan than ang bang chang chhang gang hang kang khang lang pang phang sang tang thang ap chap chhap hap kap khap lap sap tap thap at bat chat chhat hat kat khat lat pat sat tat that au bau chau chhau gau hau kau khau lau mau nau ngau pau phau sau tau thau chhauh kauh lauh mauh nauh phauh tauh e be che chhe ge he ke khe le me ne nge pe phe se te the eⁿ cheⁿ chheⁿ heⁿ keⁿ kheⁿ peⁿ pheⁿ seⁿ teⁿ theⁿ eh beh cheh chheh heh keh kheh leh meh neh ngeh peh seh teh theh hehⁿ khehⁿ ek bek chek chhek gek hek kek lek pek phek sek tek thek eng beng cheng chheng geng heng keng kheng leng peng pheng seng teng theng i bi chi chhi gi hi ji ki khi li mi ni pi phi si ti thi iⁿ chiⁿ chhiⁿ hiⁿ kiⁿ khiⁿ siⁿ tiⁿ thiⁿ ia chia chhia gia hia jia kia khia mia nia ngia sia tia iaⁿ chiaⁿ chhiaⁿ hiaⁿ kiaⁿ piaⁿ siaⁿ tiaⁿ thiaⁿ iah chiah chhiah giah hiah kiah khiah liah piah phiah siah tiah thiah hiahⁿ chhiak khiak piak phiak siak tiak iam chiam chhiam giam hiam jiam kiam khiam liam siam tiam thiam ian bian chian chhian gian hian jian kian khian lian pian phian sian tian thian iang chiang chhiang giang hiang jiang khiang liang piang phiang siang iap chiap chhiap giap hiap jiap kiap khiap liap siap tiap thiap iat biat chiat chhiat giat hiat jiat kiat khiat liat piat phiat siat tiat thiat iau biau chiau chhiau giau hiau jiau kiau khiau liau miau niau ngiau piau phiau siau tiau thiau iauⁿ hiauh khiauh ngiauh bih chih chhih khih mih nih pih phih sih tih thih im chim chhim gim him jim kim khim lim sim tim thim in bin chin chhin gin hin jin kin khin lin pin phin sin tin thin io bio chio chhio gio hio jio kio khio lio pio phio sio tio thio ioh chioh chhioh gioh hioh kioh khioh lioh sioh tioh iok chiok chhiok giok hiok jiok kiok khiok liok siok tiok thiok iong chiong chhiong giong hiong jiong kiong khiong liong siong tiong thiong ip chip chhip hip jip kip khip lip sip it bit chit chhit hit jit kit khit pit phit sit tit iu biu chiu chhiu giu hiu jiu kiu khiu liu niu piu siu tiu thiu iuⁿ chiuⁿ chhiuⁿ hiuⁿ kiuⁿ khiuⁿ siuⁿ tiuⁿ iuhⁿ hiuhⁿ m hm hmh ng chng chhng hng kng khng mng nng png sng tng thng chhngh hngh phngh sngh o bo cho chho go ho ko kho lo po pho so to tho oⁿ hoⁿ koⁿ o͘ bo͘ cho͘ chho͘ go͘ ho͘ ko͘ kho͘ lo͘ mo͘ no͘ ngo͘ po͘ pho͘ so͘ to͘ tho͘ oa boa choa chhoa goa hoa koa khoa loa moa noa poa phoa soa toa thoa oaⁿ chhoaⁿ hoaⁿ koaⁿ khoaⁿ poaⁿ phoaⁿ soaⁿ toaⁿ thoaⁿ oah boah choah chhoah hoah joah koah khoah loah poah phoah soah thoah oai hoai koai khoai soai oaiⁿ choaiⁿ hoaiⁿ koaiⁿ soaiⁿ oan boan choan chhoan goan hoan koan khoan loan poan phoan soan toan thoan oang chhoang oat boat choat goat hoat koat khoat loat poat phoat soat toat thoat oe boe choe chhoe goe hoe joe koe khoe loe poe phoe soe toe oeh boeh goeh hoeh koeh khoeh poeh phoeh soeh oh choh chhoh hoh koh loh poh phoh soh toh thoh mo͘h ohⁿ hohⁿ ok bok chok chhok gok hok kok khok lok pok phok sok tok thok om som tom ong bong chong chhong gong hong kong khong long pong phong song tong thong u bu chu chhu gu hu ju ku khu lu pu phu su tu thu uh chuh chhuh khuh puh phuh tuh thuh ui bui chui chhui gui hui kui khui lui mui pui phui sui tui thui un bun chun chhun gun hun jun kun khun lun pun phun sun tun thun ut but chut chhut hut kut khut lut put phut sut tut thut','af baf zaf zhaf gaf haf kaf qaf laf maf naf ngaf paf phaf saf daf taf vaf zvaf zhvaf hvaf kvaf qvaf phvaf svaf dvaf tvaf aq baq zaq zhaq haq kaq qaq laq naq paq phaq saq daq taq hvaq svaq ay bay zay zhay gay hay kay qay lay may nay ngay pay phay say day tay vay zvay hvay kvay qvay phvay dvay ag bag zag zhag gag hag kag qag lag pag phag sag dag tag afm zafm zhafm gafm hafm kafm qafm lafm safm dafm tafm afn bafn zafn zhafn gafn hafn kafn qafn lafn pafn phafn safn dafn tafn afng bafng zafng zhafng gafng hafng kafng qafng lafng pafng phafng safng dafng tafng ab zab zhab hab kab qab lab sab dab tab ad bad zad zhad had kad qad lad pad sad dad tad aw baw zaw zhaw gaw haw kaw qaw law maw naw ngaw paw phaw saw daw taw zhauq kauq lauq mauq nauq phauq dauq ef bef zef zhef gef hef kef qef lef mef nef ngef pef phef sef def tef vef zvef zhvef hvef kvef qvef pvef phvef svef dvef tvef eq beq zeq zheq heq keq qeq leq meq neq ngeq peq seq deq teq hveq qveq eg beg zeg zheg geg heg keg leg peg pheg seg deg teg efng befng zefng zhefng gefng hefng kefng qefng lefng pefng phefng sefng defng tefng y by cy chy gy hy jy ky qy ly my ny py phy sy dy ty vy cvy chvy hvy kvy qvy svy dvy tvy iaf ciaf chiaf giaf hiaf jiaf kiaf qiaf miaf niaf ngiaf siaf diaf viaf cviaf chviaf hviaf kviaf pviaf sviaf dviaf tviaf iaq ciaq chiaq giaq hiaq kiaq qiaq liaq piaq phiaq siaq diaq tiaq hviaq chiag qiag piag phiag siag diag iafm ciafm chiafm giafm hiafm jiafm kiafm qiafm liafm siafm diafm tiafm iefn biefn ciefn chiefn giefn hiefn jiefn kiefn qiefn liefn piefn phiefn siefn diefn tiefn iafng ciafng chiafng giafng hiafng jiafng qiafng liafng piafng phiafng siafng iab ciab chiab giab hiab jiab kiab qiab liab siab diab tiab iad biad ciad chiad giad hiad jiad kiad qiad liad piad phiad siad diad tiad iaw biaw ciaw chiaw giaw hiaw jiaw kiaw qiaw liaw miaw niaw ngiaw piaw phiaw siaw diaw tiaw viaw hiauq qiauq ngiauq biq ciq chiq qiq miq niq piq phiq siq diq tiq ym cym chym gym hym jym kym qym lym sym dym tym yn byn cyn chyn gyn hyn jyn kyn qyn lyn pyn phyn syn dyn tyn ioy bioy cioy chioy gioy hioy jioy kioy qioy lioy pioy phioy sioy dioy tioy ioiq cioiq chioiq gioiq hioiq kioiq qioiq lioiq sioiq dioiq iog ciog chiog giog hiog jiog kiog qiog liog siog diog tiog iofng ciofng chiofng giofng hiofng jiofng kiofng qiofng liofng siofng diofng tiofng ib cib chib hib jib kib qib lib sib id bid cid chid hid jid kid qid pid phid sid did iw biw ciw chiw giw hiw jiw kiw qiw liw niw piw siw diw tiw viw cviw chviw hviw kviw qviw sviw dviw viuq hviuq mf hmf hmq ngf zngf zhngf hngf kngf qngf mngf nngf pngf sngf dngf tngf zhngq hngq phngq sngq oy boy zoy zhoy goy hoy koy qoy loy poy phoy soy doy toy vof hvof kvof of bof zof zhof gof hof kof qof lof mof nof ngof pof phof sof dof tof oaf boaf zoaf zhoaf goaf hoaf koaf qoaf loaf moaf noaf poaf phoaf soaf doaf toaf voaf zhvoaf hvoaf kvoaf qvoaf pvoaf phvoaf svoaf dvoaf tvoaf oaq boaq zoaq zhoaq hoaq joaq koaq qoaq loaq poaq phoaq soaq toaq oay hoay koay qoay soay voay zvoay hvoay kvoay svoay oafn boafn zoafn zhoafn goafn hoafn koafn qoafn loafn poafn phoafn soafn doafn toafn oafng zhoafng oad boad zoad goad hoad koad qoad load poad phoad soad doad toad oef boef zoef zhoef goef hoef joef koef qoef loef poef phoef soef doef oeq boeq goeq hoeq koeq qoeq poeq phoeq soeq oiq zoiq zhoiq hoiq koiq loiq poiq phoiq soiq doiq toiq moq voq hvoq og bog zog zhog gog hog kog qog log pog phog sog dog tog ofm sofm dofm ofng bofng zofng zhofng gofng hofng kofng qofng lofng pofng phofng sofng dofng tofng w bw zw zhw gw hw jw kw qw lw pw phw sw dw tw uq zuq zhuq quq puq phuq duq tuq uy buy zuy zhuy guy huy kuy quy luy muy puy phuy suy duy tuy wn bwn zwn zhwn gwn hwn jwn kwn qwn lwn pwn phwn swn dwn twn ud bud zud zhud hud kud qud lud pud phud sud dud tud')
end

function tests:test_tl()
	--ek/ik
	self:check_tl('sek', 'sik')
	self:check_tl('se̍k', 'si̍k')
	self:check_tl('Ek', 'Ik')
	self:check_tl('E̍k', 'I̍k')

	--eng/ing
	self:check_tl('ha̍k-seng', 'ha̍k-sing')
	self:check_tl('hoán-séng', 'huán-síng')
	self:check_tl('Eng-bûn', 'Ing-bûn')
	self:check_tl('Éng-hióng', 'Íng-hióng')

	--oa/ua
	self:check_tl('hoa', 'hua')
	self:check_tl('hóa', 'huá')
	self:check_tl('hoan-gêng', 'huan-gîng')
	self:check_tl('hoán-khòng', 'huán-khòng')
	self:check_tl('Oan', 'Uan')
	self:check_tl('Oa̍t-lâm', 'Ua̍t-lâm')

	--o͘/oo
	self:check_tl('to͘-ha̍p', 'too-ha̍p')
	self:check_tl('tô͘', 'tôo')
	self:check_tl('O͘', 'Oo')
	self:check_tl('Ó͘', 'Óo')

	--ⁿ/nn
	self:check_tl('it-poaⁿ', 'it-puann')
	self:check_tl('kóaⁿ', 'kuánn')
	self:check_tl('hohⁿ', 'honnh')

	--ch/ts
	self:check_tl('chia̍h', 'tsia̍h')
	self:check_tl('Chia̍h', 'Tsia̍h')
end

function tests:test_pengim()
	self:check_pengim('diên1', 'tĩẽ³³')
end

function tests:test_teochew_poj()
	self:check_teochew_poj('rig8 rib8', 'ji̍k ji̍p')
	self:check_teochew_poj('beng2', 'pṳ́ng')
	self:check_teochew_poj('mêng5', 'mêng')

	self:check_teochew_poj('ug8 ngh8 in6 inh8', 'u̍k n̍gh ĭⁿ i̍hⁿ')

	self:check_teochew_poj('suain7', 'suāiⁿ')
	self:check_teochew_poj('sai2', 'sái')
	self:check_teochew_poj('sia2', 'siá')
	self:check_teochew_poj('gao3', 'kàu')
	self:check_teochew_poj('ghua7', 'guā')
	self:check_teochew_poj('bhê2', 'bé')
	self:check_teochew_poj('a3', 'à')
	self:check_teochew_poj('ng5', 'n̂g')
	self:check_teochew_poj('m6', 'm̆')
end
 
return tests