localp=require("Module:UnitTests")localget_ietf_parts=require("Module:Lang/sandbox").get_ietf_partslocalpreparefunctionp:check(code,expected)self:equals_deep(code,{get_ietf_parts(code)},prepare(expected))endfunctionp:test()localexamples={{"de",{"de"}},{"nav",{"nav"}},{"1ca",{"1ca"}},{"cmn-Latn",{"cmn","latn"}},{"he-hebr",{"he","hebr"}},{"de-ch",{"de",nil,"ch"}},{"de-1901",{"de",nil,nil,"1901"}},{"ru-petr1708",{"ru",nil,nil,"petr1708"}},{"de-petr1708",{"de"}},{"ca-valencia",{"ca",nil,nil,"valencia"}},{"ru-cyrl-petr1708",{"ru","cyrl"}},{"ru-Cyril",{"ru"}},--[[ { "", { "" } }, --]]}self:iterate(examples,"check")endfunctionprepare(subtag_table)ifnotnext(subtag_table)thenreturnsubtag_tableendfori=1,4doifsubtag_table[i]==nilthensubtag_table[i]=""endendreturnsubtag_tableendreturnp
