Lines Matching refs:array
27 # full tied array support started in Perl 5.004_57
263 my @new_data = qw(add this to the start of the array) ;
274 ok(40, $h[7] eq "array") ;
293 ok(50, $h[8] eq "array") ;
309 # get the last element of the array
318 # now try to read before the start of the array
320 ok(57, $@ =~ '^Modification of non-creatable array value attempted' );
403 # check that attempting to tie an associative array to a DB_RECNO will fail
408 ok(71, $@ =~ /^DB_File can only tie an array to a DB_RECNO database/) ;
524 # $# sets array to same length
538 # $# sets array to bigger
550 # $# sets array smaller
796 print "The array contains $elements entries\n" ;
820 The array contains 5 entries
856 # array in a scalar context does not return the number of
857 # elements in the array.
1112 # via the tied array is not a problem, but check anyway
1126 # via the tied array is not a problem, but check anyway
1246 # offset past end of array
1250 my $splice_end_array = ($a =~ /^splice\(\) offset past end of array/);
1253 ok(190, !$splice_end_array || $a =~ /^splice\(\) offset past end of array/);
1385 die 'usage: test_splice(array, offset, length, list, context)' if @_ != 5;
1386 my ($array, $offset, $length, $list, $context) = @_;
1387 my @array = @$array;
1397 foreach ( @array ) { $h[$i++] = $_ }
1400 if list_diff(\@array, \@h);
1412 @r = splice @array, $offset, $length, @list;
1421 $r = splice @array, $offset, $length, @list;
1429 splice @array, $offset, $length, @list;
1487 return('different changed list: ' . Dumper(\@array) . ' vs ' . Dumper(\@h))
1488 if list_diff(\@array, \@h);
1520 . Dumper(\@array) . ' vs ' . Dumper(\@h))
1521 if list_diff(\@array, \@h);