Módulo:UnitTests

-- Proporciona tests para otros scripts Lua.
-- 
local UnitTester = {}

local categoriaErrores='[[Categoría:Wikipedia:Módulos con pruebas erróneas]]'

local frame, tick, cross
local result_table = ''
local num_failures = 0

function first_difference(s1, s2)
    if s1 == s2 then return '' end
    local max = math.min(#s1, #s2)
    for i = 1, max do
        if s1:sub(i,i) ~= s2:sub(i,i) then return i end
    end
    return max + 1
end

local function enlazarWikidata(separador, letra, numero)
	local id = letra .. numero
	local etiqueta = mw.wikibase.getLabel( id )
	
	if etiqueta then 
		return separador .. '</nowiki><span title="' .. etiqueta .. '">' .. id .. '</span><nowiki>'
	elseif letra == 'P' or letra == 'p' then
		return separador .. '</nowiki>[[d:Property:' .. id .. '|' .. id .. ']]<nowiki>'			
	else -- Q / q
		return separador .. '</nowiki>[[d:' .. id .. '|' .. id .. ']]<nowiki>'	
	end
end

function UnitTester:preprocess_equals(text, expected, options)
	local textoCorregido = text:gsub('([|=])([PQpQ])(%d+)',enlazarWikidata)
	
    local actual   = frame:preprocess(text)
    local esperado = frame:preprocess(expected)
    
    result_table = result_table .. '<tr>'
    
    if actual == esperado then
        result_table = result_table .. '<td>' .. tick .. '</td>'
    else
        result_table = result_table .. '<td>' .. cross .. '</td>'
        num_failures = num_failures + 1
    end
    local nowiki_open = (options and options.nowiki) and '<nowiki>' or ''
    local nowiki_close = (options and options.nowiki) and '</nowiki>' or ''
    local differs_at = self.differs_at and ('<td>' .. first_difference(expected, actual) .. '</td>') or ''
    --result_table = result_table .. '<td><nowiki>' .. textoCorregido:gsub('%|', '&#124;') .. '</nowiki></td><td> ' .. nowiki_open .. expected .. nowiki_close .. ' </td><td> ' .. nowiki_open .. actual .. nowiki_close .. '</td>' .. differs_at .. "\n</tr>\n"
	result_table = result_table .. '<td><nowiki>' .. textoCorregido .. '</nowiki></td><td> ' .. nowiki_open .. expected .. nowiki_close .. ' </td><td> ' .. nowiki_open .. actual .. nowiki_close .. '</td>' .. differs_at .. "\n</tr>\n"    
end

function UnitTester:preprocess_equals_many(prefix, suffix, cases, options)
    for _, case in ipairs(cases) do
        self:preprocess_equals(prefix .. case[1] .. suffix, case[2], options)
    end
end

function UnitTester:preprocess_equals_preprocess(text1, text2, options)
    local actual = frame:preprocess(text1)
    local expected = frame:preprocess(text2)
    
    result_table = result_table .. '<tr>'
    
    if actual == expected then
        result_table = result_table .. '<td>' .. tick .. '</td>'
    else
        result_table = result_table .. '<td>' .. cross .. '</td>'
        num_failures = num_failures + 1
    end
    local nowiki_open = (options and options.nowiki) and '<nowiki>' or ''
    local nowiki_close = (options and options.nowiki) and '</nowiki>' or ''
    local differs_at = self.differs_at and ('<td>' .. first_difference(expected, actual) .. '</td>') or ''
    result_table = result_table .. '<td><nowiki>' .. text1:gsub('%|', '&#124;') .. '</nowiki></td><td> ' .. nowiki_open .. expected .. nowiki_close .. '</td><td>' .. nowiki_open .. actual .. nowiki_close .. '<td>' .. differs_at .. "\n</tr>\n"
end

function UnitTester:preprocess_equals_preprocess_many(prefix1, suffix1, prefix2, suffix2, cases, options)
    for _, case in ipairs(cases) do
        self:preprocess_equals_preprocess(prefix1 .. case[1] .. suffix1, prefix2 .. (case[2] and case[2] or case[1]) .. suffix2, options)
    end
end

function UnitTester:equals(name, actual, expected, options)
	
	result_table = result_table .. '<tr>'
	
    if actual == expected then
        result_table = result_table .. '<td>' .. tick .. '</td>'
    else
        result_table = result_table .. '<td>' .. cross .. '</td>'
        num_failures = num_failures + 1
    end
    local nowiki_open = (options and options.nowiki) and '<nowiki>' or ''
    local nowiki_close = (options and options.nowiki) and '</nowiki>' or ''
    local differs_at = self.differs_at and ('<td>' .. first_difference(expected, actual) .. '</td>') or ''
    result_table = result_table .. '<td>' .. name .. '</td><td>' .. nowiki_open .. expected .. nowiki_close .. '</td><td>' .. nowiki_open .. actual .. nowiki_close .. '</td>' .. differs_at .. "\n</tr>\n"
end

function UnitTester:run(frame_arg)
    frame = frame_arg
    self.frame = frame
    self.differs_at = frame.args['differs_at']
    tick = frame:preprocess('{{Sí|}}')
    cross = frame:preprocess('{{No|}}')

    local table_header
    if self.differs_at then
        table_header = '<table class="wikitable"><tr><th></th><th>Código</th><th>Esperado</th><th>Resultado</th><th>Diferencias</th></tr>'
    else
    	table_header = '<table class="wikitable"><tr><th></th><th>Código</th><th>Esperado</th><th>Resultado</th></tr>'
    end

    -- Sort results into alphabetical order.
    local self_sorted = {}
    for key,value in pairs(self) do
        if key:find('^test') then
            table.insert(self_sorted, key)
        end
    end
    table.sort(self_sorted)
    -- Add results to the results table.
    for i,value in ipairs(self_sorted) do
        result_table = result_table .. "'''" .. value .. "''':\n" .. table_header .. "\n"
        self[value](self)
        result_table = result_table .. "</table>\n\n"
    end

    return
    	 ((num_failures == 0 and "<font color=\"#008000\">'''Todas las pruebas superadas.'''</font>") or
    	 (num_failures == 1 and "<font color=\"#800000\">''' Ha fallado una prueba.'''</font>" .. categoriaErrores) or
    	 ("<font color=\"#800000\">''' Han fallado " .. num_failures .. " pruebas.'''</font>") .. categoriaErrores)
    	 .. "\n\n" .. frame:preprocess(result_table)
end

function UnitTester:new()
    local o = {}
    setmetatable(o, self)
    self.__index = self
    return o
end

local p = UnitTester:new()
function p.run_tests(frame) return p:run(frame) end
return p