Christianpedia

Module:Citation/CS1/testcases/identifiers

Revision as of 17:25, 24 March 2022 by Admin (talk | contribs) (fix test_qid)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Documentation for this module may be created at Module:Citation/CS1/testcases/identifiers/doc

--[=[

Unit tests for [[Module:Citation/CS1/Identifiers]].

Click talk page to run tests.

]=]

local p = require('Module:UnitTests');
local live_cfg = mw.loadData ('Module:Citation/CS1/Configuration');
local new_cfg = mw.loadData ('Module:Citation/CS1/Configuration/sandbox');

--[[--------------------------< T O D A Y _ P L U S _ O F F S E T _ G E T >------------------------------------

returns date offset from today by <offset> in <format> (#time parser function formatting)
	Y - four digit year
	m - two digit month
	M - abbreviated month name
	F - full month name
	d - zero-padded day
	j - day without zero-padding

<offset> must include units: days, months, years

]]

local function today_plus_offset_get (format, offset)
	return mw.getContentLanguage():formatDate(format, 'today ' .. offset and ('+ ' .. offset) or '');
end


--[[--------------------------< A R X I V _ 9 1 0 7 _ 0 7 0 3 >------------------------------------------------
]]

function p:test_arxiv_9107_0703()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
																				-- legitimate date range
			{'arxiv=a.a/9007333'},												-- invalid yymm (fail)
			{'arxiv=a.a/9106333'},												-- invalid yymm (fail)
			{'arxiv=a.a/9107333'},												-- valid yymm (pass)
			{'arxiv=a.a/0703333'},												-- valid yymm (pass)
			{'arxiv=a.a/0704333'},												-- invalid yymm (fail)
			{'arxiv=a.a/0803333'},												-- valid yymm (pass)
																				-- archive & class
			{'arxiv=.a/9107333'},												-- without archive (fail)
			{'arxiv=aa/9107333'},												-- without class (pass)
			
																				-- number
			{'arxiv=aa/910722'},												-- not enough digits (fail)
			{'arxiv=aa/91074444'},												-- too many digits (fail)

																				-- version
			{'arxiv=a.a/9107333v'},												-- missing version number (fail)
			{'arxiv=a.a/9107333v1'},											-- with version number (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< A R X I V _ 0 7 0 4 _ 1 4 1 2 >------------------------------------------------
]]

function p:test_arxiv_0704_1412()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
																				-- date range
			{'arxiv=0612.4444'},												-- invalid yymm (fail)
			{'arxiv=0703.4444'},												-- invalid yymm (fail)
			{'arxiv=0704.4444'},												-- valid yymm (pass)
			{'arxiv=1412.4444'},												-- valid yymm (pass)
			{'arxiv=1413.4444'},												-- invalid yymm (fail)
			{'arxiv=1501.4444'},												-- invalid yymm (fail)

																				-- number
			{'arxiv=0704.333'},													-- not enough digits (fail)
			{'arxiv=0704.55555'},												-- too many digits (fail)

																				-- version
			{'arxiv=0704.4444v'},												-- missing version number (fail)
			{'arxiv=0704.4444v1'},												-- with version number (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< A R X I V _ 1 5 0 1 >----------------------------------------------------------
]]

function p:test_arxiv_1501()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
																				-- date range
			{'arxiv=1412.55555'},												-- invalid yymm (fail)
			{'arxiv=1500.55555'},												-- invalid yymm (fail)
			{'arxiv=1501.55555'},												-- valid yymm (pass)
			{'arxiv=1513.55555'},												-- invalid yymm (fail)

																				-- number
			{'arxiv=1501.4444'},												-- not enough digits (fail)
			{'arxiv=1501.666666'},												-- too many digits (fail)

																				-- version
			{'arxiv=1501.4444v'},												-- missing version number (fail)
			{'arxiv=1501.4444v1'},												-- with version number (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< A S I N >----------------------------------------------------------------------
]]

function p:test_asin()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'asin=4-12346789X'},												-- invalid char: hyphen (fail)
			{'asin=412346789'},													-- length (9) (fail)
			{'asin=ABCDEFGHIJK'},												-- length (11) (fail)
			{'asin=ABCDEFGHIJ'},												-- valid (pass)
			{'asin=412346789X'},												-- valid (isbn) (pass)
			{'asin=6302732913'},												-- valid (but not an isbn) (pass)

			{'asin=ABCDEFGHIJ|asin-tld=com'},									-- invalid tld (fail)
			{'asin=ABCDEFGHIJ|asin-tld=jp'},									-- valid tld (pass)
			{'asin=ABCDEFGHIJ|asin-tld=uk'},									-- valid tld (pass)
			{'asin=ABCDEFGHIJ|asin-tld=au'},									-- valid tld (pass)
			{'asin=ABCDEFGHIJ|asin-tld=br'},									-- valid tld (pass)
			{'asin=ABCDEFGHIJ|asin-tld=mx'},									-- valid tld (pass)
			
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< B I B C O D E >----------------------------------------------------------------
]]

function p:test_bibcode()
	local this_year = today_plus_offset_get ('Y', '0 year');					-- get this year
	
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
																				-- years
			{'bibcode=0999a&1.b2.c3.d4..e'},									-- invalid yyyy (fail)
			{'bibcode=1000a&1.b2.c3.d4..e'},									-- valid yyyy (pass)
			{'bibcode=' .. this_year .. 'a&1.b2.c3.d4..e'},						-- valid yyyy (pass)
			{'bibcode=' .. today_plus_offset_get ('Y', '1 year') .. 'a&1.b2.c3.d4..e'},	-- valid yyyy (pass)
			{'bibcode=' .. today_plus_offset_get ('Y', '2 year') .. 'a&1.b2.c3.d4..e'},	-- invalid yyyy (fail)

			{'bibcode=' .. this_year .. '#&1.b2.c3.d4..e'},						-- invalid [5] (fail)
			{'bibcode=' .. this_year .. 'a#1.b2.c3.d4..e'},						-- invalid [6] (fail)
			{'bibcode=' .. this_year .. 'a&#.b2.c3.d4..e'},						-- invalid [7] (fail)
			{'bibcode=' .. this_year .. 'a&1#b2.c3.d4..e'},						-- invalid [8] (fail)
			
			{'bibcode=' .. this_year .. 'a&..b2.c3.d4..e'},						-- ampersand preceeds dot (fail)

			{'bibcode=' .. this_year .. 'a&1.#2.c3.d4..e'},						-- invalid [9] (fail)
			{'bibcode=' .. this_year .. 'a&1.b#.c3.d4..e'},						-- invalid [10] (fail)
			{'bibcode=' .. this_year .. 'a&1.b2#c3.d4..e'},						-- invalid [11] (fail)
			{'bibcode=' .. this_year .. 'a&1.b2.#3.d4..e'},						-- invalid [12] (fail)
			{'bibcode=' .. this_year .. 'a&1.b2.c#.d4..e'},						-- invalid [13] (fail)
			{'bibcode=' .. this_year .. 'a&1.b2.c3#d4..e'},						-- invalid [14] (fail)
			{'bibcode=' .. this_year .. 'a&1.b2.c3.#4..e'},						-- invalid [15] (fail)
			{'bibcode=' .. this_year .. 'a&1.b2.c3.d#..e'},						-- invalid [16] (fail)
			{'bibcode=' .. this_year .. 'a&1.b2.c3.d4#.e'},						-- invalid [17] (fail)
			{'bibcode=' .. this_year .. 'a&1.b2.c3.d4.#e'},						-- invalid [18] (fail)
			{'bibcode=' .. this_year .. 'a&1.b2.c3.d4..#'},						-- invalid [19] (fail)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< B I O R X I V >----------------------------------------------------------------
]]

function p:test_biorxiv()
	local today = today_plus_offset_get ('Y.m.d', '0 year');					
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
																				-- years
			{'biorxiv=10.1100/666666'},											-- invalid prefix (fail)
			{'biorxiv=10.1101/666666'},											-- valid prefix (pass)
			{'biorxiv=11.1101/666666'},											-- invalid prefix (fail)

			{'biorxiv=10.1101/55555'},											-- invalid identifier (fail)
			{'biorxiv=10.1101/7777777'},										-- invalid identifier (fail)
----			
			{'biorxiv=10.1100/2019.12.10.666666'},								-- invalid date (fail)
			{'biorxiv=10.1101/2019.12.11.666666'},								-- valid date (pass)
			{'biorxiv=10.1101/2019.00.11.666666'},								-- invalid date (fail)
			{'biorxiv=10.1101/2019.13.11.666666'},								-- invalid date (fail)
			{'biorxiv=10.1101/2019.12.00.666666'},								-- invalid date (fail)
			{'biorxiv=10.1101/2019.12.32.666666'},								-- invalid date (fail)
			
			{'biorxiv=10.1101/' .. today .. '.666666'},							-- valid date (pass)
			{'biorxiv=10.1101/' .. today_plus_offset_get ('Y.m.d', '1 year') .. '.666666'},	-- valid date (pass)

			{'biorxiv=10.1101/' .. today .. '55555'},							-- invalid identifier (fail)
			{'biorxiv=10.1101/' .. today .. '7777777'},							-- invalid identifier (fail)

			{'biorxiv=10.1101/' .. today .. '.666666v'},							-- valid date (pass)
			{'biorxiv=10.1101/' .. today .. '.666666v1'},							-- valid date (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< C I T E S E E R X >------------------------------------------------------------
]]

function p:test_citeseerx()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'citeseerx=11.1.1.1234.1234'},										-- invalid site id (fail)
			{'citeseerx=10.0.1.1234.1234'},										-- invalid deployment id (fail)
			{'citeseerx=10.1.0.1234.1234'},										-- invalid type (fail)
			{'citeseerx=10.1.1.0234.1234'},										-- invalid bin (fail)
			{'citeseerx=10.1.1.1234.0234'},										-- invalid record (fail)
			{'citeseerx=10.1.1.1234.1234'},										-- invalid record (fail)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< D O I >------------------------------------------------------------------------
]]

function p:test_doi()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'doi=10.1000/something'},											-- valid directory indicator (pass)
			{'doi=11.1000/something'},											-- invalid directory indicator (fail)
			{'doi=10.10 00/something'},											-- invalid registrant (fail)
			{'doi=10.5555/something'},											-- invalid registrant (fail)
			{'doi=10.666666/something'},										-- invalid registrant (fail)

	-- four digit < registrant w/o subcode
			{'doi=10.1/something'},												-- invalid registrant (fail)
			{'doi=10.22/something'},											-- invalid registrant (fail)
			{'doi=10.333/something'},											-- invalid registrant (fail)

	-- four digit < registrant w/ subcode
			{'doi=10.1.1/something'},											-- valid registrant (pass)
			{'doi=10.22.1/something'},											-- valid registrant (pass)
			{'doi=10.333.1/something'},											-- valid registrant (pass)

	-- four digit registrant w/o subcode
			{'doi=10.0999/something'},											-- invalid registrant (fail)
			{'doi=10.1000/something'},											-- valid registrant (pass)
			{'doi=10.9999/something'},											-- valid registrant (pass)

	-- four digit registrant w/ subcode
			{'doi=10.0999.1/something'},										-- invalid registrant (fail)
			{'doi=10.1000.1/something'},										-- valid registrant (pass)
			{'doi=10.9999.1/something'},										-- valid registrant (pass)

	-- five digit registrant w/o subcode
			{'doi=10.09999/something'},											-- invalid registrant (fail)
			{'doi=10.10000/something'},											-- valid registrant (pass)
			{'doi=10.59999/something'},											-- valid registrant (pass)
			{'doi=10.60000/something'},											-- invalid registrant (fail)

	-- five digit registrant w/ subcode
			{'doi=10.09999.1/something'},										-- invalid registrant (fail)
			{'doi=10.10000.1/something'},										-- valid registrant (pass)
			{'doi=10.39999.1/something'},										-- valid registrant (pass)
			{'doi=10.40000.1/something'},										-- invalid registrant (fail)

	-- terminal punctuation
			{'doi=10.1000/something.'},											-- trailing dot (fail)
			{'doi=10.1000/something,'},											-- trailing comma (fail)

			{'doi=10.1000/some thing'},											-- space character in identifier (fail)

	-- doi-broken date
			{'doi=10.1000/something |doi-broken-date=2020'},					-- valid doi-broken date (pass)
			{'doi=10.1000/something |doi-broken-date=January 1900'},			-- valid doi-broken date (pass) TODO: valid but not valid; limit to same-as-access-date?
			{'doi=10.1000/something |doi-broken-date=XXXX'},					-- invalid doi-broken date (fail)
			{'doi=10.1000/something |doi-broken-date=January 3500'},			-- invalid doi-broken date (fail)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< H D L >------------------------------------------------------------------------
]]

function p:test_hdl()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'hdl=abc 123/abc123'},												-- invalid prefix (fail)
			{'hdl=abc–123/abc123'},												-- invalid prefix (fail)
			{'hdl=abc123/abc 123'},												-- invalid suffix (fail)
			{'hdl=abc123/abc–123'},												-- invalid suffix (fail)
			{'hdl=abc123/abc123.'},												-- trailing dot (fail)
			{'hdl=abc123/abc123,'},												-- trailing comma (fail)
			{'hdl=abc123/abc123'},												-- valid (pass)

		-- query strings
			{'hdl=abc123/abc123?not_a_query=string'},							-- valid (pass)
			{'hdl=abc123/abc123?noredirect=string'},							-- valid (pass) TODO: does this take a value?
			{'hdl=abc123/abc123?ignore_aliases=string'},						-- valid (pass) TODO: does this take a value?
			{'hdl=abc123/abc123?auth=string'},									-- valid (pass) TODO: does this take a value?
			{'hdl=abc123/abc123?cert=string'},									-- valid (pass) TODO: does this take a value?
			{'hdl=abc123/abc123?index=string'},									-- valid (pass)
			{'hdl=abc123/abc123?type=string'},									-- valid (pass)
			{'hdl=abc123/abc123?urlappend=string'},								-- valid (pass)
			{'hdl=abc123/abc123?locatt=string'},								-- valid (pass)
			{'hdl=abc123/abc123?action=string'},								-- valid (pass)

		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ I S B N >------------------------------------------------------------
]]

function p:test_isbn()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'isbn=3–123467899'},												-- invalid character (ndash) (fail)
			{'isbn=312346789'},													-- length (9) (fail)
			{'isbn=31234678999'},												-- length (11) (fail)
			{'isbn=41234678X9'},												-- X in the wrong spot (fail)
			{'isbn=3123467896'},												-- checkdigit (fail)
			{'isbn=3123467899'},												-- valid (pass)
			{'isbn=412346789X'},												-- valid (pass)
			{'isbn=3-123467899'},												-- valid (pass)
			{'isbn=4-12346789X'},												-- valid (pass)
			{'isbn=3 123467899'},												-- valid (pass)
			{'isbn=4 12346789X'},												-- valid (pass)

			{'isbn=978-01234567866'},											-- length (14) (fail)
			{'isbn=978-012345678'},												-- length (12) (fail)

			{'isbn=978-012345678X'},											-- isbn13 is digits only (fail)
			{'isbn=977-0123456786'},											-- 978 or 979 prefix only (fail)
			{'isbn=979-0123456785'},											-- 9790 is ismn (fail)
			{'isbn=978-0123456788'},											-- check digit (fail)
			
			{'isbn=9780123456786'},												-- valid 978 (pass)
			{'isbn=9791123456782'},												-- valid 979 (pass)
			{'isbn=978-0123456786'},											-- valid 978 (pass)
			{'isbn=979-1123456782'},											-- valid 979 (pass)
			{'isbn=978 0123456786'},											-- valid 978 (pass)
			{'isbn=979 1123456782'},											-- valid 979 (pass)

			{'isbn=3123467896 |ignore-isbn-error=yes'},							-- checkdigit (pass)
			{'isbn=3123467899 |ignore-isbn-error=yes'},							-- valid (pass)
			{'isbn=978-0123456788 |ignore-isbn-error=yes'},						-- check digit (pass)
			{'isbn=9780123456786 |ignore-isbn-error=yes'},						-- valid 978 (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ I S M N >------------------------------------------------------------
]]

function p:test_ismn()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'ismn=979-01234567856'},											-- length (14) (fail)
			{'ismn=979-012345678'},												-- length (12) (fail)
			{'ismn=979-012345678X'},											-- digits only (fail)
			{'ismn=979-1123456782'},											-- group designator must be 0 (fail)
			{'ismn=979-0123456788'},											-- check digit (fail)

			{'ismn=979–0123456785'},											-- valid (pass)
			{'ismn=9790123456785'},												-- valid (pass)
			{'ismn=979-0123456785'},											-- valid (pass)
			{'ismn=979 0123456785'},											-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ I S S N >------------------------------------------------------------
]]

function p:test_issn()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'issn=0123-45601'},												-- length (9) (fail)
			{'issn=0123-456'},													-- length (7) (fail)
			{'issn=7123-45X6'},													-- X mispositioned (fail)
			{'issn=0123-4566'},													-- check digit (fail)

			{'issn=0123–4560'},													-- valid (pass)
			{'issn=01234560'},													-- valid (pass)
			{'issn=7123-456X'},													-- valid (pass)
			{'issn=7123 456X'},													-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ J F M >--------------------------------------------------------------
]]

function p:test_jfm()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'jfm=1.4444.22'},													-- missing digit (fail)
			{'jfm=22.333.22'},													-- missing digit (fail)
			{'jfm=22.4444.1'},													-- missing digit (fail)

			{'jfm=333.4444.22'},												-- to many digit (fail)
			{'jfm=22.55555.22'},												-- to many digit (fail)
			{'jfm=22.4444.333'},												-- to many digit (fail)

			{'jfm=224444.22'},													-- missing separator (fail)
			{'jfm=22.444422'},													-- missing separator (fail)

			{'jfm=jfm22.4444.22'},												-- jfm prefix (pass)
			{'jfm=22.4444.22'},													-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ L C C N >------------------------------------------------------------
]]

function p:test_lccn()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
		-- length 8
			{'lccn=7777777'},													-- missing digit (fail)
			{'lccn=8888888a'},													-- not all digit (fail)
			{'lccn=888 8888'},													-- space (fail)
			{'lccn=88888888'},													-- valid (pass)
		-- length 9
			{'lccn=999999999'},													-- to many digit (fail)
			{'lccn=A99999999'},													-- case (fail)
			{'lccn=a99999999'},													-- valid (pass)
		-- length 10
			{'lccn=a000000000'},												-- not all digit (fail)
			{'lccn=AA00000000'},												-- case (fail)
			{'lccn=000 000000'},												-- space (fail) TODO: fix this: renders as 000000 000 000000
			{'lccn=0000000000'},												-- valid (pass)
			{'lccn=aa00000000'},												-- valid (pass)
		-- length 11
			{'lccn=11111111111'},												-- all digit (fail)
			{'lccn=aa111111111'},												-- not enough alpha (fail)
			{'lccn=A1111111111'},												-- case (fail)
			{'lccn=AAA11111111'},												-- case (fail)
			{'lccn=a1111111111'},												-- valid (pass)
			{'lccn=aaa11111111'},												-- valid (pass)
		-- length 12
			{'lccn=222222222222'},												-- all digit (fail)
			{'lccn=a22222222222'},												-- not enough alpha (fail)
			{'lccn=AA2222222222'},												-- case (fail)
			{'lccn=aa2222222222'},												-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ M R >----------------------------------------------------------------
]]

function p:test_mr()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'mr=88888888'},													-- to many digit (fail)
			{'mr=a777777'},														-- non-digit (fail)
			{'mr=7777777'},														-- valid (pass)

			{'mr=MR7777777'},													-- valid (pass)
			{'mr=MR7'},															-- zero fill valid (pass)
			{'mr=7'},															-- zero fill valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ O C L C >------------------------------------------------------------
]]

function p:test_oclc()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'oclc=ocm8888888'},												-- not enough digit (fail)
			{'oclc=ocm888888888'},												-- too many digit (fail)
			{'oclc=OCM88888888'},												-- case (fail)
			{'oclc=ocm88888888'},												-- valid (pass)

			{'oclc=ocn99999999'},												-- not enough digit (fail)
			{'oclc=ocn9999999999'},												-- too many digit (fail)
			{'oclc=OCN999999999'},												-- case (fail)
			{'oclc=ocn999999999'},												-- valid (pass)

			{'oclc=on000000000'},												-- not enough digit (fail)
			{'oclc=ON0000000000'},												-- case (fail)
			{'oclc=on0000000000'},												-- valid (pass)

			{'oclc=(OCoLC)07'},													-- leading 0 (fail)
			{'oclc=(OCoLC)9999999999'},											-- too many digit (fail)
			{'oclc=(ocolc)07'},													-- case (fail)
			{'oclc=OCoLC9'},													-- missing parentheses (fail)
			{'oclc=(OCoLC)9'},													-- valid (pass)
			{'oclc=(OCoLC)999999999'},											-- valid (pass)

			{'oclc=00000000000'},												-- too many digit (fail)
			{'oclc=000X000000'},												-- non-digit (fail)
			{'oclc=0000000000'},												-- valid (pass)
			{'oclc=0'},															-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ O L >----------------------------------------------------------------
]]

function p:test_ol()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'ol=OLA'},															-- no digit (fail)

			{'ol=ol22A'},														-- prefix case (fail)
			{'ol=LO22A'},														-- invalid prefix (fail)
			{'ol=OL 22A'},														-- space (fail)

			{'ol=333'},															-- no suffix (fail)
			{'ol=333a'},														-- suffix case (fail)
			{'ol=333m'},														-- suffix case (fail)
			{'ol=333w'},														-- suffix case (fail)
			{'ol=333R'},														-- unknown suffix (fail)

			{'ol=OL4444A'},														-- valid (pass)
			{'ol=4444A'},														-- valid (pass)
			{'ol=OL55555M'},													-- valid (pass)
			{'ol=55555M'},														-- valid (pass)
			{'ol=OL666666W'},													-- valid (pass)
			{'ol=666666W'},														-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ P M C >--------------------------------------------------------------
]]

function p:test_pmc()
	local limit = live_cfg.id_handlers['PMC'].id_limit
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'pmc=PMC'},														-- no digit (fail)

			{'pmc=0'},															-- out of bounds (fail)
			{'pmc=1'},															-- in bounds (pass)
			{'pmc=' .. limit},													-- in bounds (pass)
			{'pmc=' .. limit+1},												-- out of bounds (fail)

			{'pmc=PMC1'},														-- valid (pass)
			{'pmc=PMC1 |doi=10.1000/something |doi-access=free'},				-- title linked from pmc

			{'pmc=22 |pmc-embargo-date=' .. today_plus_offset_get ('Y-m-d', '1 days')},	-- valid still embargoed

			{'pmc=22 |pmc-embargo-date=' .. today_plus_offset_get ('Y-m-d', '0 days')},	-- valid (pass)
			{'pmc=22 |pmc-embargo-date=' .. today_plus_offset_get ('F j, Y', '0 days')},	-- valid (pass)
			{'pmc=22 |pmc-embargo-date=' .. today_plus_offset_get ('j F Y', '0 days')},	-- valid (pass)
			{'pmc=22 |pmc-embargo-date=' .. today_plus_offset_get ('F Y', '0 days')},	-- valid (pass)
			{'pmc=22 |pmc-embargo-date=' .. today_plus_offset_get ('Y', '0 days')},		-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
	
	limit = new_cfg.id_handlers['PMC'].id_limit;								-- get samdbox limit
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Sandbox limit test |', '}}', '{{cite book |title=Sandbox limit test |', '}}',
		{
			{'pmc=' .. limit},													-- in bounds (pass)
			{'pmc=' .. limit+1},												-- out of bounds (fail)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ P M I D >------------------------------------------------------------
]]

function p:test_pmid()
	local limit = live_cfg.id_handlers['PMID'].id_limit
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'pmid=pmid'},														-- no digit (fail)

			{'pmid=0'},															-- out of bounds (fail)
			{'pmid=1'},															-- in bounds (pass)
			{'pmid=' .. limit},													-- in bounds (pass)
			{'pmid=' .. limit+1},												-- out of bounds (fail)
		},
		{nowiki=false, templatestyles=true}
	)

	limit = new_cfg.id_handlers['PMID'].id_limit;								-- get samdbox limit
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Sandbox limit test |', '}}', '{{cite book |title=Sandbox limit test |', '}}',
		{
			{'pmid=' .. limit},													-- in bounds (pass)
			{'pmid=' .. limit+1},												-- out of bounds (fail)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ Q I D >--------------------------------------------------------------
]]

function p:test_qid()
	self:preprocess_equals_preprocess_many(
    	'{{cite journal/new |title=Title |journal=Journal |', '}}', '{{cite journal |title=Title |journal=Journal |', '}}',
		{
			{'q=Q'},															-- no digit (fail)
			{'q=q1'},															-- not uppercase Q (fail)
			{'q=Q1'},															-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ S 2 C I D >----------------------------------------------------------
]]

function p:test_s2cid()
	local limit = live_cfg.id_handlers['S2CID'].id_limit
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'s2cid=s2cid'},													-- no digit (fail)

			{'s2cid=0'},														-- out of bounds (fail)
			{'s2cid=1'},														-- in bounds (pass)
			{'s2cid=' .. limit},												-- in bounds (pass)
			{'s2cid=' .. limit+1},												-- out of bounds (fail)
		},
		{nowiki=false, templatestyles=true}
	)

	limit = new_cfg.id_handlers['S2CID'].id_limit
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Sandbox limit test |', '}}', '{{cite book |title=Sandbox limit test |', '}}',
		{
			{'s2cid=' .. limit},												-- in bounds (pass)
			{'s2cid=' .. limit+1},												-- out of bounds (fail)
		},
		{nowiki=false, templatestyles=true}
	)end


--[[--------------------------< T E S T _ S B N >--------------------------------------------------------------
]]

function p:test_sbn()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'sbn=0–12345679'},													-- invalid character (ndash) (fail)
			{'sbn=01234567'},													-- length (8) (fail)
			{'sbn=0123456799'},													-- length (10) (fail)
			{'sbn=6123456X7'},													-- X in the wrong spot (fail)
			{'sbn=012345678'},													-- checkdigit (fail)
			{'sbn=012345679'},													-- valid (pass)
			{'sbn=61234567X'},													-- valid (pass)
			{'sbn=0-12345679'},													-- valid (pass)
			{'sbn=6-1234567X'},													-- valid (pass)
			{'sbn=0 12345679'},													-- valid (pass)
			{'sbn=6 1234567X'},													-- valid (pass)

		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ S S R N >------------------------------------------------------------
]]

function p:test_ssrn()
	local limit = live_cfg.id_handlers['SSRN'].id_limit
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'ssrn=ssrn'},														-- no digit (fail)

			{'ssrn=99'},														-- out of bounds (fail)
			{'ssrn=100'},														-- in bounds (pass)
			{'ssrn=' .. limit},													-- in bounds (pass)
			{'ssrn=' .. limit+1},												-- out of bounds (fail)
		},
		{nowiki=false, templatestyles=true}
	)
	
	limit = new_cfg.id_handlers['SSRN'].id_limit
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Sandbox limit test |', '}}', '{{cite book |title=Sandbox limit test |', '}}',
		{
			{'ssrn=' .. limit},													-- in bounds (pass)
			{'ssrn=' .. limit+1},												-- out of bounds (fail)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ M E S S A G E - I D >------------------------------------------------
]]

function p:test_message_id()
    self:preprocess_equals_preprocess_many(
    	'{{cite newsgroup/new |title=Title |', '}}', '{{cite newsgroup |title=Title |', '}}',
		{
			{'message-id=something'},											-- missing '@' (fail)
			{'message-id=<something@somewhere'},								-- leading '<' (fail)
			{'message-id=something@somewhere>'},								-- trailing '>' (fail)
			{'message-id=something@somewhere'},									-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ Z B L >--------------------------------------------------------------
]]

function p:test_zbl()
    self:preprocess_equals_preprocess_many(
    	'{{cite newsgroup/new |title=Title |', '}}', '{{cite newsgroup |title=Title |', '}}',
		{
			{'zbl=7777777'},													-- length (temp form) (fail)
			{'zbl=999999999'},													-- length (temp form) (fail)
			{'zbl=aaaaaaaa'},													-- must be digits (temp form) (fail)
			{'zbl=88888888'},													-- valid (temp form) (pass)

			{'zbl=444455555'},													-- missing dot (fail)
			{'zbl=333.666666'},													-- dot misplaced (fail)
			{'zbl=4444.55555'},													-- valid (pass)
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ A U T O _ L I N K  >----------------------------------------=========
]]

function p:test_auto_link()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |doi-access=free |', '}}', '{{cite book |title=Title |doi-access=free |', '}}',
		{
			{'doi=10.1000/something'},							-- title not linked
			{'pmc=1 |doi=10.1000/something'},					-- title not linked
		},
		{nowiki=false, templatestyles=true}
	);

    self:preprocess_equals_preprocess_many(
    	'{{cite journal/new |title=Title |journal=Journal |', '}}', '{{cite journal |title=Title |journal=Journal |', '}}',
		{
			{'doi=10.1000/something |doi-access=free |doi-broken-date=2020-09-09'},	-- title linked by doi; TODO: but should it be linked?
			{'doi=10.1000/some thing |doi-access=free'},						-- title linked by doi; TODO: but should it be linked?
			{'doi=10.1000/something |doi-access=free'},							-- title linked by doi

			{'pmc=1 |doi=10.1000/something |doi-access=free |pmc-embargo-date=' .. today_plus_offset_get ('Y-m-d', '1 days')},	-- embargoed pmc; title linked by doi
			{'pmc=1 |doi=10.1000/something |doi-access=free'},					-- title linked by pmc

			{'pmc=1 |pmc-embargo-date=' .. today_plus_offset_get ('Y-m-d', '1 days')},	-- title not linked
			{'pmc=0 |pmc-embargo-date=' .. today_plus_offset_get ('Y-m-d', '1 days')},	-- title not linked

			{'pmc=0 |doi=10.1000/something |doi-access=free'},					-- title linked by pmc; TODO: but shouldn't it be linked by doi?
			{'pmc=0 |doi=10.1000/something |doi-access=free |doi-broken-date=2020-09-09'},	-- title linked by pmc; TODO: should not be linked?
			{'pmc=0 |doi=10.1000/something |doi-access=free |doi-broken-date=2020-09-09 |pmc-embargo-date=' .. today_plus_offset_get ('Y-m-d', '1 days')},	-- title linked by pmc; TODO: should not be linked?
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ A C C E S S _ I C O N S >--------------------------------------------
]]

function p:test_access_icons()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'bibcode=1000a&1.b2.c3.d4..e |bibcode-access=free'},
			{'doi=10.1000/something |doi-access=free'},
			{'hdl=abc123/abc123 |hdl-access=free'},
			{'jstor=12345 |jstor-access=free'},
			{'ol=OL4444A |ol-access=free'},
			{'osti=15005772 |osti-access=free'},
			{'s2cid=30337924  |s2cid-access=free'},
		},
		{nowiki=false, templatestyles=true}
	)
end


--[[--------------------------< T E S T _ A C C E P T _ A S _ W R I T T E N >----------------------------------
]]

function p:test_accept_as_written()
    self:preprocess_equals_preprocess_many(
    	'{{cite book/new |title=Title |', '}}', '{{cite book |title=Title |', '}}',
		{
			{'doi=((10.1000/something.))'},
			{'eissn=((0123-4566))'},											-- check digit (fail)
			{'isbn=((3123467896))'},											-- checkdigit (fail)
			{'isbn=((978-01234567866))'},										-- length (14) (fail)
			{'isbn=((978-0123456788))'},										-- check digit (fail)
			{'issn=((0123-4566))'},												-- check digit (fail)
			{'sbn=((012345678))'},												-- checkdigit (fail)
		},
		{nowiki=false, templatestyles=true}
	)
end


return p
Discuss this page