view release on metacpan or  search on metacpan

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

# vim:set filetype=perl:
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1.t'

#########################

use Test::More tests => 187;
use Carp;

BEGIN { use_ok 'Lingua::Zompist::Cadhinor', 'demeric'; }

sub form_ok {
    croak 'usage: form_ok($verb, $is, $should)' unless @_ >= 3;
    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('DUMEC',  demeric('DUMEC' ), [ qw( DUMAO  DUMEOS  DUMES  DUMOM  DUMOUS  DUMONT  ) ]);
form_ok('KEKAN',  demeric('KEKAN' ), [ qw( KEKAI  KEKEIS  KEKET  KEKAM  KEKUS   KEKONT  ) ]);
form_ok('NOMEN',  demeric('NOMEN' ), [ qw( NOMAI  NOMEIS  NOMET  NOMEM  NOMES   NOMENT  ) ]);
form_ok('CLAGER', demeric('CLAGER'), [ qw( CLAGU  CLAGEUS CLAGET CLAGUM CLAGUS  CLAGUNT ) ]);
form_ok('PARIR',  demeric('PARIR' ), [ qw( PARU   PAREUS  PARIT  PARUM  PARUS   PARINT  ) ]);

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   LIUOS   LIUS   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 ) ]);

form_ok('CLAETER', demeric('CLAETER'), [ qw( CLAETHU CLAETEUS CLAETET CLAETHUM CLAETHUS CLAETHUNT ) ]);
form_ok('CADIR', demeric('CADIR'), [ qw( CADHU CADEUS CADIT CADHUM CADHUS CADINT ) ]);

# test general forms
form_ok('GGGEC', demeric('GGGEC'), [ qw( GGGAO GGGEOS GGGES GGGOM GGGOUS GGGONT ) ]);
form_ok('GGGAN', demeric('GGGAN'), [ qw( GGGAI GGGEIS GGGET GGGAM GGGUS  GGGONT ) ]);
form_ok('GGGEN', demeric('GGGEN'), [ qw( GGGAI GGGEIS GGGET GGGEM GGGES  GGGENT ) ]);
form_ok('GGGER', demeric('GGGER'), [ qw( GGGU  GGGEUS GGGET GGGUM GGGUS  GGGUNT ) ]);
form_ok('GGGIR', demeric('GGGIR'), [ qw( GGGU  GGGEUS GGGIT GGGUM GGGUS  GGGINT ) ]);

form_ok('ATER', demeric('ATER'), [ qw( ATHU  ATEUS ATET ATHUM ATHUS  ATHUNT ) ]);
form_ok('ADER', demeric('ADER'), [ qw( ADHU  ADEUS ADET ADHUM ADHUS  ADHUNT ) ]);
form_ok('ETIR', demeric('ETIR'), [ qw( ETHU  ETEUS ETIT ETHUM ETHUS  ETINT ) ]);
form_ok('ADIR', demeric('ADIR'), [ qw( ADHU  ADEUS ADIT ADHUM ADHUS  ADINT ) ]);