Module:Lang/testcases/ISO 639 deprecated and override tag from name

local p = require('Module:UnitTests')

--[[--------------------------< 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>"}

TODO: make this series of test smart enough to include:
 disambiguated names
 disambiguated names with dab removed (not so straigh-forward as that appears)
  see Module:Lang/name to tag/sandbox (may get moved to name_from_tag)

]]

local function test_patterns_get(lanauage_list)
 local lang_data =  mw.loadData('Module:Lang/data');        -- language name override and transliteration tool-tip tables
 local override_table = lang_data.override;
 local tpats = {}               -- collect test patterns here
 for tag, names in pairs (lanauage_list) do
  local pattern = {};              -- here we assemble the test pattern for <name>
  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

 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




--[[--------------------------< T E S T _ T A G _ F R O M _ N A M E >------------------------------------------
]]

function p:test_tag_from_name_iso_639_deprecated()
 local test_patterns = test_patterns_get(mw.loadData("Module:Language/data/iana languages").deprecated)
 self:preprocess_equals_preprocess_many('{{#invoke:Lang/sandbox|tag_from_name|', '}}', '', '', test_patterns, {nowiki=1})
end

function p:test_tag_from_name_iso_639_override()
 local test_patterns = test_patterns_get(mw.loadData('Module:Lang/data').override)
 self:preprocess_equals_preprocess_many('{{#invoke:Lang/sandbox|tag_from_name|', '}}', '', '', test_patterns, {nowiki=1})
end

return p