Modul:string utilities/testcases

local tests = require("Module:UnitTests")
local ps = require("Module:string utilities").pattern_simplifier

function tests:check_pattern_simplifier(pattern, expected)
	tests:equals(pattern, tostring(ps(pattern)), tostring(expected))
end

function tests:test_pattern_simplifier()
	local examples = {
		{"", ""},
		{"%", false},
		{"%b()", "%b()"},
		{"%b()", false},
		{"%b()", false},
		{"%b()", false},
		{"%b()a", "%b()a"},
		{"%b()%a", false},
		{"%a", false},
		{"%b", false},
		{"%c", false},
		{"%d", false},
		{"%e", "%e"},
		{"%f", false},
		{"%g", "%g"},
		{"%h", "%h"},
		{"%i", "%i"},
		{"%j", "%j"},
		{"%k", "%k"},
		{"%l", false},
		{"%m", "%m"},
		{"%n", "%n"},
		{"%o", "%o"},
		{"%p", false},
		{"%q", "%q"},
		{"%r", "%r"},
		{"%s", false},
		{"%t", "%t"},
		{"%u", false},
		{"%v", "%v"},
		{"%w", false},
		{"%x", false},
		{"%y", "%y"},
		{"%z", "%z"},
		{"%A", false},
		{"%B", "%B"},
		{"%C", false},
		{"%D", false},
		{"%E", "%E"},
		{"%F", "%F"},
		{"%G", "%G"},
		{"%H", "%H"},
		{"%I", "%I"},
		{"%J", "%J"},
		{"%K", "%K"},
		{"%L", false},
		{"%M", "%M"},
		{"%N", "%N"},
		{"%O", "%O"},
		{"%P", false},
		{"%Q", "%Q"},
		{"%R", "%R"},
		{"%S", false},
		{"%T", "%T"},
		{"%U", false},
		{"%V", "%V"},
		{"%W", false},
		{"%X", false},
		{"%Y", "%Y"},
		{"%Z", "[\1-\127\194-\244][\128-\191]*"},
		{"%ж", "%ж"},
		{"%ж?", false},
		{"%%a", "%%a"},
		{"%%c", "%%c"},
		{"%%d", "%%d"},
		{"%%l", "%%l"},
		{"%%p", "%%p"},
		{"%%s", "%%s"},
		{"%%u", "%%u"},
		{"%%w", "%%w"},
		{"%%x", "%%x"},
		{"%%A", "%%A"},
		{"%%C", "%%C"},
		{"%%D", "%%D"},
		{"%%L", "%%L"},
		{"%%P", "%%P"},
		{"%%S", "%%S"},
		{"%%U", "%%U"},
		{"%%W", "%%W"},
		{"%%X", "%%X"},
		{"%%Z", "%%Z"},
		{"%%%a", false},
		{"%%%c", false},
		{"%%%d", false},
		{"%%%l", false},
		{"%%%p", false},
		{"%%%s", false},
		{"%%%u", false},
		{"%%%w", false},
		{"%%%x", false},
		{"%%%A", false},
		{"%%%C", false},
		{"%%%D", false},
		{"%%%L", false},
		{"%%%P", false},
		{"%%%S", false},
		{"%%%U", false},
		{"%%%W", false},
		{"%%%X", false},
		{"%%%Z", "%%[\1-\127\194-\244][\128-\191]*"},
		{"%z%a", false},
		{"%Z%a", false},
		{"()", false},
		{"%()", "%()"},
		{"(foo)", "(foo)"},
		{"((foo)bar)", "((foo)bar)"},
		{("( )"):rep(32), ("( )"):rep(32)},
		{("( )"):rep(33), false},
		{("("):rep(33), false},
		{("( )"):rep(32) .. "%( )", ("( )"):rep(32) .. "%( )"},
		{".", "[^\128-\191][\128-\191]*"},
		{("."):rep(5), ("[^\128-\191][\128-\191]*"):rep(5)},
		{"foo.*.", "foo.*[^\128-\191][\128-\191]*"},
		{"foo.+.", "foo.+[^\128-\191][\128-\191]*"},
		{"foo.-.", "foo.-[^\128-\191][\128-\191]*"},
		{"foo.?.", "foo[^\128-\191]?[\128-\191]*[^\128-\191][\128-\191]*"},
		{"foo%Z*%Z", "foo%Z*[\1-\127\194-\244][\128-\191]*"},
		{"foo%Z+%Z", "foo%Z+[\1-\127\194-\244][\128-\191]*"},
		{"foo%Z-%Z", "foo%Z-[\1-\127\194-\244][\128-\191]*"},
		{"foo%Z?%Z", "foo[\1-\127\194-\244]?[\128-\191]*[\1-\127\194-\244][\128-\191]*"},
		{"fooжbar", "fooжbar"},
		{"fooж*bar", false},
		{"fooж+bar", "foo\208[ж]*\182bar"},
		{"fooж-bar", false},
		{"fooж?bar", false},
		{"fooကbar", "fooကbar"},
		{"fooက*bar", false},
		{"fooက+bar", false},
		{"fooက-bar", false},
		{"fooက?bar", false},
		{"foo𠀀bar", "foo𠀀bar"},
		{"foo𠀀*bar", false},
		{"foo𠀀+bar", false},
		{"foo𠀀-bar", false},
		{"foo𠀀?bar", false},
		{"foo[^a]bar", false},
		{"[^]", false},
		{"foo%[^a]bar", "foo%[^a]bar"},
		{"foo[bar", false},
		{"foo[bar]baz", "foo[bar]baz"},
		{"foo[bar]%a", false},
		{"foo[bar%abaz]", false},
		{"foo[bar%zbaz]", "foo[bar%zbaz]"},
		{"foo[barжbaz]", false},
		{"foo[barကbaz]", false},
		{"foo[bar𠀀baz]", false},
		{"foo[bar]*baz", "foo[bar]*baz"},
		{"foo[bar]+baz", "foo[bar]+baz"},
		{"foo[bar]-baz", "foo[bar]-baz"},
		{"foo[bar]?baz", "foo[bar]?baz"},
		{"foo[БАР]baz", "foo\208[\144-\145\160]baz"},
		{"foo[БАР]*baz", false},
		{"foo[БАР]+baz", "foo\208[\144-\145\160\208]*[\144-\145\160]baz"},
		{"foo[БАР]-baz", false},
		{"foo[БАР]?baz", false},
		{"foo[БАРbaz]qux", false},
		{"foo[bar%Б]baz", false},
		{"foo[БАР%e]baz", false},
		{"foo[бар]baz", false},
		{"foo[бар]*baz", false},
		{"foo[бар]+baz", false},
		{"foo[бар]-baz", false},
		{"foo[бар]?baz", false},
		{"foo[バー]baz", "foo\227\131[\144\188]baz"},
		{"foo[バー]*baz", false},
		{"foo[バー]+baz", false},
		{"foo[バー]-baz", false},
		{"foo[バー]?baz", false},
		{"foo%f[bar]baz", "foo%f[bar]baz"},
		{"foo%f[БАР]baz", false},
		{"foo%f[%БАР]baz", false},
		{"foo%f[бар]baz", false},
		{"foo%f[バー]baz", false},
	}

	self:iterate(examples, "check_pattern_simplifier")
end

return tests