มอดูล:ConvertNumeric/sandbox/testcases

-- Unit tests for Module:ConvertNumeric/sandbox. Click talk page to run tests.
local p = require('Module:UnitTests/sandbox')
local frame = mw.getCurrentFrame()
local function get_error_text(wikitext)
	local message = frame:preprocess(wikitext):match('+>(.-)+>')
	message = message:match('at line %d+: (.+)%.$') or message
	return message
end
function p:test_numeral_to_thai()
	self:preprocess_equals_many(, , {
		{'0', 'ศูนย์'},
		{'1', 'หนึ่ง'},
		{' 1 ', 'หนึ่ง'}, -- test whitespace around number
		{'1 | case=u', 'หนึ่ง'},
		{'1 | case=U', 'หนึ่ง'},
		{'-1', 'ลบหนึ่ง'},
		{'-1 | negative=minus', 'ลบหนึ่ง'},
		{'-1 | negative=ติดลบ', 'ติดลบหนึ่ง'},
		{'70', 'เจ็ดสิบ'},
		{'42', 'สี่สิบสอง'},
		{'61', 'หกสิบเอ็ด'},
		{'101', 'หนึ่งร้อยเอ็ด'},
		{'123', 'หนึ่งร้อยยี่สิบสาม'},
		{'123 | sp=us', 'หนึ่งร้อยยี่สิบสาม'},
		{'123 | adj=on', 'หนึ่งร้อยยี่สิบสาม'},
		{'1050', 'หนึ่งพันห้าสิบ'},
		{'1050 | sp=us', 'หนึ่งพันห้าสิบ'},
		{'0.25', 'ศูนย์จุดสองห้า'},
		{'.25', 'ศูนย์จุดสองห้า'},
		{'0 | ord=on', 'ศูนย์'},
		{'33 | ord=on', 'สามสิบสาม'},
		{'40 | ord=on', 'สี่สิบ'},
		{'5000000000 | ord=on', 'ห้าพันล้าน'},
		{'0 | pl=on', 'ศูนย์'},
		{'76 | pl=on', 'เจ็ดสิบหก'},
		{'1000000000000000000000000000001', 'หนึ่งล้านล้านล้านล้านล้านเอ็ด'},
		{'1.23E3', 'หนึ่งพันสองร้อยสามสิบ'},
		{'123E-4', 'ศูนย์จุดศูนย์หนึ่งสองสาม'},
		{'5E30', 'ห้าล้านล้านล้านล้านล้าน'},
		{'-123456789.25', 'ลบหนึ่งร้อยยี่สิบสามล้านสี่แสนห้าหมื่นหกพันเจ็ดร้อยแปดสิบเก้าจุดสองห้า'},
		{'0 | zero=foo', 'foo'},
		{'0 | ord=on | zero=none', 'none'},
		{'0 | ord=on | zero=', },
		{'1 | numerator=2 | denominator=3', 'หนึ่งเศษสองส่วนสาม'},
		{'| numerator=2 | denominator=3', 'เศษสองส่วนสาม'},
		{'1 | denominator=2', 'หนึ่งเศษหนึ่งส่วนสอง'},
		{'1 | numerator=3 | denominator=2', 'หนึ่งเศษสามส่วนสอง'},
		{'1 | numerator=1 | denominator=4', 'หนึ่งเศษหนึ่งส่วนสี่'},
		{'9 | numerator=3 | denominator=4', 'เก้าเศษสามส่วนสี่'},
	})
end
function p:test_numeral_to_english()
	self:preprocess_equals_many(, , {
		{'0', 'zero'},
		{'1', 'one'},
		{' 1 ', 'one'}, -- test whitespace around number
		{'1 | case=u', 'One'},
		{'1 | case=U', 'One'},
		{'-1', 'negative one'},
		{'-1 | negative=minus', 'minus one'},
		{'70', 'seventy'},
		{'42', 'forty-two'},
		{'123', 'one hundred and twenty-three'},
		{'123 | sp=us', 'one hundred twenty-three'},
		{'123 | adj=on', 'one-hundred-and-twenty-three'},
		{'1050', 'one thousand and fifty'},
		{'1050 | sp=us', 'one thousand fifty'},
		{'0.25', 'zero point two five'},
		{'.25', 'zero point two five'},
		{'0 | ord=on', 'zeroth'},
		{'33 | ord=on', 'thirty-third'},
		{'40 | ord=on', 'fortieth'},
		{'5000000000 | ord=on', 'five billionth'},
		{'0 | pl=on', 'zeros'},
		{'76 | pl=on', 'seventy-sixes'},
		{'1000000000000000000000000000001', 'one nonillion and one'},
		{'1.23E3', 'one thousand two hundred and thirty'},
		{'123E-4', 'zero point zero one two three'},
		{'1001001001001000 | lk=on', 'one quadrillion one trillion one billion one million one thousand'},
		{'1001001001001000 | lk=billion,quadrillion', 'one quadrillion one trillion one billion one million one thousand'},
		{'5E30', 'five nonillion'},
		{'-123456789.25', 'negative one hundred twenty-three million four hundred fifty-six thousand seven hundred and eighty-nine point two five'},
		{'0 | zero=foo', 'foo'},
		{'0 | ord=on | zero=none', 'none'},
		{'1 | numerator=2 | denominator=3', 'one and two-thirds'},
		{'| numerator=2 | denominator=3', 'two-thirds'},
		{'1 | denominator=2', 'one and a half'},
		{'1 | numerator=3 | denominator=2', 'one and three-halves'},
		{'1 | numerator=1 | denominator=4', 'one and a quarter'},
		{'1 | numerator=1 | denominator=4 | sp=us', 'one and a fourth'},
		{'1 | numerator=1 | denominator=4 | one=one', 'one and one-quarter'},
		{'1 | numerator=1 | denominator=4 | sp=us | one=one', 'one and one-fourth'},
		{'9 | numerator=3 | denominator=4', 'nine and three-quarters'},
		{'9 | numerator=3 | denominator=4 | sp=us', 'nine and three-fourths'},
		{'23 | numerator=12 | denominator=16', 'twenty-three and twelve-sixteenths'},
	})
end
function p:test_numeral_to_english_error()
	local cases = {, 'a', '.', 'e', 'E', 'E1', '.E1', '+', '-', '123a', 'a123', '0.1a', '-a123' }
	local nowiki = mw.text.nowiki
	for _, case in ipairs(cases) do
		local wikitext =  .. case .. 
		self:equals(nowiki(wikitext), get_error_text(wikitext), 'Invalid decimal numeral', { toBeError = true })
	end
end
function p:test_numeral_to_english_round()
	self:preprocess_equals_many(, , {
		{'1 | round=on', 'one'},
		{'37 | round=on', 'thirty-seven'},
		{'190 | round=on', 'two hundred'},
		{'110 | round=up', 'two hundred'},
		{'190 | round=down', 'one hundred'},
		{'87654321 | round=on', 'ninety million'},
		{'12345678 | round=on', 'twelve million'},
		{'-190 | round=on', 'negative two hundred'},
		{'-190 | round=up', 'negative one hundred'},
		{'-110 | round=down', 'negative two hundred'},
		{'0.25 | round=on', 'zero'},
		{'0.5 | round=on', 'one'},
		{'-0.25 | round=on', 'zero'},
		{'-0.5 | round=on', 'negative one'},
		{'0.01 | round=up', 'one'},
		{'0.99 | round=down', 'zero'},
		{'-0.01 | round=down', 'negative one'},
		{'-0.99 | round=up', 'zero'},
	})
end
function p:test_numeral_to_thai_round()
	self:preprocess_equals_many(, , {
		{'1 | round=on', 'หนึ่ง'},
		{'37 | round=on', 'สามสิบเจ็ด'},
		{'190 | round=on', 'สองร้อย'},
		{'110 | round=up', 'สองร้อย'},
		{'190 | round=down', 'หนึ่งร้อย'},
		{'87654321 | round=on', 'เก้าสิบล้าน'},
		{'12345678 | round=on', 'สิบสองล้าน'},
		{'-190 | round=on', 'ลบสองร้อย'},
		{'-190 | round=up', 'ลบหนึ่งร้อย'},
		{'-110 | round=down', 'ลบสองร้อย'},
		{'0.25 | round=on', 'ศูนย์'},
		{'0.5 | round=on', 'หนึ่ง'},
		{'-0.25 | round=on', 'ศูนย์'},
		{'-0.5 | round=on', 'ลบหนึ่ง'},
		{'0.01 | round=up', 'หนึ่ง'},
		{'0.99 | round=down', 'ศูนย์'},
		{'-0.01 | round=down', 'ลบหนึ่ง'},
		{'-0.99 | round=up', 'ศูนย์'},
	})
end
function p:test_decToHex()
	self:preprocess_equals(
		'minlength=4',
		'000A 0014 0028 0400 4B41B59'
	)
end
return p