use warnings;
use strict;
use Test::More tests => 10;
use Lingua::JA::Moji qw/kana2cyrillic cyrillic2katakana/;
use utf8;
binmode STDOUT, ':utf8';
my %examples = (
    'シンブン',  'симбун',      
    'サンカ',   'санка',        
    'カンイ',   'канъи',       
    'ホンヤ',   'хонъя',       
);

for my $kana (keys %examples) {
#    print "$kana\n";
    my $expect = $examples{$kana};
    my $cyrillic = kana2cyrillic ($kana);
#    print "$cyrillic $expect\n";
    ok ($cyrillic eq $expect);
    my $roundtrip = cyrillic2katakana ($cyrillic);
#    print "$roundtrip\n";
    ok ($roundtrip eq $kana);
}

# These tests are taken from Wikipedia and are meant to be tests using
# capital versions of the cyrillic letters. The "shindo" is missing a
# final "う".
my $c1 = 'Ябу но нака но куронэко';
my $c2 = 'Канэто Синдо';
my $k1 = cyrillic2katakana ($c1);
my $k2 = cyrillic2katakana ($c2);
#print "$k1 $k2\n";
ok ($k1 eq 'ヤブ ノ ナカ ノ クロネコ');
ok ($k2 eq 'カネト シンド');