The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
INA / Char-1.03 / t / GB18030 / 047_option_m.t 
# encoding: GB18030
# This file is encoded in GB18030.
die "This file is not encoded in GB18030.\n" if q{‚ } ne "\x82\xa0";

use Char;
print "1..10\n";

my $__FILE__ = __FILE__;

my $tno = 1;

# m//i
if ("ƒAƒCƒEƒGƒI" !~ /a/i) {
    print qq{ok - $tno "ƒAƒCƒEƒGƒI" !~ /a/i $^X $__FILE__\n}
}
else {
    print qq{not ok - $tno "ƒAƒCƒEƒGƒI" !~ /a/i $^X $__FILE__\n}
}
$tno++;

# m//m
if ("ƒTƒVƒXƒZ\nƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/^ƒ\/m) {
    print qq{ok - $tno "ƒTƒVƒXƒZ\\nƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/^ƒ\/m $^X $__FILE__\n};
}
else {
    print qq{not ok - $tno "ƒTƒVƒXƒZ\\nƒ\ƒ^ƒ`ƒcƒeƒg" =~ m/^ƒ\/m $^X $__FILE__\n};
}
$tno++;

if ("ƒTƒVƒXƒZƒ\\nƒ^ƒ`ƒcƒeƒg" =~ m/ƒ\$/m) {
    print qq{ok - $tno "ƒTƒVƒXƒZƒ\\\nƒ^ƒ`ƒcƒeƒg" =~ m/ƒ\\$/m $^X $__FILE__\n};
}
else {
    print qq{not ok - $tno "ƒTƒVƒXƒZƒ\\\nƒ^ƒ`ƒcƒeƒg" =~ m/ƒ\\$/m $^X $__FILE__\n};
}
$tno++;

if ("ƒTƒVƒXƒZ\nƒ\\nƒ^ƒ`ƒcƒeƒg" =~ m/^ƒ\$/m) {
    print qq{ok - $tno "ƒTƒVƒXƒZ\\nƒ\\\nƒ^ƒ`ƒcƒeƒg" =~ m/^ƒ\\$/m $^X $__FILE__\n};
}
else {
    print qq{not ok - $tno "ƒTƒVƒXƒZ\\nƒ\\\nƒ^ƒ`ƒcƒeƒg" =~ m/^ƒ\\$/m $^X $__FILE__\n};
}
$tno++;

# m//o
@re = ("ƒ\","ƒC");
for $i (1 .. 2) {
    $re = shift @re;
    if ("ƒ\ƒAƒA" =~ m/\Q$re\E/o) {
        print qq{ok - $tno "ƒ\ƒAƒA" =~ m/\\Q\$re\\E/o $^X $__FILE__\n};
    }
    else {
        if ($] =~ /^5\.006/) {
            print qq{ok - $tno # SKIP "ƒ\ƒAƒA" =~ m/\\Q\$re\\E/o $^X $__FILE__\n};
        }
        else {
            print qq{not ok - $tno "ƒ\ƒAƒA" =~ m/\\Q\$re\\E/o $^X $__FILE__\n};
        }
    }
    $tno++;
}

@re = ("ƒC","ƒ\");
for $i (1 .. 2) {
    $re = shift @re;
    if ("ƒ\ƒAƒA" !~ m/\Q$re\E/o) {
        print qq{ok - $tno "ƒ\ƒAƒA" !~ m/\\Q\$re\\E/o $^X $__FILE__\n};
    }
    else {
        if ($] =~ /^5\.006/) {
            print qq{ok - $tno # SKIP "ƒ\ƒAƒA" !~ m/\\Q\$re\\E/o $^X $__FILE__\n};
        }
        else {
            print qq{not ok - $tno "ƒ\ƒAƒA" !~ 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__