Module:QuickTest

-- 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]:find('Module:', 1, true) ~= 1 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' and 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.args and frame.args.title ) or ( frame and frame:preprocess('') ) or 'Frame not defined.' local testResult, title = p.run(titleCurrentPage) if testResult == true then return ' Tests passed. C.f. COM:LUA/T' .. cat(title, titleCurrentPage, '') elseif testResult == false then return ' Tests failed. Run  in the LUA console on ' .. title .. ' for more details.' .. cat(title, titleCurrentPage, '') elseif testResult == 'error' then return ' Error executing tests.' .. cat(title, titleCurrentPage, '') else return testResult .. cat(title, titleCurrentPage, '') end end

function p.injectResult(frame) result = p.testModule(frame) if result ==  then return  end return ( frame.args['pattern']:gsub('%%result%%', result) ) end

return p