view release on metacpan or  search on metacpan

t/02_syllabify.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', 'syllabify'; }

eq_or_diff [ syllabify 'monghom' ],
           [ qw(mon ghom)        ],
           'monghom';

eq_or_diff [ syllabify 'mongHom' ],
           [ qw(mong Hom)        ],
           'mongHom';

eq_or_diff [ syllabify 'mongghom' ],
           [ qw(mong ghom)        ],
           'mongghom';

eq_or_diff [ syllabify 'vavoy' ],
           [ qw(va voy)        ],
           'vavoy';

eq_or_diff [ syllabify "tu'lu'" ],
           [ qw(tu' lu')        ],
           "tu'lu'";

eq_or_diff [ syllabify "yIghuS" ],
           [ qw(yI ghuS)        ],
           "yIghuS";

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

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

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

eq_or_diff [ syllabify 'cha' ],
           [ qw(cha)         ],
           "cha";

eq_or_diff [ syllabify "rolIj" ],
           [ qw(ro lIj)        ],
           "rolIj";

eq_or_diff [ syllabify "ro'lIj" ],
           [ qw(ro' lIj)        ],
           "ro'lIj";

eq_or_diff [ syllabify "paw" ],
           [ qw(paw)         ],
           "paw";

eq_or_diff [ syllabify "paw'" ],
           [ qw(paw')         ],
           "paw'";