|
#!perl -T
use 5.010;
use open ':encoding(utf8)' ;
sub closed_syllable {
return Lingua::IT::Ita2heb::closed_syllable( @_ );
}
ok(!closed_syllable([ qw( a d a m m ) ], 2), 'too close to the end' );
ok(!closed_syllable([ qw( a d a m m ) ], 0), 'vowel, consonant, vowel' );
ok(!closed_syllable([ qw( a a d a m ) ], 0), 'vowel, vowel, consonant' );
ok(
!closed_syllable(
[ 'a' , "\N{LATIN SMALL LETTER A WITH GRAVE}" , 'd' , 'a' , 'm' ], 0
),
'vowel, vowel with diacritic, consonant'
);
ok(closed_syllable([ qw( a d a m m o ) ], 2), 'vowel, consonant, consonant' );
|