Lines Matching refs:array
101 # Check simple env works with a array.
130 my @array ;
198 my @array ;
201 ok $db = tie @array, 'BerkeleyDB::Queue', -Filename => $Dfile,
206 ok my $cursor = (tied @array)->db_cursor() ;
216 ok @array == 0 ;
220 $array[1] = "some value";
221 ok ((tied @array)->status() == 0) ;
222 ok $array[1] eq fillout("some value", $rec_len);
223 ok defined $array[1];
224 ok ((tied @array)->status() == 0) ;
225 ok !defined $array[3];
226 ok ((tied @array)->status() == DB_NOTFOUND) ;
228 $array[1] = 2 ;
229 $array[10] = 20 ;
230 $array[100] = 200 ;
247 # $FA ? unshift @array, "red", "green", "blue"
251 $array[0] = "red" ;
252 $array[1] = "green" ;
253 $array[2] = "blue" ;
254 $array[4] = 2 ;
255 ok $array[0] eq fillout("red", $rec_len) ;
259 ok $array[1] eq fillout("green", $rec_len) ;
263 ok $array[2] eq fillout("blue", $rec_len) ;
267 ok $array[4] == 2 ;
273 ok (($FA ? shift @array : $db->shift()) eq fillout("red", $rec_len)) ;
274 ok (($FA ? shift @array : $db->shift()) eq fillout("green", $rec_len)) ;
275 ok (($FA ? shift @array : $db->shift()) eq fillout("blue", $rec_len)) ;
276 ok (($FA ? shift @array : $db->shift()) == 2) ;
279 $FA ? push @array, "the", "end"
292 ok (( $FA ? pop @array : $db->pop ) eq fillout("end", $rec_len)) ;
293 ok (( $FA ? pop @array : $db->pop ) eq fillout("the", $rec_len)) ;
294 ok (( $FA ? pop @array : $db->pop ) == 200) ;
296 # now clear the array
297 $FA ? @array = ()
303 untie @array ;
309 my @array ;
313 ok my $db = tie @array, 'BerkeleyDB::Queue',
411 # check works via tied array
414 my @array ;
417 ok my $db = tie @array, 'BerkeleyDB::Queue', -Filename => $Dfile,
433 $array[$i] = $data[$i] ;
441 ok $array[1] eq fillout("bo", 2) ;
442 ok $array[2] eq fillout("ho", 2) ;
443 ok $array[3] eq fillout("se", 2) ;
447 ok $array[1] eq fillout("t", 2) ;
448 ok $array[2] eq fillout("se", 2) ;
449 ok $array[3] eq fillout("", 2) ;
453 ok $array[1] eq fillout("boat", $rec_len) ;
454 ok $array[2] eq fillout("house", $rec_len) ;
455 ok $array[3] eq fillout("sea", $rec_len) ;
459 $array[1] = "" ;
461 $array[2] = "AB" ;
463 $array[3] = "XY" ;
465 $array[4] = "KL" ;
469 ok $array[1] eq fillout("boat", $rec_len) ;
470 ok $array[2] eq fillout("ABuse", $rec_len) ;
471 ok $array[3] eq fillout("XYa", $rec_len) ;
472 ok $array[4] eq fillout("KL", $rec_len) ;
476 $array[1] = "PP" ;
478 $array[2] = "Q" ;
480 $array[3] = "XY" ;
482 $array[4] = "TU" ;
486 ok $array[1] eq fillout("boaPP", $rec_len) ;
487 ok $array[2] eq fillout("ABuse", $rec_len) ;
488 ok $array[3] eq fillout("XYaXY", $rec_len) ;
489 ok $array[4] eq fillout("KL TU", $rec_len) ;
496 my @array ;
506 ok my $db1 = tie @array, 'BerkeleyDB::Queue',
562 untie @array ;
571 my @array ;
693 my @array ;
696 ok my $db = tie @array, 'BerkeleyDB::Queue',
703 $array[1] = "def" ;
704 $array[3] = "ghi" ;
709 ok $array[4] eq fillout("fred", $rec_len) ;
712 untie @array ;
716 # 23 Sept 2001 -- push into an empty array
718 my @array ;
721 ok $db = tie @array, 'BerkeleyDB::Queue',
727 $FA ? push @array, "first"
730 ok (($FA ? pop @array : $db->pop()) eq fillout("first", $rec_len)) ;
733 untie @array ;
741 my @array ;
750 ok $db = tie @array, 'BerkeleyDB::Queue', -Filename => $Dfile,
761 ok my $cursor = (tied @array)->db_cursor() ;
771 ok @array == 0 ;
775 $array[1] = "some value";
776 ok ((tied @array)->status() == 0) ;
777 ok $array[1] eq fillout("some value", $rec_len);
778 ok defined $array[1];
779 ok ((tied @array)->status() == 0) ;
780 ok !defined $array[3];
781 ok ((tied @array)->status() == DB_NOTFOUND) ;
783 $array[1] = 2 ;
784 $array[10] = 20 ;
785 $array[100] = 200 ;
802 # $FA ? unshift @array, "red", "green", "blue"
806 $array[0] = "red" ;
807 $array[1] = "green" ;
808 $array[2] = "blue" ;
809 $array[4] = 2 ;
810 ok $array[0] eq fillout("red", $rec_len) ;
814 ok $array[1] eq fillout("green", $rec_len) ;
818 ok $array[2] eq fillout("blue", $rec_len) ;
822 ok $array[4] == 2 ;
828 ok (($FA ? shift @array : $db->shift()) eq fillout("red", $rec_len)) ;
829 ok (($FA ? shift @array : $db->shift()) eq fillout("green", $rec_len)) ;
830 ok (($FA ? shift @array : $db->shift()) eq fillout("blue", $rec_len)) ;
831 ok (($FA ? shift @array : $db->shift()) == 2) ;
834 $FA ? push @array, "the", "end"
847 ok (( $FA ? pop @array : $db->pop ) eq fillout("end", $rec_len)) ;
848 ok (( $FA ? pop @array : $db->pop ) eq fillout("the", $rec_len)) ;
849 ok (( $FA ? pop @array : $db->pop ) == 200 ) ;
851 # now clear the array
852 $FA ? @array = ()
859 untie @array ;