view release on metacpan or  search on metacpan

t/03_spell.t  view on Meta::CPAN

# vim:set filetype=perl sw=4 et:

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

use Test::More tests => 31;
use Test::Differences;
use Carp;

BEGIN {use_ok 'Lingua::Klingon::Segment', 'spell'; }

eq_or_diff [ spell 'monghom'  ],
           [ qw(m o n gh o m) ],
           'monghom';

eq_or_diff [ spell 'mongHom'  ],
           [ qw(m o ng H o m) ],
           'mongHom';

eq_or_diff [ spell 'mongghom'  ],
           [ qw(m o ng gh o m) ],
           'mongghom';

eq_or_diff [ spell 'vavoy' ],
           [ qw(v a v o y) ],
           'vavoy';

eq_or_diff [ spell "tu'lu'"  ],
           [ qw(t u ' l u ') ],
           "tu'lu'";

eq_or_diff [ spell "yIghuS" ],
           [ qw(y I gh u S) ],
           "yIghuS";

eq_or_diff [ spell "pa''a'"  ],
           [ qw(p a ' ' a ') ],
           "pa''a'";

eq_or_diff [ spell "cha'a'" ],
           [ qw(ch a ' a ') ],
           "cha'a'";

eq_or_diff [ spell "cha''a'"  ],
           [ qw(ch a ' ' a ') ],
           "cha''a'";

eq_or_diff [ spell 'cha' ],
           [ qw(ch a)    ],
           "cha";

eq_or_diff [ spell "rolIj" ],
           [ qw(r o l I j) ],
           "rolIj";

eq_or_diff [ spell "ro'lIj"  ],
           [ qw(r o ' l I j) ],
           "ro'lIj";

eq_or_diff [ spell "paw" ],
           [ qw(p a w)   ],
           "paw";

eq_or_diff [ spell "paw'" ],
           [ qw(p a w ')  ],
           "paw'";