Module:Exponential search/testcases

local search = require('Module:Exponential search')
local ScribuntoUnit = require('Module:ScribuntoUnit')
local suite = ScribuntoUnit:new()

local function makeArrayTest(len)
	local array = {}
	for i = 1, len do
		array[i] = true
	end
	return function (i)
		return array[i]
	end
end

local zeroTest = makeArrayTest(0)

function suite:assertError(func, ...)
	local success, ret = pcall(func, ...)
	self:assertFalse(success)
	return ret
end

function suite:assertErrorMsg(msg, func, ...)
	local ret = self:assertError(func, ...)
	self:assertStringContains(msg, ret, true)
end

function suite:testFuncType()
	self:assertError(search, 5)
	self:assertError(search, 'foo')
	self:assertError(search, true)
	self:assertError(search, {})
	self:assertError(search, nil)
end

function suite:testInitType()
	self:assertError(search, zeroTest, 'foo')
	self:assertError(search, zeroTest, zeroTest)
	self:assertError(search, zeroTest, true)
	self:assertError(search, zeroTest, {})
end
 
function suite:testInitIntegerCheck()
	self:assertErrorMsg(
		"invalid init value '0' detected in argument #2 to 'Exponential search' (init values must be a positive integer)",
		search, zeroTest, 0
	)
	self:assertErrorMsg(
		"invalid init value '1.5' detected in argument #2 to 'Exponential search' (init values must be a positive integer)",
		search, zeroTest, 1.5
	)
	self:assertErrorMsg(
		"invalid init value '-3' detected in argument #2 to 'Exponential search' (init values must be a positive integer)",
		search, zeroTest, -3
	)
	self:assertErrorMsg(
		"invalid init value 'inf' detected in argument #2 to 'Exponential search' (init values must be a positive integer)",
		search, zeroTest, math.huge
	)
	self:assertErrorMsg(
		"invalid init value '-nan' detected in argument #2 to 'Exponential search' (init values must be a positive integer)",
		search, zeroTest, 0/0
	)
end

return suite