Module:Sandbox/Erutuon/testcases: Difference between revisions

Revision as of 21:53, 4 July 2018

Latest revision as of 21:32, 4 March 2019

(9 intermediate revisions by the same user not shown)

Line 6:

language = function (subtags, key)

if not subtags[key] then return nil end

return ("%s: <code>%s</code>"):format(key, subtags[key] or '')

end,

variant = function (subtags, key)

if not subtags[key] then return nil end

return ("%s: <code>%s</code>"):format(

key,

type(subtags[key]) == "table" and table.concat(subtags[key], ", ")

Line 20:

end

return ("error: %s at \"<code>%s\"</code>")

:format(subtags.error, subtags.invalid or "???")

end,

Line 44:

return result:concat("; ")

--[[

return ("lang: %q; script: %q; region: %q; variant: %q; private-use: %q%s")

:format(parsed_subtags.language or '', parsed_subtags.script or '',

parsed_subtags.region or '',

type(parsed_subtags.variant) == 'table'

and table.concat(parsed_subtags.variant, ', ')

or parsed_subtags.variant or '',

parsed_subtags.private_use or '',

parsed_subtags.error

and ("; error: %s at %q")

:format(parsed_subtags.error, parsed_subtags.invalid or '???')

or "")

--]]

end

Line 64 ⟶ 50:

{ "ru", { language = "ru" } },

{ "ru-Latn", { language = "ru", script = "Latn" } },

{ "rufr-Cyrl-RUCA", { language = "ru", script = "Cyrlfr", region = "RUCA" } },

{ "ru-Cyrl-RU-petr1708", { language = "ru", variant = "petr1708" } },

{ language = "ru", script = "Cyrl", region = "RU", variant = "petr1708" } },

{ "zh-Latn-pinyin", { language = "zh", script = "Latn", variant = "pinyin" } },

{ "sl-rozaj-biske", { language = "sl", variant = { "rozaj", "biske" } } },

Line 74 ⟶ 59:

-- Could be used to indicate the PIE transcription system used by Pokorny?

{ "ine-x-proto-pokorny", { language = "ine", private_use = { "proto", "pokorny" } } },

{ "x-fake-private-use", { private_use = { "fake", "private", "use" } } },

"case insensitivity",

{ "RU", { language = "RU" } },

{ "RU-LATN", { language = "RU", script = "LATN" } },

{ "RU-CYRL-RU", { language = "RU", script = "CYRL", region = "RU" } },

{ "RU-CYRL-RU-PETR1708",

{ language = "RU", script = "CYRL", region = "RU", variant = "PETR1708" } },

{ "INE-X-PROTO", { language = "INE", private_use = "PROTO" } },

{ "INE-X-PROTO-POKORNY", { language = "INE", private_use = { "PROTO", "POKORNY" } } },

"errors",

{ "ine-!!!", { error = "invalid characters", invalid = "!!!" } },

{ "pâté", { error = "invalid characters", invalid = "pâté" } },

{ "Latn", { error = "no language subtag", script = "Latn", invalid = "Latn" } },

{ "ru-Latn-Cyrl", { language = "ru", script = "Latn", error = "invalid subtag", invalid = "Cyrl" } },

{ "blahblahblah", { error = "invalidno language subtag", invalid = "blahblahblah" } },

{ "ru-blahblahblah", { language = "ru", error = "invalid subtag", invalid = "blahblahblah" } },

{ "ru-Latn-blahblahblah",

Line 94 ⟶ 72:

{ language = "ru", error = "length of private-use subtag out of range", invalid = "x-blahblahblah" } },

{ "ru-x", { language = "ru", error = "empty private-use subtag", invalid = "x" } },

{ "blahblah-Latn", { error = "no language subtag", invalid = "blahblah-Latn" } },

{ "", nil },

-- { mw.log, nil },

-- { nil, nil },

}

local index = fun.indexOf("errors", examples)

table.insert(examples, index, "case-insensitivity")

for i = 1, index - 1 do -- Insert testcases for capitalized versions of the valid tags.

local upper_example = mw.clone(examples[i])

upper_example[1] = upper_example[1]:upper()

table.insert(examples, index + i, upper_example)

end

self:iterate(

Line 103 ⟶ 90:

function (self, IETF_code, expected)

self:equals(

('<code style="white-space: nowrap;">%s</code>'):format(IETF_code),

IETF_code,

show_parsed_subtags(parse_IETF(IETF_code)),

show_parsed_subtags(expected))

Line 110 ⟶ 97:

-- Change function names into more readable headers for the testcases tables.

for k, v in require "Module:tableTableTools".sortedPairs(p) do

if type(k) == "string" then

local new_k = k:gsub("^test_(.+)$", "testcases for <code>%1</code>")