12 foreach (1..11) { print "ok $_ # skipped for VMS\n"; }
22 return 0 unless scalar(@$a) == scalar(@$b);
23 for my $i (0..scalar(@$a) - 1) {
24 return 0 unless $a->[$i] eq $b->[$i];
31 my ($desc, $code) = @_;
36 print "# FOO = (", join(", ", @FOO), ")\n";
37 print "# BAR = (", join(", ", @BAR), ")\n";
39 if (defined $check) { print "not " unless &$check; }
40 else { print "not " unless array_equal(\@FOO, \@BAR); }
42 print "ok ", ++$i, "\n";
47 test "Assignment", sub {
57 test "Truncation", sub {
98 splice @FOO, 1, 1, 'B';
99 splice @BAR, 1, 1, 'B';