local p = require("Module:UnitTests")
local m_pron = require("Module:hak-pron/sandbox")

function p:test_IPA_conv()
	local examples = {
        { "cinˋ senˋ", "Hailu", "t͡sʰin⁵³ sen⁵³" },
        { "piˋ zhunˊ", "Hailu", "pʰi⁵³ t͡ʃun²⁴" },
        { "ciuˋ guiˇ", "Hailu", "t͡sʰiu⁵³ kui¹¹" },
        { "goˋ kiug", "Hailu", "ko⁵³ kʰiuk⁵" },
        { "sinˋ ngiong", "Hailu", "sin⁵³ ŋioŋ⁵⁵" },
        { "boˋ long˖", "Hailu", "po⁵³ loŋ³³" },
        { "fungˋ siugˋ", "Hailu", "fuŋ⁵³ siuk²" },
        { "foˊ sanˋ", "Hailu", "fo²⁴⁻³³ san⁵³" },
        { "gieuˊ guˊ", "Hailu", "kieu²⁴⁻³³ ku²⁴" },
        { "shiuˊ boiˇ", "Hailu", "ʃiu²⁴⁻³³ poi¹¹" },
        { "siauˊ shod", "Hailu", "siau²⁴⁻³³ ʃot⁵" },
        { "zhimˊ teu", "Hailu", "t͡ʃim²⁴⁻³³ tʰeu⁵⁵" },
        { "siˊ cui˖", "Hailu", "si²⁴⁻³³ t͡sʰui³³" },
        { "daˊ liabˋ", "Hailu", "ta²⁴⁻³³ liap²" },
        { "seˇ goˋ", "Hailu", "se¹¹ ko⁵³" },
        { "boiˇ ginˊ", "Hailu", "poi¹¹ kin²⁴" },
        { "sheˇ gaiˇ", "Hailu", "ʃe¹¹ kai¹¹" },
        { "seuˇ ngiug", "Hailu", "seu¹¹ ŋiuk⁵" },
        { "laiˇ er", "Hailu", "lai¹¹ ə⁵⁵" },
        { "chauˇ mui˖", "Hailu", "t͡ʃʰau¹¹ mui³³" },
        { "biongˇ hogˋ", "Hailu", "pioŋ¹¹ hok²" },
        { "hag gaˋ", "Hailu", "hak⁵⁻² ka⁵³" },
        { "ded ziongˊ", "Hailu", "tet⁵⁻² t͡sioŋ²⁴" },
        { "rhid banˇ", "Hailu", "ʒit⁵⁻² pan¹¹" },
        { "fad gog", "Hailu", "fat⁵⁻² kok⁵" },
        { "ab er", "Hailu", "ap⁵⁻² ə⁵⁵" },
        { "fab tu˖", "Hailu", "fap⁵⁻² tʰu³³" },
        { "chud ngibˋ", "Hailu", "t͡ʃʰut⁵⁻² ŋip²" },
        { "ngien dungˋ", "Hailu", "ŋien⁵⁵ tuŋ⁵³" },
        { "nam ziiˊ", "Hailu", "nam⁵⁵ t͡sɨ²⁴"},
        { "ki guaiˇ", "Hailu", "kʰi⁵⁵ kuai¹¹"},
        { "fung sed", "Hailu", "fuŋ⁵⁵ set⁵"},
        { "ngiau pin", "Hailu", "ŋiau⁵⁵ pʰin⁵⁵"},
        { "piang ti˖", "Hailu", "pʰiaŋ⁵⁵ tʰi³³"},
        { "nung rhogˋ", "Hailu", "nuŋ⁵⁵ ʒok²" },
	}
	self:iterate(examples, function (self, text, dialect, expected)
		self:equals(text, m_pron.hrs_to_ipa(text, dialect), expected)
	end)
end

return p