# This file is encoded in HP-15.
die "This file is not encoded in HP-15.\n" if q{ } ne "\x82\xa0";
use Char::HP15;
print "1..15\n";
my $__FILE__ = __FILE__;
$text = 'hnDrxrFQQTTTWFXT|PO|ORF||F';
# 7.7 splitZq(XgReLXg)
@_ = split(/F/, $text);
if (join('', map {"($_)"} @_) eq "(hnDrxr)(QQTTTW)(XT|PO|OR)(||)()") {
print qq{ok - 1 \@_ = split(/F/, \$text); $^X $__FILE__\n};
}
else {
print qq{not ok - 1 \@_ = split(/F/, \$text); $^X $__FILE__\n};
}
# ÁêÈ}b`íZq // ðgÁ½ê
@_ = split(//, "@
");
if (join('', map {"($_)"} @_) eq "()()()()()(@)()(
)()()") {
print qq{ok - 2 \@_ = split(//, "@
") $^X $__FILE__\n};
}
else {
print qq{not ok - 2 \@_ = split(//, "@
") $^X $__FILE__\n};
}
# ÁêÈ}b`íZq " "(Xy[X1ªÌÊí̶ñ)ðgÁ½ê
@_ = split(" ", "
");
if (join('', map {"($_)"} @_) eq "()()(
)") {
print qq{ok - 3 \@_ = split(" ", "
") $^X $__FILE__\n};
}
else {
print qq{not ok - 3 \@_ = split(" ", "
") $^X $__FILE__\n};
}
# æªÌóðcµ½¢ê
@_ = split(m/\s+/, "
");
if (join('', map {"($_)"} @_) eq "()()()(
)") {
print qq{ok - 4 \@_ = split(m/\\s+/, "
") $^X $__FILE__\n};
}
else {
print qq{not ok - 4 \@_ = split(m/\\s+/, "
") $^X $__FILE__\n};
}
# öÌóðcµ½¢ê
@_ = split(" ", "
", -1);
if (join('', map {"($_)"} @_) eq "()()(
)()") {
print qq{ok - 5 \@_ = split(" ", "
", -1) $^X $__FILE__\n};
}
else {
print qq{not ok - 5 \@_ = split(" ", "
", -1) $^X $__FILE__\n};
}
# }b`íZqªwè³êĢȢê
$_ = "
";
@_ = split;
if (join('', map {"($_)"} @_) eq "()()(
)") {
print qq{ok - 6 \@_ = split $^X $__FILE__\n};
}
else {
print qq{not ok - 6 \@_ = split $^X $__FILE__\n};
}
# 7.7.1.2 ^[Qbg¶ñªwè³êĢȢê
$_ = $text;
@_ = split(/F/);
if (join('', map {"($_)"} @_) eq "(hnDrxr)(QQTTTW)(XT|PO|OR)(||)()") {
print qq{ok - 7 \@_ = split(/F/) $^X $__FILE__\n};
}
else {
print qq{not ok - 7 \@_ = split(/F/) $^X $__FILE__\n};
}
# 7.7.1.3 ÂãÀíZqÌî{
@_ = split(/F/, $text, 3);
if (join('', map {"($_)"} @_) eq "(hnDrxr)(QQTTTW)(XT|PO|ORF||F)") {
print qq{ok - 8 \@_ = split(/F/, \$text, 3) $^X $__FILE__\n};
}
else {
print qq{not ok - 8 \@_ = split(/F/, \$text, 3) $^X $__FILE__\n};
}
# 7.7.2 óvf
@_ = split(m/F/, "PQFRSFFVW");
if (join('', map {"($_)"} @_) eq "(PQ)(RS)()(VW)") {
print qq{ok - 9 \@_ = split(m/F/, "PQFRSFFVW") $^X $__FILE__\n};
}
else {
print qq{not ok - 9 \@_ = split(m/F/, "PQFRSFFVW") $^X $__FILE__\n};
}
# 7.7.2.1 öÌóvf
@_ = split(m/F/, "PQFRSFFVWFFF");
if (join('', map {"($_)"} @_) eq "(PQ)(RS)()(VW)") {
print qq{ok - 10 \@_ = split(m/F/, "PQFRSFFVWFFF") $^X $__FILE__\n};
}
else {
print qq{not ok - 10 \@_ = split(m/F/, "PQFRSFFVWFFF") $^X $__FILE__\n};
}
# 7.7.2.3 ¶ñ̼[ÅÌÁêÈ}b`
@_ = split(m/F/, "FPQFRSFFVW");
if (join('', map {"($_)"} @_) eq "()(PQ)(RS)()(VW)") {
print qq{ok - 11 \@_ = split(m/F/, "FPQFRSFFVW") $^X $__FILE__\n};
}
else {
print qq{not ok - 11 \@_ = split(m/F/, "FPQFRSFFVW") $^X $__FILE__\n};
}
# u^vÆ¢¤³K\»ðgÁ½ê
$_ = "```\naaa\nbbb";
@_ = split(m/^/, $_);
if (join('', map {"($_)"} @_) eq "(```\n)(aaa\n)(bbb)") {
print qq{ok - 12 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 12 \@_ = split(m/^/, \$\_) $^X $__FILE__\n};
}
@_ = split(m/^/m, $_);
if (join('', map {"($_)"} @_) eq "(```\n)(aaa\n)(bbb)") {
print qq{ok - 13 \@_ = split(m/^/m, \$\_) $^X $__FILE__\n};
}
else {
print qq{not ok - 13 \@_ = split(m/^/m, \$\_) $^X $__FILE__\n};
}
# 7.7.4 Lv`t«ÊðÜÞ split Ì}b`íZq
@_ = split(/(<[^>]*>)/, "@@<a>
@<enms@
>
</enms>@</B>@
");
if (join('', map {"($_)"} @_) eq "(@@)(<a>)(
@)(<enms@
>)(
)(</enms>)(@)(</B>)(@
)") {
print qq{ok - 14 \@_ = split(/(<[^>]*>)/, "@@<a>
@<enms@
>
</enms>@</B>@
") $^X $__FILE__\n};
}
else {
print qq{not ok - 14 \@_ = split(/(<[^>]*>)/, "@@<a>
@<enms@
>
</enms>@</B>@
") $^X $__FILE__\n};
}
# 7.7.3.1 split ÉÍìpªÈ¢±ÆÌmF
$a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
$a =~ m/ABC(DEF)G(HI)/;
if (($1 eq "DEF") and ($2 eq "HI")) {
$b = "123,45,6,78,,90";
@_ = split(/,/,$b);
if (($1 eq "DEF") and ($2 eq "HI")) {
print qq{ok - 15 split ÉìpªÈ¢±ÆÌmF ($1)($2) $^X $__FILE__\n};
}
else {
print qq{not ok - 15 split ÉìpªÈ¢±ÆÌmF ($1)($2) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 15 split ÉìpªÈ¢±ÆÌmF ($1)($2) $^X $__FILE__\n};
}
__END__