splice.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
print "1..12\n";
@a = (1..10);
print "ok 1\n";
print "ok 2\n";
print "ok 3\n";
print "ok 4\n";
print "ok 5\n";
print "ok 6\n";
print "ok 7\n";
print "ok 8\n";
print "ok 9\n";
# Bug 20000223.001 - no test for splice(@array). Destructive test!
print "ok 10\n";
# Tests 11 and 12:
# [ID 20010711.005] in Tie::Array, SPLICE ignores context, breaking SHIFT
my $foo;
@a = ('red', 'green', 'blue');
print "ok 11\n";
@a = ('red', 'green', 'blue');
$foo = shift @a;
print "ok 12\n";