#!./perl
$| = 1;
BEGIN {
chdir 't' if -d 't';
}
print "1..11\n";
foreach (1..11) { print "ok $_ # skipped for VMS\n"; }
exit 0;
}
sub array_equal
{
my ($a, $b) = @_;
}
return 1;
}
sub test
{
&$code;
print "ok ", ++$i, "\n";
}
print "1..11\n";
test "Assignment", sub {
};
test "Storing", sub {
};
test "Truncation", sub {
$#FOO = 0;
$#BAR = 0;
};
test "Push", sub {
};
test "Pop", sub {
};
test "Shift", sub {
shift @FOO;
shift @BAR;
};
test "Push", sub {
};
test "Unshift", sub {
};
test "Reverse", sub {
};
test "Sort", sub {
};
test "Splice", sub {
};