view release on metacpan or  search on metacpan

t/02_demeric.t  view on Meta::CPAN

    my($verb, $is, $should) = @_;

    is($is->[0], $should->[0], "I.sg. of $verb");
    is($is->[1], $should->[1], "II.sg. of $verb");
    is($is->[2], $should->[2], "III.sg. of $verb");
    is($is->[3], $should->[3], "I.pl. of $verb");
    is($is->[4], $should->[4], "II.pl. of $verb");
    is($is->[5], $should->[5], "III.pl. of $verb");
}

form_ok('LIUBEC', demeric('LIUBEC'), [ qw( LIUO/LIUBAO LIUOS/LIUBEOS LIUS/LIUBES LIUBOM LIUBOUS LIUBONT ) ]);
form_ok('LAUDAN', demeric('LAUDAN'), [ qw( LAUDAI LAUDEIS LAUDET LAUDAM LAUDUS  LAUDONT ) ]);
form_ok('LEILEN', demeric('LEILEN'), [ qw( LEILAI LEILEIS LEILET LEILEM LEILES  LEILENT ) ]);
form_ok('CLAGER', demeric('CLAGER'), [ qw( CLAGU  CLAGEUS CLAGIT CLAGUM CLAGUS  CLAGINT ) ]);
form_ok('NURIR',  demeric('NURIR' ), [ qw( NURU   NUREUS  NURET  NURUM  NURUS   NURUNT  ) ]);

form_ok('ESAN',   demeric('ESAN'  ), [ qw( SAI    SEIS    ES     ESAM   ESOS    SONT    ) ]);
form_ok('EPESAN', demeric('EPESAN'), [ qw( EUSAI  EUSEIS  EPES   EPESAM EPESOS  EUSONT  ) ]);
form_ok('CTANEN', demeric('CTANEN'), [ qw( CTAI   CTES    CTET   CTANAM CTANUS  CTANONT ) ]);
form_ok('FAR',    demeric('FAR'   ), [ qw( FAEU   FAES    FAET   FASCOM FASCOUS FASCONT ) ]);
form_ok('IUSIR',  demeric('IUSIR' ), [ qw( IUSU   IUS     IUT    IUSUM  IUSUS   IUINT   ) ]);
form_ok('LIUBEC', demeric('LIUBEC'), [ qw( LIUO/LIUBAO LIUOS/LIUBEOS LIUS/LIUBES LIUBOM LIUBOUS LIUBONT ) ]);
form_ok('KETHEN', demeric('KETHEN'), [ qw( KETHUI KETHUS  KETHUT KETHEM KETHES  KENT    ) ]);
form_ok('CULLIR', demeric('CULLIR'), [ qw( CULLU  CULS    CULT   CULLUM CULLUS  CULLINT ) ]);
form_ok('OHIR',   demeric('OHIR'  ), [ qw( OHU    UIS     UIT    OHUM   OHUS    OHINT   ) ]);
form_ok('SCRIFEC', demeric('SCRIFEC'), [ qw( SCRIFAO SCRIS SCRIT SCRIFOM SCRIFOUS SCRIFONT ) ]);
form_ok('NEN',    demeric('NEN'   ), [ qw( NEI    NIS     NIT    NESEM  NESES   NENT    ) ]);
form_ok('KES',    demeric('KES'   ), [ qw( KEAI   KIES    KIET   KEHAM  KEHUS   KEHONT  ) ]);
form_ok('VOLIR',  demeric('VOLIR' ), [ qw( VULU   VULS    VULT   VOLUM  VOLUS   VOLINT  ) ]);
form_ok('FAUCIR', demeric('FAUCIR'), [ qw( FAU    FEUS    FEUT   FAUCUM FAUCUS  FAUCINT ) ]);
form_ok('FAILIR', demeric('FAILIR'), [ qw( FAILU  FELS    FELT   FAILUM FAILUS  FAILINT ) ]);