Lines Matching refs:array
88 # Check simple env works with a array.
115 my @array ;
182 my @array ;
184 ok 46, $db = tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
189 ok 47, my $cursor = (tied @array)->db_cursor() ;
199 ok 50, @array == 0 ;
203 $array[1] = "some value";
204 ok 51, (tied @array)->status() == 0 ;
205 ok 52, $array[1] eq "some value";
206 ok 53, defined $array[1];
207 ok 54, (tied @array)->status() == 0 ;
208 ok 55, !defined $array[3];
209 ok 56, (tied @array)->status() == DB_NOTFOUND ;
211 ok 57, (tied @array)->db_del(1) == 0 ;
212 ok 58, (tied @array)->status() == 0 ;
213 ok 59, ! defined $array[1];
214 ok 60, (tied @array)->status() == DB_NOTFOUND ;
216 $array[1] = 2 ;
217 $array[10] = 20 ;
218 $array[1000] = 2000 ;
234 $FA ? unshift @array, "red", "green", "blue"
236 ok 64, $array[1] eq "red" ;
240 ok 68, $array[2] eq "green" ;
244 ok 72, $array[3] eq "blue" ;
248 ok 76, $array[4] == 2 ;
254 ok 80, ($FA ? shift @array : $db->shift()) eq "red" ;
255 ok 81, ($FA ? shift @array : $db->shift()) eq "green" ;
256 ok 82, ($FA ? shift @array : $db->shift()) eq "blue" ;
257 ok 83, ($FA ? shift @array : $db->shift()) == 2 ;
260 $FA ? push @array, "the", "end"
273 ok 93, ( $FA ? pop @array : $db->pop ) eq "end" ;
274 ok 94, ( $FA ? pop @array : $db->pop ) eq "the" ;
275 ok 95, ( $FA ? pop @array : $db->pop ) == 2000 ;
277 # now clear the array
278 $FA ? @array = ()
284 untie @array ;
290 my @array ;
293 ok 97, my $db = tie @array, 'BerkeleyDB::Recno' ;
386 # check works via tied array
389 my @array ;
391 ok 141, my $db = tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
404 $array[$i] = $data[$i] ;
410 ok 142, $array[1] eq "bo" ;
411 ok 143, $array[2] eq "ho" ;
412 ok 144, $array[3] eq "se" ;
416 ok 145, $array[1] eq "t" ;
417 ok 146, $array[2] eq "se" ;
418 ok 147, $array[3] eq "" ;
422 ok 148, $array[1] eq "boat" ;
423 ok 149, $array[2] eq "house" ;
424 ok 150, $array[3] eq "sea" ;
428 ok 151, $array[1] = "" ;
429 ok 152, $array[2] = "AB" ;
430 ok 153, $array[3] = "XYZ" ;
431 ok 154, $array[4] = "KLM" ;
434 ok 155, $array[1] eq "at" ;
435 ok 156, $array[2] eq "ABuse" ;
436 ok 157, $array[3] eq "XYZa" ;
437 ok 158, $array[4] eq "KLM" ;
441 ok 159, $array[1] = "PPP" ;
442 ok 160, $array[2] = "Q" ;
443 ok 161, $array[3] = "XYZ" ;
444 ok 162, $array[4] = "TU" ;
447 ok 163, $array[1] eq "at\0PPP" ;
448 ok 164, $array[2] eq "ABuQ" ;
449 ok 165, $array[3] eq "XYZXYZ" ;
450 ok 166, $array[4] eq "KLMTU" ;
457 my @array ;
466 ok 170, my $db1 = tie @array, 'BerkeleyDB::Recno',
520 untie @array ;
529 my @array ;
645 my @array ;
647 ok 194, tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
651 $array[0] = "abc" ;
652 $array[1] = "def" ;
653 $array[3] = "ghi" ;
654 untie @array ;
665 my @array ;
667 ok 196, tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
672 $array[0] = "abc" ;
673 $array[1] = "def" ;
674 $array[3] = "ghi" ;
675 untie @array ;
686 my @array ;
688 ok 198, tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
693 $array[0] = "abc" ;
694 $array[1] = "def" ;
695 $array[3] = "ghi" ;
696 untie @array ;
707 my @array ;
709 ok 200, tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
715 $array[0] = "abc" ;
716 $array[1] = "def" ;
717 $array[3] = "ghi" ;
718 untie @array ;
728 my @array ;
730 ok 202, my $db = tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
735 $array[0] = "abc" ;
736 $array[1] = "def" ;
737 $array[3] = "ghi" ;
749 untie @array ;
757 my @array ;
759 ok 210, my $db = tie @array, 'BerkeleyDB::Recno',
764 $array[1] = "def" ;
765 $array[3] = "ghi" ;
772 untie @array ;
780 my @array ;
782 ok 213, tie @array, 'BerkeleyDB::Recno', -Source => $Dfile2 ,
786 $array[0] = "abc" ;
787 $array[1] = "def" ;
788 $array[3] = "ghi" ;
789 untie @array ;
800 my @array ;
802 ok 215, tie @array, 'BerkeleyDB::Recno',
808 $array[0] = "abc" ;
809 $array[1] = "def" ;
810 $array[3] = "ghi" ;
811 untie @array ;
822 my @array ;
824 ok 217, tie @array, 'BerkeleyDB::Recno', -ArrayBase => 0,
829 $array[0] = "abc" ;
830 $array[1] = "def" ;
831 $array[3] = "ghi" ;
832 untie @array ;
843 my @array ;
845 ok 219, tie @array, 'BerkeleyDB::Recno',
852 $array[0] = "abc" ;
853 $array[1] = "def" ;
854 $array[3] = "ghi" ;
855 untie @array ;
862 # 23 Sept 2001 -- push into an empty array
864 my @array ;
866 ok 221, $db = tie @array, 'BerkeleyDB::Recno',
871 $FA ? push @array, "first"
874 ok 222, $array[0] eq "first" ;
875 ok 223, $FA ? pop @array : $db->pop() eq "first" ;
878 untie @array ;
883 # 23 Sept 2001 -- unshift into an empty array
885 my @array ;
887 ok 224, $db = tie @array, 'BerkeleyDB::Recno',
892 $FA ? unshift @array, "first"
895 ok 225, $array[0] eq "first" ;
896 ok 226, ($FA ? shift @array : $db->shift()) eq "first" ;
899 untie @array ;