# encoding: Latin9
# This file is encoded in Latin-9.
die "This file is not encoded in Latin-9.\n" if q{ } ne "\x82\xa0";
use Char;
print "1..3\n";
my $__FILE__ = __FILE__;
$text = 'hnDrxrFQQTTTWFXT|PO|ORF||F';
local $^W = 0;
# 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};
}
# 7.7 splitZq(XJReLXg)
my $a = split(/F/, $text);
if (join('', map {"($_)"} @_) eq "(hnDrxr)(QQTTTW)(XT|PO|OR)(||)()") {
print qq{ok - 2 \$a = split(/F/, \$text); $^X $__FILE__\n};
}
else {
print qq{not ok - 2 \$a = split(/F/, \$text); $^X $__FILE__\n};
}
# 7.7 splitZq(voidReLXg)
split(/F/, $text);
if (join('', map {"($_)"} @_) eq "(hnDrxr)(QQTTTW)(XT|PO|OR)(||)()") {
print qq{ok - 3 (void) split(/F/, \$text); $^X $__FILE__\n};
}
else {
print qq{not ok - 3 (void) split(/F/, \$text); $^X $__FILE__\n};
}
__END__