use strict;
use warnings;
use utf8;
use Lingua::JA::NormalizeText qw/nfkc nfkd nfc nfd/;
use Test::More;

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

is( nfkc('㌦'), 'ドル', 'NFKC' ); # ドル
is( length nfkc('㌦'), 2, 'NFKC' );

is( nfkd('㌦'), 'ドル', 'NFKD' ); # ト U+3099 ル (length: 3)
is( length nfkd('㌦'), 3, 'NFKD' );

is( nfc('Á'), 'Á', 'NFC' );
is( nfc('①'), '①', 'NFC' );

is( nfd('①'), '①', 'NFD' );
is( nfd('Á'), 'Á', 'NFD' );

my $normalizer = Lingua::JA::NormalizeText->new(qw/nfkc/);
is($normalizer->normalize('㌻'), 'ページ', 'NFKC');

done_testing;