# 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..8\n";
my $__FILE__ = __FILE__;
my $tno = 1;
# qr//i
if ("¥¢¥¤¥¦¥¨¥ª" !~ /a/i) {
print qq{ok - $tno "¥¢¥¤¥¦¥¨¥ª" !~ /a/i $^X $__FILE__\n}
}
else {
print qq{not ok - $tno "¥¢¥¤¥¦¥¨¥ª" !~ /a/i $^X $__FILE__\n}
}
$tno++;
# qr//m
if ("¥µ¥·¥¹¥»\n¥½¥¿¥Á¥Ä¥Æ¥È" =~ qr/^¥½/m) {
print qq{ok - $tno "¥µ¥·¥¹¥»\\n¥½¥¿¥Á¥Ä¥Æ¥È" =~ qr/^¥½/m $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "¥µ¥·¥¹¥»\\n¥½¥¿¥Á¥Ä¥Æ¥È" =~ qr/^¥½/m $^X $__FILE__\n};
}
$tno++;
# qr//o
@re = ("¥½","¥¤");
for $i (1 .. 2) {
$re = shift @re;
if ("¥½¥¢¥¢" =~ qr/\Q$re\E/o) {
print qq{ok - $tno "¥½¥¢¥¢" =~ qr/\\Q\$re\\E/o $^X $__FILE__\n};
}
else {
if ($] =~ /^5\.006/) {
print qq{ok - $tno # SKIP "¥½¥¢¥¢" =~ qr/\\Q\$re\\E/o $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "¥½¥¢¥¢" =~ qr/\\Q\$re\\E/o $^X $__FILE__\n};
}
}
$tno++;
}
@re = ("¥¤","¥½");
for $i (1 .. 2) {
$re = shift @re;
if ("¥½¥¢¥¢" !~ qr/\Q$re\E/o) {
print qq{ok - $tno "¥½¥¢¥¢" !~ qr/\\Q\$re\\E/o $^X $__FILE__\n};
}
else {
if ($] =~ /^5\.006/) {
print qq{ok - $tno # SKIP "¥½¥¢¥¢" !~ qr/\\Q\$re\\E/o $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "¥½¥¢¥¢" !~ qr/\\Q\$re\\E/o $^X $__FILE__\n};
}
}
$tno++;
}
# qr//s
if ("¥¢\n¥½" =~ qr/¥¢.¥½/s) {
print qq{ok - $tno "¥¢\\n¥½" =~ qr/¥¢.¥½/s $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "¥¢\\n¥½" =~ qr/¥¢.¥½/s $^X $__FILE__\n};
}
$tno++;
# qr//x
if ("¥¢¥½¥½" =~ qr/ ¥½ /x) {
print qq{ok - $tno "¥¢¥½¥½" =~ qr/ ¥½ /x $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "¥¢¥½¥½" =~ qr/ ¥½ /x $^X $__FILE__\n};
}
$tno++;
__END__