Módulo:Zona de pruebas/Eloy/Español/tests

-- Tests para [[Module:Demo]]. El resultado está en la página de discusión.
--local p = require('Module:UnitTests')
 
--function p:test_hola()
--    self:preprocess_equals('{{#invoke:Demo | hola}}', '¡Hola mundo!')
--end
 
--return p

local t={}

-- Función de prueba
-- Debe moverse a un módulo independiente, y ser llamado desde la consola de este módulo
function t.test_y_e(fn)
    local tests=
        {
             {'e','historia'},
             {'e','informática'},
             {'y','hielo'},
             {'y','épico'},
             {'y','yerba'},
             {'y','yodo'},
             {'e','Ícaro'},
             {'e','ícono'},
             {'e','icono'},
             {'e','Yrithinnd'},
             {'y','Yodigo'},
             {'e','Isha'},
             {'y','Ezarate'},
             {'e','Eagles'},
             {'e','Easy Rider'},
             {'y','Eau de-Cologne'},
             {'e','Eastmancolor'},
             {'y','hierba'},
             {'y','hierro'},
             {'y','hiato'},
             {'e','Islandia'},
             {'y','¡Ya basta!'},
             {'y','iPhone'},
             {'e','Ycuá Satí'},
             {'y','Yugoslavia'},
             {'y','Hi-5'},
             {'y','Hawái'},
             {'y','yo'},
             {'e','Y'},
             {'y','Y viva España'},
             {'e','¡Histeria!'},
             {'y','iPad'},
             {'e','I'},
             {'e','Himno Nacional Mexicano'},
             {'y','¡Hola!'},
             {'y','iTunes'},
             {'y','¿Hablas conmigo?'},
             {'y','¿Es usted el asesino?'},
             {'y',' I Love You Baby'},
             {'e','¡Invasión! (cómic)'},
             {'y','¿Y ahora qué?'},
             {'y',"I've Got a Feeling"},
             {'e','eBay'},
             {'e','e-mail'},
             {'y','iMac'},
             {'e','e-book'},
             {'e','IBM'},
             {'y','comillas'},
             {'y','Highlander'},
             {'y','I Want to Hold Your Hand'},
             {'e','eMule'},
             {'e','e-learning'},
             {'e','ILoveYou'},             -- No es capaz de diferenciar esto
             {'e',"IDon't Want to Fight"}, -- No es capaz de diferenciar esto
             {'y','de Química'},
             {'y','República de Islandia'}
        }
    local ok=0
    for _,i in pairs(tests) do
        i[3]=fn(i[2])
        if (i[3]~=i[1]) then
            mw.log(i[1],i[2],i[3])
        else
            ok=ok+1
        end
    end
    mw.log('** Correctos ',ok,' de ',#tests,' (',100*ok/#tests,'%)')
    return tests
end

return t