1use warnings; 2use strict; 3use Test::More tests => 10; 4use Lingua::JA::Moji qw/kana2cyrillic cyrillic2katakana/; 5use utf8; 6binmode STDOUT, ':utf8'; 7my %examples = ( 8 'シンブン', 'симбун', 9 'サンカ', 'санка', 10 'カンイ', 'канъи', 11 'ホンヤ', 'хонъя', 12); 13 14for my $kana (keys %examples) { 15# print "$kana\n"; 16 my $expect = $examples{$kana}; 17 my $cyrillic = kana2cyrillic ($kana); 18# print "$cyrillic $expect\n"; 19 ok ($cyrillic eq $expect); 20 my $roundtrip = cyrillic2katakana ($cyrillic); 21# print "$roundtrip\n"; 22 ok ($roundtrip eq $kana); 23} 24 25# These tests are taken from Wikipedia and are meant to be tests using 26# capital versions of the cyrillic letters. The "shindo" is missing a 27# final "う". 28my $c1 = 'Ябу но нака но куронэко'; 29my $c2 = 'Канэто Синдо'; 30my $k1 = cyrillic2katakana ($c1); 31my $k2 = cyrillic2katakana ($c2); 32#print "$k1 $k2\n"; 33ok ($k1 eq 'ヤブ ノ ナカ ノ クロネコ'); 34ok ($k2 eq 'カネト シンド'); 35 36