# This file is encoded in EUC-JP.
die "This file is not encoded in EUC-JP.\n" if q{¤¢} ne "\xa4\xa2";
use Char::EUCJP;
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__