Module:Lang/testcases/ISO 639-3-2 tag from name
< Module:Lang | testcases
Jump to navigation
Jump to search
Documentation for this module may be created at Module:Lang/testcases/ISO 639-3-2 tag from name/doc
local p = require('Module:UnitTests')
local lang_data = mw.loadData ('Module:Lang/data'); -- language name override and transliteration tool-tip tables
local lang_table = lang_data.lang_name_table.lang;
local override_table = lang_data.override;
local code_mask = '^[i-n]%l%l'; -- used to limit number of tests
--[[--------------------------< T E S T _ P A T T E R N S _ G E T >--------------------------------------------
build a table of test patterns where each entry in the table is a table with two members:
{"<name>", "<tag>"}
]]
local function test_patterns_get ()
local tpats = {} -- collect test patterns here
for tag, names in pairs (lang_table) do
local pattern = {}; -- here we assemble the test pattern for <name>
-- if 2 == tag:len() then -- no limits for two-character codes
if tag:find (code_mask) then -- if tag within limits (three-character codes)
if override_table[tag] then
table.insert (pattern, override_table[tag][1]); -- add first <name> only to the pattern
table.insert (pattern, tag); -- add the 'expected result' <tag>
else
table.insert (pattern, names[1]); -- add first <name> only to the pattern
table.insert (pattern, tag); -- add the 'expected result' <tag>
end
table.insert (tpats, pattern); -- accumulate in list of patterns
end
end
local function comp (a, b) -- local function used by table.sort()
return a[2] < b[2]; -- ascending sort by code (because test limits are by code)
end
table.sort (tpats, comp); -- make the list pretty
return tpats; -- and done
end
local test_patterns = test_patterns_get();
--[[--------------------------< T E S T _ T A G _ F R O M _ N A M E >------------------------------------------
]]
function p:test_tag_from_name_iso_639_3_2()
self:preprocess_equals_preprocess_many('{{#invoke:Lang/sandbox|tag_from_name|', '}}', '', '', test_patterns, {nowiki=1})
end;
return p