e05f326d1c
There are already pretty solid tests of makeplural, so add some in the other direction, since it's similarly complicated and has to implement many of the same special cases and exceptions in the other direction. I originally tried just running the makeplural tests backwards to this end, but several of them are tests to guarantee already-plural words aren't further pluralized, so are not reversible.
124 lines
3.2 KiB
Lua
124 lines
3.2 KiB
Lua
|
|
-- Test different src functions
|
|
|
|
local tests = {
|
|
makeplural = {
|
|
algae = "algae",
|
|
amoeba = "amoebae",
|
|
baluchitherium = "baluchitheria",
|
|
Bordeaux = "Bordeaux",
|
|
["bunch of grapes"] = "bunches of grapes",
|
|
bus = "buses",
|
|
candelabrum = "candelabra",
|
|
caveman = "cavemen",
|
|
child = "children",
|
|
cookie = "cookies",
|
|
deer = "deer",
|
|
dingo = "dingoes",
|
|
epoch = "epochs",
|
|
["Federal Bureau of Investigation"] = "Federal Bureaus of Investigation",
|
|
fish = "fish",
|
|
foot = "feet",
|
|
fox = "foxes",
|
|
fungus = "fungi",
|
|
gateau = "gateaux",
|
|
gauntlet = "gauntlets",
|
|
["gauntlet of power"] = "gauntlets of power",
|
|
goose = "geese",
|
|
homunculus = "homunculi",
|
|
hoof = "hooves",
|
|
hyphae = "hyphae",
|
|
knife = "knives",
|
|
larvae = "larvae",
|
|
loch = "lochs",
|
|
lotus = "lotuses",
|
|
louse = "lice",
|
|
manes = "manes",
|
|
matzah = "matzot",
|
|
matzoh = "matzot",
|
|
mech = "mechs",
|
|
mouse = "mice",
|
|
mycelium = "mycelia",
|
|
nemesis = "nemeses",
|
|
nerf = "nerfs",
|
|
ninja = "ninja",
|
|
ox = "oxen",
|
|
potato = "potatoes",
|
|
priestess = "priestesses",
|
|
ronin = "ronin",
|
|
roshi = "roshi",
|
|
scale = "scales",
|
|
serf = "serfs",
|
|
shaman = "shamans",
|
|
sheep = "sheep",
|
|
shito = "shito",
|
|
["slice of cake"] = "slices of cake",
|
|
stamen = "stamens",
|
|
tech = "techs",
|
|
tengu = "tengu",
|
|
tomato = "tomatoes",
|
|
tooth = "teeth",
|
|
tuna = "tuna",
|
|
valkyrie = "valkyries",
|
|
VAX = "VAXES",
|
|
vertebra = "vertebrae",
|
|
vortex = "vortices",
|
|
woman = "women",
|
|
wumpus = "wumpuses",
|
|
zorkmid = "zorkmids",
|
|
monarch = "monarchs",
|
|
stomach = "stomachs",
|
|
loch = "lochs",
|
|
tech = "techs",
|
|
},
|
|
makesingular = {
|
|
algae = "alga",
|
|
amoebae = "amoeba",
|
|
baluchitheria = "baluchitherium",
|
|
Bordeaux = "Bordeaux",
|
|
buses = "bus",
|
|
dingoes = "dingo",
|
|
["gateaux au chocolat"] = "gateau au chocolat",
|
|
larvae = "larva",
|
|
lice = "louse",
|
|
matzot = "matzo",
|
|
mycelia = "mycelium",
|
|
nemeses = "nemesis",
|
|
oxen = "ox",
|
|
potatoes = "potato",
|
|
["pots of tulips"] = "pot of tulips",
|
|
priestesses = "priestess",
|
|
ronin = "ronin",
|
|
["set of dragon scales"] = "set of dragon scales",
|
|
techs = "tech",
|
|
tuna = "tuna",
|
|
vertebrae = "vertebra",
|
|
vortices = "vortex",
|
|
},
|
|
an = {
|
|
a = "an a",
|
|
b = "a b",
|
|
["the foo"] = "the foo",
|
|
["molten lava"] = "molten lava",
|
|
["iron bars"] = "iron bars",
|
|
ice = "ice",
|
|
unicorn = "a unicorn",
|
|
uranium = "a uranium",
|
|
["one-eyed"] = "a one-eyed",
|
|
candy = "a candy",
|
|
eucalyptus = "a eucalyptus",
|
|
ukulele = "a ukulele",
|
|
uke = "a uke",
|
|
["useful tool"] = "a useful tool",
|
|
}
|
|
}
|
|
|
|
for func, fval in pairs(tests) do
|
|
for instr, outstr in pairs(fval) do
|
|
local ret = nh[func](instr)
|
|
if ret ~= outstr then
|
|
error(func .. "(\"" .. instr .. "\") != \"" .. outstr .. "\" (returned \"" .. ret .. "\") instead")
|
|
end
|
|
end
|
|
end
|