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