use strict;
use warnings;
use utf8;
use Lingua::JA::NormalizeText qw/space_z2h space_h2z/;
use Test::More;
binmode Test::More->builder->$_ => ':utf8'
for qw/output failure_output todo_output/;
my $zenkaku_space = q| |;
my $hankaku_space = q| |;
is(space_z2h($zenkaku_space), $hankaku_space);
is(space_h2z($hankaku_space), $zenkaku_space);
my $normalizer = Lingua::JA::NormalizeText->new(qw/space_z2h/);
is($normalizer->normalize($zenkaku_space x 2), $hankaku_space x 2);
$normalizer = Lingua::JA::NormalizeText->new(qw/space_h2z/);
is($normalizer->normalize($hankaku_space x 3), $zenkaku_space x 3);
done_testing;