1N/A# Check SPLICE function's return value when autochoping is now 1N/Aprint "ok $N\n"; $N++;
# partial credit just for showing up 1N/Aprint $o ?
"ok $N\n" :
"not ok $N\n";
1N/A# (3-12) splicing at the beginning 1N/A@r =
splice(@a, 0, 0, 'r7', 'rec8');
# insert more than one 1N/A@r =
splice(@a, 0, 2, 'rec7', 'record8', 'rec9');
# insert more than delete 1N/A@r =
splice(@a, 0, 3, 'record9', 'rec10');
# delete more than insert 1N/A# (13-22) splicing in the middle 1N/A@r =
splice(@a, 1, 0, 'r7', 'rec8');
# insert more than one 1N/A@r =
splice(@a, 1, 2, 'rec7', 'record8', 'rec9');
# insert more than delete 1N/A@r =
splice(@a, 1, 3, 'record9', 'rec10');
# delete more than insert 1N/A# (23-32) splicing at the end 1N/A@r =
splice(@a, 3, 0, 'r7', 'rec8');
# insert more than one 1N/A@r =
splice(@a, 3, 2, 'rec7', 'record8', 'rec9');
# insert more than delete 1N/A@r =
splice(@a, 3, 3, 'record9', 'rec10');
# delete more than insert 1N/A# (33-42) splicing with negative subscript 1N/A@r =
splice(@a, -1, 0, 'r7', 'rec8');
# insert more than one 1N/A@r =
splice(@a, -1, 2, 'rec7', 'record8', 'rec9');
# insert more than delete 1N/A@r =
splice(@a, -3, 3, 'record9', 'rec10');
# delete more than insert 1N/A@r =
splice(@a, -4, 3);
# delete more than one 1N/A# (43) scrub it all out 1N/A# (44) put some back in 1N/A# (45) what if we remove too many records? 1N/A# (46-48) Now check the scalar context return 1N/Aprint !
defined($r) ?
"ok $N\n" :
"not ok $N \# return should have been undef, was <$r>\n";
1N/Aprint $r
eq "pie" ?
"ok $N\n" :
"not ok $N \# return should have been 'pie', was <$r>\n";
1N/Aprint $r
eq "like" ?
"ok $N\n" :
"not ok $N \# return should have been 'like', was <$r>\n";
1N/A# (49-50) Test default arguments 1N/A# actual results are in @r. 1N/A# expected results are in @_ 1N/A for my $i (0 .. $#r) { 1N/A print $good ? "ok $N\n" : "not ok $N \# was (@r); should be (@x)\n";