模組:th-translit/testcases

---

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

function tests:do_test_translit(thai, roman, xlit)
	self:equals('<span class="Thai" lang="th">[[' .. mw.ustring.gsub(mw.ustring.gsub(thai, "ฺ", ""), "%-", "") .. '#Thai|' .. mw.ustring.gsub(mw.ustring.gsub(thai, "ฺ", ""), "%-", "") .. ']]</span>', th_translit.translit(thai, 'th', 'Thai', 'paiboon', 'translit-module'), roman)
end

function tests:test_translit_thai()
	self:do_test_translit('เฮิ็้ย', 'hə́i')
	self:do_test_translit('เฉิ็ย', 'chə̌i')
	self:do_test_translit('เงิ็น', 'ngən')
	self:do_test_translit('เกดส', 'gèets') --เกตส์ (Gates)
	self:do_test_translit('มันส', 'mans') --มันส์
	self:do_test_translit('ไอ๊ส', 'áis') --ไอซ์ (ice)
	self:do_test_translit('เซ็กส', 'séks') --เซ็กส์ (sex)
	self:do_test_translit('เอ็๊กส', 'éks') --เอกซ์ & เอ็กซ์ & เอ๊กซ์ (ex)
	self:do_test_translit('เฮ้าส', 'háos') --เฮาส์ & เฮ้าส์ (house)
	self:do_test_translit('เม้าส', 'máos') --เมาส์ & เม้าส์ (mouse)
	self:do_test_translit('ทฺรำ-เป็ด', 'tram-bpèt') --ทรัมเป็ต
	self:do_test_translit('ห็อย', 'hɔ̌i')
	self:do_test_translit('หฺม็อย', 'mɔ̌i')
	self:do_test_translit('หฺมั่น-โถว', 'màn-tǒow')
	self:do_test_translit('เด๊ด-สะ-มอ-เร่', 'déet-sà-mɔɔ-rêe')
	self:do_test_translit('เห', 'hěe')
	self:do_test_translit('แคฺล', 'klɛɛ')
	self:do_test_translit('แคล', 'kɛɛl')
	self:do_test_translit('เพฺล', 'plee')
	self:do_test_translit('เพล', 'peel')
	self:do_test_translit('เปฺล', 'bplee')
	self:do_test_translit('เปล', 'bpeel')
	self:do_test_translit('เบล', 'beel')
	self:do_test_translit('เซล', 'seel')
	self:do_test_translit('โพล', 'pool')
	self:do_test_translit('รา-ชา-ทิ-ราด', 'raa-chaa-tí-râat')
	self:do_test_translit('ขฺวน-ขฺวาย', 'kwǒn-kwǎai') --ขวนขวาย Only the word ขวน read as kwǒn instead of kǔuan.
	self:do_test_translit('ข่วน', 'kùuan')
	self:do_test_translit('หอน', 'hɔ̌ɔn')
	self:do_test_translit('โหน', 'hǒon') -- ห้อยโหน homograph issue
	self:do_test_translit('สะ-โหฺน', 'sà-nǒo') -- โสน homograph issue
	self:do_test_translit('แหน', 'hɛ̌ɛn') -- หวงแหน homograph issue
	self:do_test_translit('แหฺน', 'nɛ̌ɛ') -- จอกแหน homograph issue
	self:do_test_translit('แถ็ว', 'tɛ̌o') -- แถว
	self:do_test_translit('ซวง', 'suuang')
	self:do_test_translit('น้ำ', 'nám')
	self:do_test_translit('หฺมาย', 'mǎai')
	self:do_test_translit('แห็่ง', 'hɛ̀ng')
	self:do_test_translit('หน', 'hǒn')
	self:do_test_translit('เหด-สุด-วิ-ไส', 'hèet-sùt-wí-sǎi')
	self:do_test_translit('ไหฺย่', 'yài')
	self:do_test_translit('หก', 'hòk')
	self:do_test_translit('หอย', 'hɔ̌ɔi')
	self:do_test_translit('กับ', 'gàp')
	self:do_test_translit('ธรรม', 'tam')
	self:do_test_translit('ปฺระ-ชา', 'bprà-chaa')
	self:do_test_translit('นะ-คอน', 'ná-kɔɔn')
	self:do_test_translit('บาด', 'bàat')
	self:do_test_translit('บ้า', 'bâa')
	self:do_test_translit('แข็ง', 'kɛ̌ng')
	self:do_test_translit('แกะ', 'gɛ̀')
	self:do_test_translit('แดง', 'dɛɛng')
	self:do_test_translit('แปฺล', 'bplɛɛ')
	self:do_test_translit('ผฺล็อง', 'plɔ̌ng')
	self:do_test_translit('เกาะ', 'gɔ̀')
	self:do_test_translit('นอน', 'nɔɔn')
	self:do_test_translit('พ่อ', 'pɔ̂ɔ')
	self:do_test_translit('เห็ด', 'hèt')
	self:do_test_translit('เล็่น', 'lên')
	self:do_test_translit('เตะ', 'dtè')
	self:do_test_translit('เพฺลง', 'pleeng')
	self:do_test_translit('เท-วี', 'tee-wii')
	self:do_test_translit('เยอะ', 'yə́')
	self:do_test_translit('เดิน', 'dəən')
	self:do_test_translit('เผฺลอ', 'plə̌ə')
	self:do_test_translit('ตก', 'dtòk')
	self:do_test_translit('โต๊ะ', 'dtó')
	self:do_test_translit('โชค', 'chôok')
	self:do_test_translit('โม-โห', 'moo-hǒo')
	self:do_test_translit('คิด', 'kít')
	self:do_test_translit('มิ-ถุน', 'mí-tǔn')
	self:do_test_translit('หิ-มะ', 'hì-má')
	self:do_test_translit('อีก', 'ìik')
	self:do_test_translit('จี้', 'jîi')
	self:do_test_translit('ลึก', 'lʉ́k')
	self:do_test_translit('รึ', 'rʉ́')
	self:do_test_translit('กฺลืน', 'glʉʉn')
	self:do_test_translit('ชื่อ', 'chʉ̂ʉ')
	self:do_test_translit('คุก', 'kúk')
	self:do_test_translit('จุ-ฬา', 'jù-laa')
	self:do_test_translit('ลูก', 'lûuk')
	self:do_test_translit('ปู', 'bpuu')
	self:do_test_translit('เดี๊ยะ', 'día')
	self:do_test_translit('เปาะ-เปี๊ยะ', 'bpɔ̀-bpía')
	self:do_test_translit('ปอ-เปี๊ยะ', 'bpɔɔ-bpía')
	self:do_test_translit('เปฺรี๊ยะ', 'bpría')
	self:do_test_translit('เตียง', 'dtiiang')
	self:do_test_translit('เมีย', 'miia')
	self:do_test_translit('เอือะ', 'ʉ̀a')
	self:do_test_translit('เรื่อง', 'rʉ̂ʉang')
	self:do_test_translit('เรือ', 'rʉʉa')
	self:do_test_translit('ผฺลัวะ', 'plùa')
	self:do_test_translit('นวด', 'nûuat')
	self:do_test_translit('ตัว', 'dtuua')
	self:do_test_translit('ไม่', 'mâi')
	self:do_test_translit('ใส่', 'sài')
	self:do_test_translit('วัย', 'wai')
	self:do_test_translit('ไทย', 'tai')
	self:do_test_translit('ไม้', 'mái')
	self:do_test_translit('หาย', 'hǎai')
	self:do_test_translit('ผฺล็อย', 'plɔ̌i')
	self:do_test_translit('ซอย', 'sɔɔi')
	self:do_test_translit('เลย', 'ləəi')
	self:do_test_translit('โดย', 'dooi')
	self:do_test_translit('ทุย', 'tui')
	self:do_test_translit('เหฺนื่อย', 'nʉ̀ai')
	self:do_test_translit('สวย', 'sǔai')
	self:do_test_translit('เรา', 'rao')
	self:do_test_translit('ขาว', 'kǎao')
	self:do_test_translit('แมว', 'mɛɛo')
	self:do_test_translit('เกอว', 'gəəo')
	self:do_test_translit('เร็ว', 'reo')
	self:do_test_translit('เอว', 'eeo')
	self:do_test_translit('หิว', 'hǐu')
	self:do_test_translit('เขียว', 'kǐao')
	self:do_test_translit('ทำ', 'tam')
end
 
return tests