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

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

my $__FILE__ = __FILE__;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

__END__