# This file is encoded in Big5-HKSCS.
die "This file is not encoded in Big5-HKSCS.\n" if q{ } ne "\x82\xa0";
use Char::Big5HKSCS;
print "1..10\n";
my $__FILE__ = __FILE__;
my $tno = 1;
# m//i
if ("ACEGI" !~ /a/i) {
print qq{ok - $tno "ACEGI" !~ /a/i $^X $__FILE__\n}
}
else {
print qq{not ok - $tno "ACEGI" !~ /a/i $^X $__FILE__\n}
}
$tno++;
# m//m
if ("TVXZ\n\^`ceg" =~ m/^\/m) {
print qq{ok - $tno "TVXZ\\n\^`ceg" =~ m/^\/m $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "TVXZ\\n\^`ceg" =~ m/^\/m $^X $__FILE__\n};
}
$tno++;
if ("TVXZ\\n^`ceg" =~ m/\$/m) {
print qq{ok - $tno "TVXZ\\\n^`ceg" =~ m/\\$/m $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "TVXZ\\\n^`ceg" =~ m/\\$/m $^X $__FILE__\n};
}
$tno++;
if ("TVXZ\n\\n^`ceg" =~ m/^\$/m) {
print qq{ok - $tno "TVXZ\\n\\\n^`ceg" =~ m/^\\$/m $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "TVXZ\\n\\\n^`ceg" =~ m/^\\$/m $^X $__FILE__\n};
}
$tno++;
# m//o
@re = ("\","C");
for $i (1 .. 2) {
$re = shift @re;
if ("\AA" =~ m/\Q$re\E/o) {
print qq{ok - $tno "\AA" =~ m/\\Q\$re\\E/o $^X $__FILE__\n};
}
else {
if ($] =~ /^5\.006/) {
print qq{ok - $tno # SKIP "\AA" =~ m/\\Q\$re\\E/o $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "\AA" =~ m/\\Q\$re\\E/o $^X $__FILE__\n};
}
}
$tno++;
}
@re = ("C","\");
for $i (1 .. 2) {
$re = shift @re;
if ("\AA" !~ m/\Q$re\E/o) {
print qq{ok - $tno "\AA" !~ m/\\Q\$re\\E/o $^X $__FILE__\n};
}
else {
if ($] =~ /^5\.006/) {
print qq{ok - $tno # SKIP "\AA" !~ m/\\Q\$re\\E/o $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "\AA" !~ m/\\Q\$re\\E/o $^X $__FILE__\n};
}
}
$tno++;
}
# m//s
if ("A\n\" =~ m/A.\/s) {
print qq{ok - $tno "A\\n\" =~ m/A.\/s $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "A\\n\" =~ m/A.\/s $^X $__FILE__\n};
}
$tno++;
# m//x
if ("A\\" =~ m/ \ /x) {
print qq{ok - $tno "A\\" =~ m/ \ /x $^X $__FILE__\n};
}
else {
print qq{not ok - $tno "A\\" =~ m/ \ /x $^X $__FILE__\n};
}
$tno++;
__END__