# 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 ("¥½¥¢¥¢" =~ qr/^¥½/) {
    print qq{ok - 1 "¥½¥¢¥¢" =~ qr/^¥½/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 "¥½¥¢¥¢" =~ qr/^¥½/ $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ qr/^¥½/) {
    print qq{ok - 2 "¥¢¥½¥¢" !~ qr/^¥½/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 2 "¥¢¥½¥¢" !~ qr/^¥½/ $^X $__FILE__\n};
}

if ("¥¢¥¢¥½" =~ qr/¥½$/) {
    print qq{ok - 3 "¥¢¥¢¥½" =~ qr/¥½\$/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 3 "¥¢¥¢¥½" =~ qr/¥½\$/ $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ qr/¥½$/) {
    print qq{ok - 4 "¥¢¥½¥¢" !~ qr/¥½\$/ $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 "¥¢¥½¥¢" !~ qr/¥½\$/ $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" =~ qr/(¥¢([¥¤¥½¥¦])¥¢)/) {
    if ($1 eq "¥¢¥½¥¢") {
        if ($2 eq "¥½") {
            print qq{ok - 5 "¥¢¥½¥¢" =~ qr/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
        }
        else {
            print qq{not ok - 5 "¥¢¥½¥¢" =~ qr/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
        }
    }
    else {
        print qq{not ok - 5 "¥¢¥½¥¢" =~ qr/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 5 "¥¢¥½¥¢" =~ qr/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ qr/(¥¢([¥¤¥¦¥¨])¥¢)/) {
    print qq{ok - 6 "¥¢¥½¥¢" !~ qr/(¥¢([¥¤¥¦¥¨])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
else {
    print qq{not ok - 6 "¥¢¥½¥¢" !~ qr/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" =~ qr/(¥¢¥½|¥¤¥½)/) {
    if ($1 eq "¥¢¥½") {
        print qq{ok - 7 "¥¢¥½¥¢" =~ qr/(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 7 "¥¢¥½¥¢" =~ qr/(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 7 "¥¢¥½¥¢" =~ qr/(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥¢" !~ qr/(¥¢¥¤|¥¤¥¦)/) {
    print qq{ok - 8 "¥¢¥½¥¢" !~ qr/(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 8 "¥¢¥½¥¢" !~ qr/(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ qr/(¥¢¥½?)/) {
    if ($1 eq "¥¢¥½") {
        print qq{ok - 9 "¥¢¥½¥½" =~ qr/(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 9 "¥¢¥½¥½" =~ qr/(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 9 "¥¢¥½¥½" =~ qr/(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ qr/(¥¤¥½?)/) {
    print qq{ok - 10 "¥¢¥½¥½" !~ qr/(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 10 "¥¢¥½¥½" !~ qr/(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ qr/(¥¢¥½¥½?)/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 11 "¥¢¥½¥½" =~ qr/(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 11 "¥¢¥½¥½" =~ qr/(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 11 "¥¢¥½¥½" =~ qr/(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ qr/(¥¤¥½¥½?)/) {
    print qq{ok - 12 "¥¢¥½¥½" !~ qr/(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 12 "¥¢¥½¥½" !~ qr/(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ qr/(¥¢¥½+)/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 13 "¥¢¥½¥½" =~ qr/(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 13 "¥¢¥½¥½" =~ qr/(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 13 "¥¢¥½¥½" =~ qr/(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ qr/(¥¤¥½+)/) {
    print qq{ok - 14 "¥¢¥½¥½" !~ qr/(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 14 "¥¢¥½¥½" !~ qr/(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ qr/(¥¢¥½*)/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 15 "¥¢¥½¥½" =~ qr/(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 15 "¥¢¥½¥½" =~ qr/(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 15 "¥¢¥½¥½" =~ qr/(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ qr/(¥¤¥½*)/) {
    print qq{ok - 16 "¥¢¥½¥½" !~ qr/(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 16 "¥¢¥½¥½" !~ qr/(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ qr/(¥¢.)/) {
    if ($1 eq "¥¢¥½") {
        print qq{ok - 17 "¥¢¥½¥½" =~ qr/(¥¢.)/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 17 "¥¢¥½¥½" =~ qr/(¥¢.)/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 17 "¥¢¥½¥½" =~ qr/(¥¢.)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ qr/(¥¤.)/) {
    print qq{ok - 18 "¥¢¥½¥½" !~ qr/(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 18 "¥¢¥½¥½" !~ qr/(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" =~ qr/(¥¢.{2})/) {
    if ($1 eq "¥¢¥½¥½") {
        print qq{ok - 19 "¥¢¥½¥½" =~ qr/(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
    }
    else {
        print qq{not ok - 19 "¥¢¥½¥½" =~ qr/(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
    }
}
else {
    print qq{not ok - 19 "¥¢¥½¥½" =~ qr/(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
}

if ("¥¢¥½¥½" !~ qr/(¥¤.{2})/) {
    print qq{ok - 20 "¥¢¥½¥½" !~ qr/(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}
else {
    print qq{not ok - 20 "¥¢¥½¥½" !~ qr/(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}

__END__