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_month_names()
	self:preprocess_equals_many('{{#invoke:Citation/CS1/Date validation/testhjelper|dates| ', ' }}', {
		{'januar 2014', 'true'},
		{'Januar 2014', 'true'},
		{'1. januar 2014', 'true'},
		{'1. Januar 2014', 'false'},
		{'høsten 2014', 'true'},
		{'Høsten 2014', 'true'},
		{'1. høsten 2014', 'false'},
		{'1. Høsten 2014', 'false'},
	})
end

function p:test_check_dates()
	self:preprocess_equals_many('{{#invoke:Citation/CS1/Date validation/testhjelper|dates| ', ' }}', {
		{'2014', 'true'},
		{'2014–2015', 'true'},
		{'januar 2014', 'true'},
		{'januar–februar 2014', 'true'},
		{'2014-01-01', 'true'},
		{'1. januar 2014', 'true'},
		{'10. januar 2014', 'true'},
		{'1.–3. januar 2014', 'true'},
		{'1. januar – 3. februar 2014', 'true'},
		{'10.04.2014', 'true'},
		{'10.4.2014', 'true'},
		{'1.4.2014', 'true'},
		{'2014a', 'true'}, -- disambiguator
		{'2014aa', 'false'}, -- disambiguator should only be one character
		{'1. januar 2014a', 'true'}, -- disambiguator
		{'1. januar 2014aa', 'false'}, -- disambiguator should only be one character
		{'01. januar 2014', 'false'}, -- ganske strengt altså :)
		{'10.04.14', 'false'}, -- ikke støtt årstall med to siffer
		{'100.04.2014', 'false'}, -- ugyldig dag
		{'100. januar 2014', 'false'}, -- ugyldig dag
		{'2014-13-01', 'false'}, -- ugyldig måned
		{'2014-01-32', 'false'}, -- ugyldig dag
		{'1–3. januar 2014', 'false'}, --mangler punktum
		{'1 – 3. januar 2014', 'false'}, -- ekstra mellomrom
		{'1-3. januar 2014', 'false'}, -- bindestrek, ikke tankestrek
		{'1. januar–3. januar 2014', 'false'}, -- bindestrek, ikke tankestrek
		{'1 januar 2014', 'false'}, -- mangler punktum
		{'januar 1, 2014', 'false'}, -- kvasi-engelsk
		{'1. gobbluar 2014', 'false'}, -- ugyldig månedsnavn
		{'c. 2014', 'true'},
		{'våren 2014', 'true'},
		{'sommeren 2014', 'true'},
		{'høsten 2014', 'true'},
		{'vinteren 2014', 'true'},
		{'Våren 2014', 'true'},
		{'Sommeren 2014', 'true'},
		{'Høsten 2014', 'true'},
		{'Vinteren 2014', 'true'},
		{'vinteren 2014–2015', 'false'},
		{'våren 2014 – sommeren 2015', 'true'},
		{'våren–sommeren 2014', 'true'},
		{'VÅREN 2014', 'false'},
		{'SOMMEREN 2014', 'false'},
		{'HØSTEN 2014', 'false'},
		{'VINTEREN 2014', 'false'},
		{'c. 2014', 'true'},
		{'ca. 2014', 'true'}, -- inntil videre ihvertfall, må sjekkes opp
		{'udatert', 'true'},
		{'u.d.', 'true'}, -- uten dato
		{'utdatert', 'false'}, -- typo :)
		{'n.d.', 'false'},  -- engelsk form
		{'nd.', 'false'},  -- engelsk form
		{'januar 2001', 'true'},
		{'februar 2001', 'true'},
		{'mars 2001', 'true'},
		{'april 2001', 'true'},
		{'mai 2001', 'true'},
		{'juni 2001', 'true'},
		{'juli 2001', 'true'},
		{'august 2001', 'true'},
		{'september 2001', 'true'},
		{'oktober 2001', 'true'},
		{'november 2001', 'true'},
		{'desember 2001', 'true'},
		{'våren 2001', 'true'},
		{'sommeren 2001', 'true'},
		{'høsten 2001', 'true'},
		{'vinteren 2001', 'true'},
		{'January 2001', 'false'},
		{'winter 2001', 'false'},
	})
end

return p