The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More;
require "t/lb.pl";

BEGIN { plan tests => 2 }

dotest('fr', 'fr.ea', Context => 'EASTASIAN');
dotest('fr', 'fr', Context => 'EASTASIAN',
       EAWidth => [AMBIGUOUS_ALPHABETICS() => EA_N()]);
## obsoleted option.
#dotest('fr', 'fr', Context => 'EASTASIAN',
#       EAWidth => [[0x0041..0x005A, 0x0061..0x007A] => EA_A()],
#       TailorEA => [AMBIGUOUS_ALPHABETICS() => EA_N()]);

1;