# 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..10\n";

my $__FILE__ = __FILE__;

my $tno = 1;

# m//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++;

# m//m
if ("¥µ¥·¥¹¥»\n¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/^¥½/m) {
    print qq{ok - $tno "¥µ¥·¥¹¥»\\n¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/^¥½/m $^X $__FILE__\n};
}
else {
    print qq{not ok - $tno "¥µ¥·¥¹¥»\\n¥½¥¿¥Á¥Ä¥Æ¥È" =~ m/^¥½/m $^X $__FILE__\n};
}
$tno++;

if ("¥µ¥·¥¹¥»¥½\n¥¿¥Á¥Ä¥Æ¥È" =~ m/¥½$/m) {
    print qq{ok - $tno "¥µ¥·¥¹¥»¥½\\n¥¿¥Á¥Ä¥Æ¥È" =~ m/¥½\$/m $^X $__FILE__\n};
}
else {
    print qq{not ok - $tno "¥µ¥·¥¹¥»¥½\\n¥¿¥Á¥Ä¥Æ¥È" =~ m/¥½\$/m $^X $__FILE__\n};
}
$tno++;

if ("¥µ¥·¥¹¥»\n¥½\n¥¿¥Á¥Ä¥Æ¥È" =~ m/^¥½$/m) {
    print qq{ok - $tno "¥µ¥·¥¹¥»\\n¥½\\n¥¿¥Á¥Ä¥Æ¥È" =~ m/^¥½\$/m $^X $__FILE__\n};
}
else {
    print qq{not ok - $tno "¥µ¥·¥¹¥»\\n¥½\\n¥¿¥Á¥Ä¥Æ¥È" =~ m/^¥½\$/m $^X $__FILE__\n};
}
$tno++;

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

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

# m//s
if ("¥¢\n¥½" =~ m/¥¢.¥½/s) {
    print qq{ok - $tno "¥¢\\n¥½" =~ m/¥¢.¥½/s $^X $__FILE__\n};
}
else {
    print qq{not ok - $tno "¥¢\\n¥½" =~ m/¥¢.¥½/s $^X $__FILE__\n};
}
$tno++;

# m//x
if ("¥¢¥½¥½" =~ m/  ¥½  /x) {
    print qq{ok - $tno "¥¢¥½¥½" =~ m/  ¥½  /x $^X $__FILE__\n};
}
else {
    print qq{not ok - $tno "¥¢¥½¥½" =~ m/  ¥½  /x $^X $__FILE__\n};
}
$tno++;

__END__