# encoding: GB18030
# This file is encoded in GB18030.
die "This file is not encoded in GB18030.\n" if q{ } ne "\x82\xa0";
use strict;
use GB18030;
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 {
if (($^O eq 'MSWin32') and ($] eq '5.006001')) {
print qq{ok - 2 # SKIP m?\$re?o; reset $^X/$] $^O $__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__