Module:TaxonItalics/testcases
Documentation for this module may be created at Module:TaxonItalics/testcases/doc
local p = require('Module:UnitTests')
local function clean(input)
local orig = input
local result = input:gsub("''( ?)(.-)( ?)''", "%1''%2''%3")
result = mw.text.decode(result)
if orig ~= result then
mw.log(orig, result, "\n")
end
return result
end
function p:test_italicizeTaxonName()
local examples = {
"Below genus",
{ "Pinus subg. Pinus", "''Pinus <span style=\"font-style:normal;\">subg.</span> Pinus''" },
{ "Pinus subgenus Pinus", "''Pinus <span style=\"font-style:normal;\">subg.</span> Pinus''" },
{ "P. subg. Pinus", "''P. <span style=\"font-style:normal;\">subg.</span> Pinus''" },
{ "Passiflora supersect. Tacsonia", "''Passiflora <span style=\"font-style:normal;\">supersect.</span> Tacsonia''" },
{ "Pinus sect. Pinus", "''Pinus <span style=\"font-style:normal;\">sect.</span> Pinus''" },
{ "Pinus section Pinus", "''Pinus <span style=\"font-style:normal;\">sect.</span> Pinus''" },
{ "P. sect. Pinus", "''P. <span style=\"font-style:normal;\">sect.</span> Pinus''" },
{ "Pinus subsect. Pinus", "''Pinus <span style=\"font-style:normal;\">subsect.</span> Pinus''" },
{ "P. subsect. Pinus", "''P. <span style=\"font-style:normal;\">subsect.</span> Pinus''" },
{ "Quercus series Virentes", "''Quercus <span style=\"font-style:normal;\">ser.</span> Virentes''" },
{ "Banksia subser. Banksia", "''Banksia <span style=\"font-style:normal;\">subser.</span> Banksia''" },
{ "Banksia subseries Banksia", "''Banksia <span style=\"font-style:normal;\">subser.</span> Banksia''" },
{ "Lyria (Mitraelyria)", "''Lyria <span style=\"font-style:normal;\">(</span>Mitraelyria<span style=\"font-style:normal;\">)</span>''" },
"Below species",
{ "Acer tataricum subsp. ginnala", "''Acer tataricum <span style=\"font-style:normal;\">subsp.</span> ginnala''" },
{ "Aster ericoides var. ericoides", "''Aster ericoides <span style=\"font-style:normal;\">var.</span> ericoides''" },
{ "A. ericoides varietas ericoides", "''A. ericoides <span style=\"font-style:normal;\">var.</span> ericoides''" },
{ "A. e. subvar. ericoides", "''A. e. <span style=\"font-style:normal;\">subvar.</span> ericoides''" },
"Hybrid symbol",
{
"Fragaria × ananassa",
[[''Fragaria <span style="font-style:normal;">×</span> ananassa'']]
},
{
"Fragaria × ananassa",
[[''Fragaria <span style="font-style:normal;">×</span> ananassa'']]
},
{
"Fragaria × ananassa",
[[''Fragaria <span style="font-style:normal;">×</span> ananassa'']]
},
{
"× Sorbopyrus",
[[''<span style="font-style:normal;">×</span> Sorbopyrus'']]
},
{
"× Sorbopyrus auricularis",
[[''<span style="font-style:normal;">×</span> Sorbopyrus auricularis'']]
},
"Already italicized",
{ "''Pinus'' subsp. ''Pinus''", "''Pinus'' subsp. ''Pinus''" },
{ "''Pinus subsp. Pinus''", "''Pinus subsp. Pinus''" }, -- Incorrect example!
{ "''Pinus sylvestris''", "''Pinus sylvestris''" },
{ "<i>Pinus</i> subsp. <i>Pinus</i>", "''Pinus'' subsp. ''Pinus''" },
{ "<i>Pinus sylvestris</i>", "''Pinus sylvestris''" },
"Easy examples",
{ "Pinus", "''Pinus''" },
{ "Pinus sylvestris", "''Pinus sylvestris''" },
"Incorrect strings",
{
"Fragaria vesca subsp. vesca f. semperflorens",
"''Fragaria vesca subsp. vesca f. semperflorens''"
},
}
local italicizeTaxonName = require "Module:TaxonItalics".italicizeTaxonName
self:iterate(examples,
function (self, input, expected)
output = clean(italicizeTaxonName(input))
--[[
if output ~= expected then
mw.log(expected, output)
end
--]]
self:equals(input, output, expected)
end)
end
p["testcases for <code>italicizeTaxonName</code>"] = p.test_italicizeTaxonName
p.test_italicizeTaxonName = nil
return p