Módulo:testeo

--tomado de Module:UnitTests del sitio en.wiktionary.org

local m_str = require("Módulo:String")
local m_table = require("Módulo:tabla")

local UnitTester = {}

local concat = table.concat
local deep_equals = m_table.deepEquals
local html = mw.html
local insert = table.insert
local escapar_wiki = require("Módulo:String/escapar")
local shallowcopy = m_table.shallowcopy
local sort = table.sort
local sorted_pairs = m_table.sortedPairs

--local tick, cross =
--	']',
--	']'

local function val_to_str(v)
	if type(v) == 'string' then
		v = string.gsub(v, '\n', '\\n')
		if string.find(string.gsub(v, '', ''), '^"+$') then
			return "'" .. v .. "'"
		end
		return '"' .. string.gsub(v, '"', '\\"' ) .. '"'
	elseif type(v) == 'table' then
		local result, done = {}, {}
		for k, val in ipairs(v) do
			insert(result, val_to_str(val))
			done = true
		end
		for k, val in sorted_pairs(v) do
			if not done then
				if (type(k) ~= "string") or not string.find(k, '^*$') then
					k = ''
				end
				insert(result, k .. '=' .. val_to_str(val))
			end
		end
		return "{" .. concat(result, ", ") .. "}"
	else
		return tostring(v)
	end
end

function UnitTester:son_iguales(a, b)
    if type(a) ~= type(b) then
        error("los valores a comparar son de diferente tipo")
    end
    if type(a) ~= "table" then
        return a == b
    else
        return deep_equals(a, b) --ignore_mt (mt de metatable)??
    end
end

function UnitTester:insertar_titulo(titulo, aumentar)
	local header = html.create("th"):attr("colspan", self.n_campos)
	
	if aumentar then
		header = header:css("text-align", "center"):css("font-size", "150%")
	else
		header = header:css("text-align", "left")
	end
	
	header = header:wikitext(titulo)
	
	self.result_table = self.result_table:tag("tr"):node(header):done()
end

function UnitTester:insertar_campos()
	local row = html.create("tr")
	
	for _, cell in ipairs(self.campos) do
		row = row:tag("th"):wikitext(cell):done()
	end
	
	self.result_table = self.result_table:node(row)
end

function UnitTester:insertar_caso(fila)
    local row = html.create("tr")

    for i, celda in ipairs(fila) do
        if self.contar_en_columna and self.contar_en_columna == i then
        	if celda then
        		row = row:tag("td")
        				:css('font-family', 'monospace')
        				:wikitext("[ ")
        				:tag("span")
        					:css("color", "green")
        					:wikitext("ok")
        					:done()
        				:wikitext(" ]")
        				:allDone()
        	else
        		row = row:tag("td")
        				:css('font-family', 'monospace')
        				:wikitext("[ ")
        				:tag("span")
        					:css("color", "red")
        					:wikitext("MAL")
        					:done()
        				:wikitext(" ]")
        				:allDone()
            	self.num_failures = self.num_failures + 1
        	end
        else
		    if type(celda) == "table" then
		        celda = val_to_str(shallowcopy(celda))
		    elseif type(celda) ~= "string" then
		        celda = tostring(celda)
		    end
		    
		    if self.tw then
				row = row:tag("td"):wikitext(celda):done()
		    else
		    	row = row:tag("td")
						:css("word-break", "break-all")
		    			:css('font-family', 'monospace')
		    			:wikitext(self.frame:extensionTag("nowiki", celda))
		    			:done()
		    end
        end
	end

	self.result_table = self.result_table:node(row)
	self.total_tests = self.total_tests + 1
end

function UnitTester:nueva_prueba(cb_key)
	self.result_table = html.create("table"):attr("class", "unit-tests wikitable")
		:tag("caption")
			:css("text-align", "left")
			:css("font-weight", "bold")
			:wikitext(cb_key .. ":")
			:done()
		:allDone()
	local traceback = "(sin trazas)"
	local success, mesg = xpcall(function()	return self(self) end, function(mesg) traceback = debug.traceback("", 2) return mesg end)
	if not success then
		self.result_table = self.result_table:tag("tr")
			:tag("td")
				:attr("colspan", self.n_campos)
				:css("text-align", "left")
				:tag("strong")
					:attr("class", "error")
					:wikitext("Error mientras se testeaba la función "..tostring(cb_key)..": " .. escapar_wiki(mesg))
					:done()
				:wikitext(self.frame:extensionTag("pre", traceback))
				:allDone()
		self.num_failures = self.num_failures + 1
	end
end

function UnitTester:iterar(ejemplos, func)
	require('libraryUtil').checkType('iterate', 1, ejemplos, 'table')
	
	if type(func) == 'string' then
		func = self
	elseif type(func) ~= 'function' then
		error(("Mal el argumento #2 para 'iterar' (se esperaba función o string y se recibió %s)"):format(type(func)), 2)
	end
	
	for i, example in ipairs(ejemplos) do
        self:insertar_caso(func(self, example))
	end
end

function UnitTester:run(frame)
	
	local output = {}

	local iparams = {
		 = {tipo = "num", por_defecto=-1},
		 = {tipo = "bool", por_defecto=false},
		 = {lista = true},
		 = {alias_de = "campo"},
		 = {alias_de = "campo"},
		 = {lista = true, tipo = "bool"},
		 = {alias_de = "tw"}
	}

	local iargs = require("Módulo:parámetros").obtener_parametros(frame.args, iparams)

	self.frame = frame
    self.contar_en_columna = iargs.col_ev >= 1 and tonumber(iargs.col_ev) or nil
    self.campos = #iargs.campo > 0 and iargs.campo or {"entrada", "salida"}
    self.n_campos = #self.campos + 1
	self.total_tests = 0
	self.num_failures = 0
    self.resumen = iargs.resumen
    self.tw = iargs.tw

	-- Sort results into alphabetical order.
	local self_sorted = {}
	for key, value in pairs(self) do
		if key:find('^test') then
			insert(self_sorted, key)
		end
	end
	sort(self_sorted)
	
	-- Add results to the results table.
	for _, key in ipairs(self_sorted) do
		self:nueva_prueba(key)
		insert(output, tostring(self.result_table))
	end

	local refresh_link = tostring(mw.uri.fullUrl(mw.title.getCurrentTitle().fullText, 'action=purge&forcelinkupdate=1'))

	local failure_cat = ']'
	
	local num_successes = self.total_tests - self.num_failures

    if self.contar_en_columna then
        if self.resumen then
            if self.num_failures == 0 then
                return '<strong class="success">' .. self.total_tests .. '/' .. self.total_tests .. ' pruebas correctas</strong>'
            else
                return '<strong class="error">' .. num_successes .. '/' .. self.total_tests .. ' pruebas correctas</strong>'
            end
        else
            return (self.num_failures == 0 and '<strong class="success">Todas las pruebas OK!</strong>' or 
                    '<strong class="error">Fall'.. (self.num_failures == 1 and 'ó ' or 'aron ') .. self.num_failures .. ' de ' .. self.total_tests .. ' prueba' .. (self.total_tests == 1 and '' or 's' ) .. '</strong>' .. failure_cat) ..
                " <span class='plainlinks unit-tests-refresh'></span>\n\n" ..
                concat(output, "\n\n")
        end
    else
        return "<span class='plainlinks unit-tests-refresh'></span>\n\n" .. concat(output, "\n\n")
    end
end

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

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