Diferencia entre revisiones de «Módulo:QuickTest»

Revisión del 18:08 20 dic 2013

-- Tests whether a module has a test API, and if so, runs these tests

local p = {}

function p.run(titleCurrentPage)
	local title = titleCurrentPage
	local titlesplit = mw.text.split(title, '/', true)
	if titlesplit[1] ~= 'Module:' then return '' end
	if titlesplit[#titlesplit] == 'doc' then
		table.remove(titlesplit)
	end
	title = table.concat(titlesplit, '/')
	
	-- Load the module
	local m = require(title)
	local testFunction = m['runTests']
	local testFunctionType = type(testFunction)
	if ( testFunctionType ~= 'function' or not ( testFunctionType == 'table' and getmetatable(testFunction).__call ) ) then
		return '', title
	end
	
	-- Execute the test function
	local ok, result = pcall(testFunction)
	if ok then
		return result, title
	else
		return 'error', title
	end
end

function cat(title, titleCurrentPage, cat)
	if titleCurrentPage == title then return cat end
	return ''
end

function p.testModule(frame)
	local titleCurrentPage = frame and frame:getParent():getTitle() or 'Module:File'
	local testResult, title = p.run(titleCurrentPage)
	if testResult == true then
		return '[[File:Accept.png|16px|alt=Ok]]: Tests passed. C.f. [[COM:LUA/T#auto]]' .. cat(title, titleCurrentPage, '[[Category:Scribunto modules with tests passed]]')
	elseif testResult == false then
		return '[[File:Bug error.png|16px|alt=Bug]]: Tests failed. Run <code>=p.runTests()</code> in the LUA console on [[' .. title .. ']] for more details.' .. cat(title, titleCurrentPage, '[[Category:Scribunto modules with tests failed]]')
	elseif testResult == 'error' then
		return '[[File:Error.png|16px|alt=Error]]: Error executing tests.' .. cat(title, titleCurrentPage, '[[Category:Scribunto modules with errors executing tests]]')
	else
		return testResult .. cat(title, titleCurrentPage, '[[Category:Scribunto modules without test API]]')
	end
end

return p