Modul:Citation/CS1/Date validation/testtilfeller

-- Unit tests for [[Modul:Citation/CS1/Date validation]]. Click talk page to run tests.
local p = require('Modul:UnitTests')

function p:test_check_date()
    self:preprocess_equals_many('{{#invoke:Citation/CS1/Date validation/testhjelper|check_date| ', ' }}', {
    	{'2014', 'VALID'},
    	{'2014–2015', 'VALID'},
    	{'januar 2014', 'VALID'},
    	{'januar–februar 2014', 'VALID'},
    	{'2014-01-01', 'VALID'},
    	{'1. januar 2014', 'VALID'},
    	{'10. januar 2014', 'VALID'},
    	{'1.–3. januar 2014', 'VALID'},
    	{'1. januar – 3. februar 2014', 'VALID'},
    	{'10.04.2014', 'VALID'},
    	{'10.4.2014', 'VALID'},
    	{'1.4.2014', 'VALID'},
    	{'01. januar 2014', 'INVALID'}, -- ganske strengt altså :)
    	{'10.04.14', 'INVALID'}, -- ikke støtt årstall med to siffer
    	{'100.04.2014', 'INVALID'}, -- ugyldig dag
    	{'100. januar 2014', 'INVALID'}, -- ugyldig dag
    	{'2014-13-01', 'INVALID'}, -- ugyldig måned
    	{'2014-01-32', 'INVALID'}, -- ugyldig dag
    	{'1–3. januar 2014', 'INVALID'}, --mangler punktum
    	{'1 – 3. januar 2014', 'INVALID'}, -- ekstra mellomrom
    	{'1-3. januar 2014', 'INVALID'}, -- bindestrek, ikke tankestrek
    	{'1. januar–3. januar 2014', 'INVALID'}, -- bindestrek, ikke tankestrek
    	{'1 januar 2014', 'INVALID'}, -- mangler punktum
    	{'januar 1, 2014', 'INVALID'}, -- kvasi-engelsk
    	{'1. gobbluar 2014', 'INVALID'}, -- ugyldig månedsnavn
    	{'c. 2014', 'INVALID'}, -- special case for some reason defined in test_dates(), so it won't validate with check_date()
    })
end

function p:test_check_date_seasons()
    self:preprocess_equals_many('{{#invoke:Citation/CS1/Date validation/testhjelper|check_date| ', ' }}', {
    	{'vår 2014', 'VALID'},
    	{'sommer 2014', 'VALID'},
    	{'høst 2014', 'VALID'},
    	{'vinter 2014', 'VALID'},
    	{'Vår 2014', 'VALID'},
    	{'Sommer 2014', 'VALID'},
    	{'Høst 2014', 'VALID'},
    	{'Vinter 2014', 'VALID'},
    	{'vinter 2014–2015', 'VALID'},
    	{'vår 2014 – sommer 2015', 'VALID'},
    	{'vår–sommer 2014', 'VALID'},
    	{'VÅR 2014', 'INVALID'},
    	{'SOMMER 2014', 'INVALID'},
    	{'HØST 2014', 'INVALID'},
    	{'VINTER 2014', 'INVALID'},
    })
end

function p:test_dates()
    self:preprocess_equals_many('{{#invoke:Citation/CS1/Date validation/testhjelper|dates| ', ' }}', {
    	{'c. 2014', 'VALID'},
    })
end

function p:test_is_valid_month_or_season()
    self:preprocess_equals_many('{{#invoke:Citation/CS1/Date validation/testhjelper|is_valid_month_or_season| ', ' }}', {
    	{'januar', 'VALID'},
    	{'februar', 'VALID'},
    	{'mars', 'VALID'},
    	{'april', 'VALID'},
    	{'mai', 'VALID'},
    	{'juni', 'VALID'},
    	{'juli', 'VALID'},
    	{'august', 'VALID'},
    	{'september', 'VALID'},
    	{'oktober', 'VALID'},
    	{'november', 'VALID'},
    	{'desember', 'VALID'},
    	{'vår', 'VALID'},
    	{'sommer', 'VALID'},
    	{'høst', 'VALID'},
    	{'vinter', 'VALID'},
    	{'January', 'INVALID'},
    	{'winter', 'INVALID'},
    })
end

return p