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

my $__FILE__ = __FILE__;

# �u^�v�Ƃ������K�\�����g�����ꍇ

$_ = "�`�`�`\n�a�a�a\n�b�b�b";
@_ = split(m/^/, $_);
if (join('', map {"($_)"} @_) eq "(�`�`�`\n)(�a�a�a\n)(�b�b�b)") {
    print qq{ok - 1 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}
else {
    print qq{not ok - 1 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}

$_ = "�`�`�`1\n2�a�a�a1\n2�b�b�b";
@_ = split(m/^2/, $_);
if (join('', map {"($_)"} @_) eq "(�`�`�`1\n)(�a�a�a1\n)(�b�b�b)") {
    print qq{ok - 2 \@_ = split(m/^2/, \$\_) $^X $__FILE__\n};
}
else {
    print qq{not ok - 2 \@_ = split(m/^2/, \$\_) $^X $__FILE__\n};
    print "<<", join('', map {"($_)"} @_), ">>\n";
}

$_ = "�`�`�`1\n2�a�a�a1\n2�b�b�b";
@_ = split(m/^2/m, $_);
if (join('', map {"($_)"} @_) eq "(�`�`�`1\n)(�a�a�a1\n)(�b�b�b)") {
    print qq{ok - 3 \@_ = split(m/^2/m, \$\_) $^X $__FILE__\n};
}
else {
    print qq{not ok - 3 \@_ = split(m/^2/m, \$\_) $^X $__FILE__\n};
    print "<<", join('', map {"($_)"} @_), ">>\n";
}

$_ = "�`�`�`1\n2�a�a�a1\n2�b�b�b";
@_ = split(m/1^/, $_);
if (join('', map {"($_)"} @_) eq "(�`�`�`1\n2�a�a�a1\n2�b�b�b)") {
    print qq{ok - 4 \@_ = split(m/1^/, \$\_) $^X $__FILE__\n};
}
else {
    print qq{not ok - 4 \@_ = split(m/1^/, \$\_) $^X $__FILE__\n};
}

$_ = "�`�`�`1\n2�a�a�a1\n2�b�b�b";
@_ = split(m/1\n^2/, $_);
if (join('', map {"($_)"} @_) eq "(�`�`�`)(�a�a�a)(�b�b�b)") {
    print qq{ok - 5 \@_ = split(m/1\\n^2/, \$\_) $^X $__FILE__\n};
}
else {
    print qq{not ok - 5 \@_ = split(m/1\\n^2/, \$\_) $^X $__FILE__\n};
    print "<<", join('', map {"($_)"} @_), ">>\n";
}

$_ = "�`�`�`1\n2�a�a�a1\n2�b�b�b";
@_ = split(m/1\n^2/m, $_);
if (join('', map {"($_)"} @_) eq "(�`�`�`)(�a�a�a)(�b�b�b)") {
    print qq{ok - 6 \@_ = split(m/1\\n^2/m, \$\_) $^X $__FILE__\n};
}
else {
    print qq{not ok - 6 \@_ = split(m/1\\n^2/m, \$\_) $^X $__FILE__\n};
    print "<<", join('', map {"($_)"} @_), ">>\n";
}

__END__