# This file is encoded in EUC-JP.
die "This file is not encoded in EUC-JP.\n" if q{¤¢} ne "\xa4\xa2";

use strict;
use Char::EUCJP;
print "1..8\n";

my $__FILE__ = __FILE__;

# Test::Harness::runtests() and reset() make "Error: Runtime exception".
#
# t/304_m_once_reset........Error: Runtime exception
# Error: Runtime exception
# Can't spawn "cmd.exe": No such file or directory at Foo.pm line NNN.
# Callback called exit at t/304_m_once_reset.t line NNN.
# BEGIN failed--compilation aborted at t/304_m_once_reset.t line NNN.
# dubious
#         Test returned status 2 (wstat 512, 0x200)
# DIED. FAILED tests 1-8
#         Failed 8/8 tests, 0.00% okay

if ($] =~ /^5\.005/) {
    for my $tno (1 .. 8) {
        print qq{ok - $tno # SKIP $^X/$] $^O $__FILE__\n};
    }
    exit;
}

my @m_once = ();

@m_once = ();
for (qw(¤¢¤¢¤¢ ¤¢¤¢¤¢ ¤¢¤¢¤¢)) {
    if ($_ =~ m?¤¢¤¢¤¢?) {
        push @m_once, 1;
    }
    else {
        push @m_once, 0;
    }
    reset;
}
if (join(',',@m_once) eq '1,1,1') {
    print qq{ok - 1 m?¤¢¤¢¤¢?; reset $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 m?¤¢¤¢¤¢?; reset $^X $__FILE__\n};
}

@m_once = ();
my $re = '';
for (qw(¤¢¤¢¤¢ ¤¤¤¤¤¤ ¤¦¤¦¤¦)) {
    $re = $_;
    if ($_ =~ m?$re?o) {
        push @m_once, 1;
    }
    else {
        push @m_once, 0;
    }
    reset;
}
if (join(',',@m_once) eq '1,0,0') {
    print qq{ok - 2 m?\$re?o; reset $^X $__FILE__\n};
}
else {
    print qq{not ok - 2 m?\$re?o; reset $^X $__FILE__\n};
}

@m_once = ();
for (qw(¤¢¤¢¤¢ ¤¢¤¢¤¢ ¤¢¤¢¤¢)) {
    if ($_ =~ m? ¤¢ ¤¢ ¤¢ ?x) {
        push @m_once, 1;
    }
    else {
        push @m_once, 0;
    }
    reset;
}
if (join(',',@m_once) eq '1,1,1') {
    print qq{ok - 3 m? ¤¢ ¤¢ ¤¢ ?x; reset $^X $__FILE__\n};
}
else {
    print qq{not ok - 3 m? ¤¢ ¤¢ ¤¢ ?x; reset $^X $__FILE__\n};
}

@m_once = ();
for ("¤¢¤¢¤¢\n¤¤¤¤¤¤","¤¢¤¢¤¢\n¤¤¤¤¤¤","¤¢¤¢¤¢\n¤¤¤¤¤¤") {
    if ($_ =~ m?^¤¤¤¤¤¤?m) {
        push @m_once, 1;
    }
    else {
        push @m_once, 0;
    }
    reset;
}
if (join(',',@m_once) eq '1,1,1') {
    print qq{ok - 4 m?^¤¤¤¤¤¤?m; reset $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 m?^¤¤¤¤¤¤?m; reset $^X $__FILE__\n};
}

@m_once = ();
for ("¤¢\n¤¤","¤¢\n¤¤","¤¢\n¤¤") {
    if ($_ =~ m?¤¢.¤¤?s) {
        push @m_once, 1;
    }
    else {
        push @m_once, 0;
    }
    reset;
}
if (join(',',@m_once) eq '1,1,1') {
    print qq{ok - 5 m?¤¢.¤¤?s; reset $^X $__FILE__\n};
}
else {
    print qq{not ok - 5 m?¤¢.¤¤?s; reset $^X $__FILE__\n};
}

@m_once = ();
for (qw(AAA AAA AAA)) {
    if ($_ =~ m?aaa?i) {
        push @m_once, 1;
    }
    else {
        push @m_once, 0;
    }
    reset;
}
if (join(',',@m_once) eq '1,1,1') {
    print qq{ok - 6 m?aaa?i; reset $^X $__FILE__\n};
}
else {
    print qq{not ok - 6 m?aaa?i; reset $^X $__FILE__\n};
}

@m_once = ();
for (qw(¤¢¤¢¤¢ ¤¢¤¢¤¢ ¤¢¤¢¤¢)) {
    if ($_ =~ m?¤¢¤¢¤¢?g) {
        push @m_once, 1;
    }
    else {
        push @m_once, 0;
    }
    reset;
}
if (join(',',@m_once) eq '1,1,1') {
    print qq{ok - 7 m?¤¢¤¢¤¢?g; reset $^X $__FILE__\n};
}
else {
    print qq{not ok - 7 m?¤¢¤¢¤¢?g; reset $^X $__FILE__\n};
}

@m_once = ();
for (qw(¤¢¤¢¤¢ ¤¢¤¢¤¢ ¤¢¤¢¤¢)) {
    if ($_ =~ m?¤¢¤¢¤¢?gc) {
        push @m_once, 1;
    }
    else {
        push @m_once, 0;
    }
    reset;
}
if (join(',',@m_once) eq '1,1,1') {
    print qq{ok - 8 m?¤¢¤¢¤¢?gc; reset $^X $__FILE__\n};
}
else {
    print qq{not ok - 8 m?¤¢¤¢¤¢?gc; reset $^X $__FILE__\n};
}

__END__