use strict;
use warnings;
use utf8;
use Test::More tests => 1 + 2;
binmode Test::More->builder->output, ":utf8";
binmode Test::More->builder->failure_output, ":utf8";
BEGIN { use_ok('Lingua::JA::Moji') };
use Lingua::JA::Moji qw/hw2katakana kana2hw/;
my $full = 'ヴァイオリンー';
my $half = 'ヴァイオリンー';
is(kana2hw($full), $half);
is(hw2katakana($half), $full);