# encoding: EUCJP
# This file is encoded in EUC-JP.
die "This file is not encoded in EUC-JP.\n" if q{¤¢} ne "\xa4\xa2";

use Char;
print "1..20\n";

my $__FILE__ = __FILE__;

if ("¤Ê" =~ /[^¤Ë-¤Í]/) {
    print qq{ok - 1 "¤Ê"=~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 "¤Ê"=~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}

if ("¤Ë" !~ /[^¤Ë-¤Í]/) {
    print qq{ok - 2 "¤Ë"!~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 2 "¤Ë"!~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}

if ("¤Ì" !~ /[^¤Ë-¤Í]/) {
    print qq{ok - 3 "¤Ì"!~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 3 "¤Ì"!~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}

if ("¤Í" !~ /[^¤Ë-¤Í]/) {
    print qq{ok - 4 "¤Í"!~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 "¤Í"!~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}

if ("¤Î" =~ /[^¤Ë-¤Í]/) {
    print qq{ok - 5 "¤Î"=~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 5 "¤Î"=~/[^¤Ë-¤Í]/ $^X $__FILE__\n};
}

my $from = '¤Ë';
if ("¤Ê" =~ /[^$from-¤Í]/) {
    print qq{ok - 6 "¤Ê"=~/[^\$from-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 6 "¤Ê"=~/[^\$from-¤Í]/ $^X $__FILE__\n};
}

if ("¤Ë" !~ /[^$from-¤Í]/) {
    print qq{ok - 7 "¤Ë"!~/[^\$from-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 7 "¤Ë"!~/[^\$from-¤Í]/ $^X $__FILE__\n};
}

if ("¤Ì" !~ /[^$from-¤Í]/) {
    print qq{ok - 8 "¤Ì"!~/[^\$from-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 8 "¤Ì"!~/[^\$from-¤Í]/ $^X $__FILE__\n};
}

if ("¤Í" !~ /[^$from-¤Í]/) {
    print qq{ok - 9 "¤Í"!~/[^\$from-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 9 "¤Í"!~/[^\$from-¤Í]/ $^X $__FILE__\n};
}

if ("¤Î" =~ /[^$from-¤Í]/) {
    print qq{ok - 10 "¤Î"=~/[^\$from-¤Í]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 10 "¤Î"=~/[^\$from-¤Í]/ $^X $__FILE__\n};
}

my $to = '¤Í';
if ("¤Ê" =~ /[^$from-$to]/) {
    print qq{ok - 11 "¤Ê"=~/[^\$from-\$to]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 11 "¤Ê"=~/[^\$from-\$to]/ $^X $__FILE__\n};
}

if ("¤Ë" !~ /[^$from-$to]/) {
    print qq{ok - 12 "¤Ë"!~/[^\$from-\$to]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 12 "¤Ë"!~/[^\$from-\$to]/ $^X $__FILE__\n};
}

if ("¤Ì" !~ /[^$from-$to]/) {
    print qq{ok - 13 "¤Ì"!~/[^\$from-\$to]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 13 "¤Ì"!~/[^\$from-\$to]/ $^X $__FILE__\n};
}

if ("¤Í" !~ /[^$from-$to]/) {
    print qq{ok - 14 "¤Í"!~/[^\$from-\$to]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 14 "¤Í"!~/[^\$from-\$to]/ $^X $__FILE__\n};
}

if ("¤Î" =~ /[^$from-$to]/) {
    print qq{ok - 15 "¤Î"=~/[^\$from-\$to]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 15 "¤Î"=~/[^\$from-\$to]/ $^X $__FILE__\n};
}

if ("¤Ê" =~ /[^${from}-${to}]/) {
    print qq{ok - 16 "¤Ê"=~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 16 "¤Ê"=~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}

if ("¤Ë" !~ /[^${from}-${to}]/) {
    print qq{ok - 17 "¤Ë"!~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 17 "¤Ë"!~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}

if ("¤Ì" !~ /[^${from}-${to}]/) {
    print qq{ok - 18 "¤Ì"!~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 18 "¤Ì"!~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}

if ("¤Í" !~ /[^${from}-${to}]/) {
    print qq{ok - 19 "¤Í"!~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 19 "¤Í"!~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}

if ("¤Î" =~ /[^${from}-${to}]/) {
    print qq{ok - 20 "¤Î"=~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 20 "¤Î"=~/[^\${from}-\${to}]/ $^X $__FILE__\n};
}

__END__