use strict;
use Test::More tests => 2;

use Lingua::JA::Regular;


    my $geta = Lingua::JA::Regular->new("\xAD\xA1\x17\xAC\xAD\xA1")->geta->to_s;
    ok $geta eq "\xA2\xAE\xA2\xAE\xA2\xAE", 'geta1';

    #
    # 未定義文字と定義されていない文字が2文字以上続くと1文字と見なされる。
    #
    my $geta2 = Lingua::JA::Regular->new("\xAD\xA1\x17\xAC\x17\xAC\xAD\xA1")->geta->to_s;
    ok $geta2 eq "\xA2\xAE\xA2\xAE\xA2\xAE", 'geta2';