Module:Category pair/testcases

This is the test cases page for the module Module:Category pair. Results of the test cases.
local catPair = require('Module:Category Pair') -- the module to be tested
local ScribuntoUnit = require('Module:ScribuntoUnit')
local suite = ScribuntoUnit:new()

local function makeCat(s)
	return mw.title.new(s,"Category")
end

function suite:test()
	self:assertStringContains(catPair._pair(makeCat("1934 FIFA World Cup"),makeCat("1950 FIFA World Cup")),
		"See also the preceding [[Category:1934 FIFA World Cup]] and the succeeding [[Category:1950 FIFA World Cup]]",
		"Pair exists failure")
	self:assertStringContains(catPair._pair(makeCat("1934 FIFA World Cup"),makeCat("1950 FIFA World Cup")),
		"seealso",
		"Missing seealso class")
	self:assertStringContains(catPair._pair(makeCat("1934 FIFA World Cup"),nil),
		"See also the preceding [[Category:1934 FIFA World Cup]]",
		"Preceding exists failure")
	self:assertStringContains(catPair._pair(nil,makeCat("1950 FIFA World Cup")),
		"See also the succeeding [[Category:1950 FIFA World Cup]]",
		"Succeeding exists failure")
	self:assertStringContains(catPair._pair(makeCat("1934 British Empire Games"),makeCat("1942 British Empire Games")),
		"See also the preceding [[Category:1934 British Empire Games]]",
		"Only preceding exists failure")
	self:assertStringContains(catPair._pair(makeCat("1946 British Empire Games"),makeCat("1954 British Empire and Commonwealth Games")),
		"See also the succeeding [[Category:1954 British Empire and Commonwealth Games]]",
		"Succeeding exists failure")
	self:assertEquals(catPair._pair(makeCat("AD 10 FIFA World Cup"),makeCat("1AD 18 FIFA World Cup")),"",
		"Both missing failure")
end