Module:lemme/testcases

Tous les tests ont réussi (rafraichir)

test_is_lemme_fr :

	Texte	Attendu	Obtenu
	maison (fr-nom-noflex-noloc)	true	true
	maisons (fr-nom-flex-noloc)	false	false
	parce que (fr-nom-noflex-loc)	false	false
	Paul (fr-prénom-noflex-noloc)	false	false
	Paris (fr-nom-pr-noflex-noloc)	false	false
	Dupont (fr-nom-fam-noflex-noloc)	false	false

test_is_lemme_other :

	Texte	Attendu	Obtenu
	house (en-nom-noflex-noloc)	true	true
	houses (en-nom-flex-noloc)	false	false
	domus (la-nom-noflex-noloc)	true	true
	domum (la-nom-flex-noloc)	false	false

---

local tests = require('Module:UnitTests')
local lex = require('Module:lemme')

function tests:check_is_lemme(mot, lang, type, flexion, loc, attendu)
	text = mot .. " (" .. lang .. "-" .. type .. "-" .. (flexion and "flex" or "noflex") .. "-" .. (loc and "loc" or "noloc") ..")"
	self:equals(text, lex.is_lemme(lang, type, flexion, loc), attendu)
end

function tests:test_is_lemme_fr()
	self:check_is_lemme('maison', 'fr', 'nom', false, false, true)
	self:check_is_lemme('maisons', 'fr', 'nom', true, false, false)
	self:check_is_lemme('parce que', 'fr', 'nom', false, true, false)
	self:check_is_lemme('Paul', 'fr', 'prénom', false, false, false)
	self:check_is_lemme('Paris', 'fr', 'nom-pr', false, false, false)
	self:check_is_lemme('Dupont', 'fr', 'nom-fam', false, false, false)
end

function tests:test_is_lemme_other()
	self:check_is_lemme('house', 'en', 'nom', false, false, true)
	self:check_is_lemme('houses', 'en', 'nom', true, false, false)
	self:check_is_lemme('domus', 'la', 'nom', false, false, true)
	self:check_is_lemme('domum', 'la', 'nom', true, false, false)
end

return tests