use strict;
use warnings;
use utf8;
use Lingua::JA::NormalizeText qw/wave2tilde tilde2wave/;
use Test::More;

binmode Test::More->builder->$_ => ':utf8'
    for qw/output failure_output todo_output/;

my $tilde = chr(hex("FF5E"));
my $wave  = chr(hex("301C"));

my $normalizer_w2t = Lingua::JA::NormalizeText->new(qw/wave2tilde/);
my $normalizer_t2w = Lingua::JA::NormalizeText->new(qw/tilde2wave/);

is(wave2tilde($wave),  $tilde);
is(wave2tilde($tilde), $tilde);
is($normalizer_w2t->normalize($wave),  $tilde);
is($normalizer_w2t->normalize($tilde), $tilde);

is(tilde2wave($wave),  $wave);
is(tilde2wave($tilde), $wave);
is($normalizer_t2w->normalize($wave),  $wave);
is($normalizer_t2w->normalize($tilde), $wave);

$tilde = $tilde . 'あ' . $tilde;
$wave  = $wave  . 'あ' . $wave;

is(wave2tilde($wave), $tilde);
is(wave2tilde($tilde), $tilde);
is($normalizer_w2t->normalize($wave),  $tilde);
is($normalizer_w2t->normalize($tilde), $tilde);

is(tilde2wave($wave), $wave);
is(tilde2wave($tilde), $wave);
is($normalizer_t2w->normalize($wave),  $wave);
is($normalizer_t2w->normalize($tilde), $wave);

done_testing;