# 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..40\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 ("¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/) {
if ($1 eq "¥¢¥½¥¢") {
if ($2 eq "¥½") {
print qq{ok - 5 "¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
else {
print qq{not ok - 5 "¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 5 "¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 5 "¥¢¥½¥¢" =~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
if ("¥¢¥½¥¢" !~ /(¥¢([¥¤¥¦¥¨])¥¢)/) {
print qq{ok - 6 "¥¢¥½¥¢" !~ /(¥¢([¥¤¥¦¥¨])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
else {
print qq{not ok - 6 "¥¢¥½¥¢" !~ /(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
if ("¥¢¥½¥¢" =~ /(¥¢¥½|¥¤¥½)/) {
if ($1 eq "¥¢¥½") {
print qq{ok - 7 "¥¢¥½¥¢" =~ /(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 7 "¥¢¥½¥¢" =~ /(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 7 "¥¢¥½¥¢" =~ /(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥¢" !~ /(¥¢¥¤|¥¤¥¦)/) {
print qq{ok - 8 "¥¢¥½¥¢" !~ /(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 8 "¥¢¥½¥¢" !~ /(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ /(¥¢¥½?)/) {
if ($1 eq "¥¢¥½") {
print qq{ok - 9 "¥¢¥½¥½" =~ /(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 9 "¥¢¥½¥½" =~ /(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 9 "¥¢¥½¥½" =~ /(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ /(¥¤¥½?)/) {
print qq{ok - 10 "¥¢¥½¥½" !~ /(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 10 "¥¢¥½¥½" !~ /(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ /(¥¢¥½¥½?)/) {
if ($1 eq "¥¢¥½¥½") {
print qq{ok - 11 "¥¢¥½¥½" =~ /(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 11 "¥¢¥½¥½" =~ /(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 11 "¥¢¥½¥½" =~ /(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ /(¥¤¥½¥½?)/) {
print qq{ok - 12 "¥¢¥½¥½" !~ /(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 12 "¥¢¥½¥½" !~ /(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ /(¥¢¥½+)/) {
if ($1 eq "¥¢¥½¥½") {
print qq{ok - 13 "¥¢¥½¥½" =~ /(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 13 "¥¢¥½¥½" =~ /(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 13 "¥¢¥½¥½" =~ /(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ /(¥¤¥½+)/) {
print qq{ok - 14 "¥¢¥½¥½" !~ /(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 14 "¥¢¥½¥½" !~ /(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ /(¥¢¥½*)/) {
if ($1 eq "¥¢¥½¥½") {
print qq{ok - 15 "¥¢¥½¥½" =~ /(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 15 "¥¢¥½¥½" =~ /(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 15 "¥¢¥½¥½" =~ /(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ /(¥¤¥½*)/) {
print qq{ok - 16 "¥¢¥½¥½" !~ /(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 16 "¥¢¥½¥½" !~ /(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ /(¥¢.)/) {
if ($1 eq "¥¢¥½") {
print qq{ok - 17 "¥¢¥½¥½" =~ /(¥¢.)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 17 "¥¢¥½¥½" =~ /(¥¢.)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 17 "¥¢¥½¥½" =~ /(¥¢.)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ /(¥¤.)/) {
print qq{ok - 18 "¥¢¥½¥½" !~ /(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 18 "¥¢¥½¥½" !~ /(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ /(¥¢.{2})/) {
if ($1 eq "¥¢¥½¥½") {
print qq{ok - 19 "¥¢¥½¥½" =~ /(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 19 "¥¢¥½¥½" =~ /(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 19 "¥¢¥½¥½" =~ /(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ /(¥¤.{2})/) {
print qq{ok - 20 "¥¢¥½¥½" !~ /(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 20 "¥¢¥½¥½" !~ /(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}
#---
if ("¥½¥¢¥¢" =~ m/^¥½/) {
print qq{ok - 21 "¥½¥¢¥¢" =~ m/^¥½/ $^X $__FILE__\n};
}
else {
print qq{not ok - 21 "¥½¥¢¥¢" =~ m/^¥½/ $^X $__FILE__\n};
}
if ("¥¢¥½¥¢" !~ m/^¥½/) {
print qq{ok - 22 "¥¢¥½¥¢" !~ m/^¥½/ $^X $__FILE__\n};
}
else {
print qq{not ok - 22 "¥¢¥½¥¢" !~ m/^¥½/ $^X $__FILE__\n};
}
if ("¥¢¥¢¥½" =~ m/¥½$/) {
print qq{ok - 23 "¥¢¥¢¥½" =~ m/¥½\$/ $^X $__FILE__\n};
}
else {
print qq{not ok - 23 "¥¢¥¢¥½" =~ m/¥½\$/ $^X $__FILE__\n};
}
if ("¥¢¥½¥¢" !~ m/¥½$/) {
print qq{ok - 24 "¥¢¥½¥¢" !~ m/¥½\$/ $^X $__FILE__\n};
}
else {
print qq{not ok - 24 "¥¢¥½¥¢" !~ m/¥½\$/ $^X $__FILE__\n};
}
if ("¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/) {
if ($1 eq "¥¢¥½¥¢") {
if ($2 eq "¥½") {
print qq{ok - 25 "¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
else {
print qq{not ok - 25 "¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 25 "¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 25 "¥¢¥½¥¢" =~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
if ("¥¢¥½¥¢" !~ m/(¥¢([¥¤¥¦¥¨])¥¢)/) {
print qq{ok - 26 "¥¢¥½¥¢" !~ m/(¥¢([¥¤¥¦¥¨])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
else {
print qq{not ok - 26 "¥¢¥½¥¢" !~ m/(¥¢([¥¤¥½¥¦])¥¢)/ \$1=($1), \$2=($2) $^X $__FILE__\n};
}
if ("¥¢¥½¥¢" =~ m/(¥¢¥½|¥¤¥½)/) {
if ($1 eq "¥¢¥½") {
print qq{ok - 27 "¥¢¥½¥¢" =~ m/(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 27 "¥¢¥½¥¢" =~ m/(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 27 "¥¢¥½¥¢" =~ m/(¥¢¥½|¥¤¥½)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥¢" !~ m/(¥¢¥¤|¥¤¥¦)/) {
print qq{ok - 28 "¥¢¥½¥¢" !~ m/(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 28 "¥¢¥½¥¢" !~ m/(¥¢¥¤|¥¤¥¦)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ m/(¥¢¥½?)/) {
if ($1 eq "¥¢¥½") {
print qq{ok - 29 "¥¢¥½¥½" =~ m/(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 29 "¥¢¥½¥½" =~ m/(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 29 "¥¢¥½¥½" =~ m/(¥¢¥½?)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ m/(¥¤¥½?)/) {
print qq{ok - 30 "¥¢¥½¥½" !~ m/(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 30 "¥¢¥½¥½" !~ m/(¥¤¥½?)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ m/(¥¢¥½¥½?)/) {
if ($1 eq "¥¢¥½¥½") {
print qq{ok - 31 "¥¢¥½¥½" =~ m/(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 31 "¥¢¥½¥½" =~ m/(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 31 "¥¢¥½¥½" =~ m/(¥¢¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ m/(¥¤¥½¥½?)/) {
print qq{ok - 32 "¥¢¥½¥½" !~ m/(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 32 "¥¢¥½¥½" !~ m/(¥¤¥½¥½?)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ m/(¥¢¥½+)/) {
if ($1 eq "¥¢¥½¥½") {
print qq{ok - 33 "¥¢¥½¥½" =~ m/(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 33 "¥¢¥½¥½" =~ m/(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 33 "¥¢¥½¥½" =~ m/(¥¢¥½+)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ m/(¥¤¥½+)/) {
print qq{ok - 34 "¥¢¥½¥½" !~ m/(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 34 "¥¢¥½¥½" !~ m/(¥¤¥½+)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ m/(¥¢¥½*)/) {
if ($1 eq "¥¢¥½¥½") {
print qq{ok - 35 "¥¢¥½¥½" =~ m/(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 35 "¥¢¥½¥½" =~ m/(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 35 "¥¢¥½¥½" =~ m/(¥¢¥½*)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ m/(¥¤¥½*)/) {
print qq{ok - 36 "¥¢¥½¥½" !~ m/(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 36 "¥¢¥½¥½" !~ m/(¥¤¥½*)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ m/(¥¢.)/) {
if ($1 eq "¥¢¥½") {
print qq{ok - 37 "¥¢¥½¥½" =~ m/(¥¢.)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 37 "¥¢¥½¥½" =~ m/(¥¢.)/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 37 "¥¢¥½¥½" =~ m/(¥¢.)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ m/(¥¤.)/) {
print qq{ok - 38 "¥¢¥½¥½" !~ m/(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 38 "¥¢¥½¥½" !~ m/(¥¤.)/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" =~ m/(¥¢.{2})/) {
if ($1 eq "¥¢¥½¥½") {
print qq{ok - 39 "¥¢¥½¥½" =~ m/(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 39 "¥¢¥½¥½" =~ m/(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 39 "¥¢¥½¥½" =~ m/(¥¢.{2})/ \$1=($1) $^X $__FILE__\n};
}
if ("¥¢¥½¥½" !~ m/(¥¤.{2})/) {
print qq{ok - 40 "¥¢¥½¥½" !~ m/(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}
else {
print qq{not ok - 40 "¥¢¥½¥½" !~ m/(¥¤.{2})/ \$1=($1) $^X $__FILE__\n};
}
__END__