Lines Matching refs:ok
31 ok $@ =~ /unknown key value\(s\) Stupid/ ;
34 ok $@ =~ /unknown key value\(s\) / ;
37 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
40 ok $@ =~ /^Txn not of type BerkeleyDB::Txn/ ;
44 ok $@ =~ /^Env not of type BerkeleyDB::Env/ ;
54 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
62 ok $db->db_put(1, "some value") == 0 ;
63 ok $db->status() == 0 ;
64 ok $db->db_get(1, $value) == 0 ;
65 ok $value eq fillout("some value", $rec_len, $pad) ;
66 ok $db->db_put(2, "value") == 0 ;
67 ok $db->db_get(2, $value) == 0 ;
68 ok $value eq fillout("value", $rec_len, $pad) ;
69 ok $db->db_put(3, "value") == 0 ;
70 ok $db->db_get(3, $value) == 0 ;
71 ok $value eq fillout("value", $rec_len, $pad) ;
72 ok $db->db_del(2) == 0 ;
73 ok $db->db_get(2, $value) == DB_KEYEMPTY ;
74 ok $db->status() == DB_KEYEMPTY ;
75 ok $db->status() eq $DB_errors{'DB_KEYEMPTY'} ;
77 ok $db->db_get(7, $value) == DB_NOTFOUND ;
78 ok $db->status() == DB_NOTFOUND ;
79 ok $db->status() eq $DB_errors{'DB_NOTFOUND'} ;
81 ok $db->db_sync() == 0 ;
86 ok $db->db_put( 1, 'x', DB_NOOVERWRITE) == DB_KEYEXIST ;
87 ok $db->status() eq $DB_errors{'DB_KEYEXIST'} ;
88 ok $db->status() == DB_KEYEXIST ;
93 ok $db->db_get(1, $value) == 0 ;
94 ok $value eq fillout("some value", $rec_len, $pad) ;
107 ok my $lexD = new LexDir($home);
109 ok my $env = new BerkeleyDB::Env -Flags => DB_CREATE|DB_INIT_MPOOL,@StdErrFile,
111 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
118 ok $db->db_put(1, "some value") == 0 ;
119 ok $db->db_get(1, $value) == 0 ;
120 ok $value eq fillout("some value", $rec_len) ;
133 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
152 ok $ret == 0 ;
155 ok my $cursor = $db->db_cursor() ;
169 ok $cursor->status() == DB_NOTFOUND ;
170 ok $cursor->status() eq $DB_errors{'DB_NOTFOUND'} ;
171 ok keys %copy == 0 ;
172 ok $extras == 0 ;
186 ok $status == DB_NOTFOUND ;
187 ok $status eq $DB_errors{'DB_NOTFOUND'} ;
188 ok $cursor->status() == $status ;
189 ok $cursor->status() eq $status ;
190 ok keys %copy == 0 ;
191 ok $extras == 0 ;
201 ok $db = tie @array, 'BerkeleyDB::Queue', -Filename => $Dfile,
206 ok my $cursor = (tied @array)->db_cursor() ;
213 ok $cursor->status() == DB_NOTFOUND ;
214 ok $count == 0 ;
216 ok @array == 0 ;
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) ;
241 ok $count == 3 ;
242 ok $keys == 111 ;
243 ok $values == 222 ;
250 # ok $@ =~ /^unshift is unsupported with Queue databases/ ;
255 ok $array[0] eq fillout("red", $rec_len) ;
256 ok $cursor->c_get($k, $v, DB_FIRST) == 0 ;
257 ok $k == 0 ;
258 ok $v eq fillout("red", $rec_len) ;
259 ok $array[1] eq fillout("green", $rec_len) ;
260 ok $cursor->c_get($k, $v, DB_NEXT) == 0 ;
261 ok $k == 1 ;
262 ok $v eq fillout("green", $rec_len) ;
263 ok $array[2] eq fillout("blue", $rec_len) ;
264 ok $cursor->c_get($k, $v, DB_NEXT) == 0 ;
265 ok $k == 2 ;
266 ok $v eq fillout("blue", $rec_len) ;
267 ok $array[4] == 2 ;
268 ok $cursor->c_get($k, $v, DB_NEXT) == 0 ;
269 ok $k == 4 ;
270 ok $v == 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) ;
281 ok $cursor->c_get($k, $v, DB_LAST) == 0 ;
282 ok $k == 102 ;
283 ok $v eq fillout("end", $rec_len) ;
284 ok $cursor->c_get($k, $v, DB_PREV) == 0 ;
285 ok $k == 101 ;
286 ok $v eq fillout("the", $rec_len) ;
287 ok $cursor->c_get($k, $v, DB_PREV) == 0 ;
288 ok $k == 100 ;
289 ok $v == 200 ;
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) ;
299 ok $cursor->c_get($k, $v, DB_FIRST) == DB_NOTFOUND ;
313 ok my $db = tie @array, 'BerkeleyDB::Queue',
316 ok $db->db_put(1, "some value") == 0 ;
317 ok $db->db_get(1, $value) == 0 ;
318 ok $value eq fillout("some value", $rec_len) ;
329 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
348 ok $ret == 0 ;
352 ok ! $pon && $off == 0 && $len == 0 ;
353 ok $db->db_get(1, $value) == 0 && $value eq "bo" ;
354 ok $db->db_get(2, $value) == 0 && $value eq "ho" ;
355 ok $db->db_get(3, $value) == 0 && $value eq "se" ;
359 ok $pon ;
360 ok $off == 0 ;
361 ok $len == 2 ;
362 ok $db->db_get(1, $value) == 0 && $value eq fillout("t", 2) ;
363 ok $db->db_get(2, $value) == 0 && $value eq "se" ;
364 ok $db->db_get(3, $value) == 0 && $value eq " " ;
368 ok $pon ;
369 ok $off == 3 ;
370 ok $len == 2 ;
371 ok $db->db_get(1, $value) == 0 && $value eq fillout("boat", $rec_len) ;
372 ok $db->db_get(2, $value) == 0 && $value eq fillout("house", $rec_len) ;
373 ok $db->db_get(3, $value) == 0 && $value eq fillout("sea", $rec_len) ;
377 ok $db->db_put(1, "") != 0 ;
378 ok $db->db_put(2, "AB") == 0 ;
379 ok $db->db_put(3, "XY") == 0 ;
380 ok $db->db_put(4, "KLM") != 0 ;
381 ok $db->db_put(4, "KL") == 0 ;
384 ok $pon ;
385 ok $off == 0 ;
386 ok $len == 2 ;
387 ok $db->db_get(1, $value) == 0 && $value eq fillout("boat", $rec_len) ;
388 ok $db->db_get(2, $value) == 0 && $value eq fillout("ABuse", $rec_len) ;
389 ok $db->db_get(3, $value) == 0 && $value eq fillout("XYa", $rec_len) ;
390 ok $db->db_get(4, $value) == 0 && $value eq fillout("KL", $rec_len) ;
394 ok ! $pon ;
395 ok $off == 0 ;
396 ok $len == 0 ;
397 ok $db->db_put(1, "PP") == 0 ;
398 ok $db->db_put(2, "Q") != 0 ;
399 ok $db->db_put(3, "XY") == 0 ;
400 ok $db->db_put(4, "TU") == 0 ;
403 ok $db->db_get(1, $value) == 0 && $value eq fillout("boaPP", $rec_len) ;
404 ok $db->db_get(2, $value) == 0 && $value eq fillout("ABuse",$rec_len) ;
405 ok $db->db_get(3, $value) == 0 && $value eq fillout("XYaXY", $rec_len) ;
406 ok $db->db_get(4, $value) == 0 && $value eq fillout("KL TU", $rec_len) ;
417 ok my $db = tie @array, 'BerkeleyDB::Queue', -Filename => $Dfile,
437 ok $status == 0 ;
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) ;
460 ok $db->status() != 0 ;
462 ok $db->status() == 0 ;
464 ok $db->status() == 0 ;
466 ok $db->status() == 0 ;
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) ;
477 ok $db->status() == 0 ;
479 ok $db->status() != 0 ;
481 ok $db->status() == 0 ;
483 ok $db->status() == 0 ;
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) ;
500 ok my $lexD = new LexDir($home);
502 ok my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
505 ok my $txn = $env->txn_begin() ;
506 ok my $db1 = tie @array, 'BerkeleyDB::Queue',
516 ok $txn->txn_commit() == 0 ;
517 ok $txn = $env->txn_begin() ;
532 ok $ret == 0 ;
536 ok my $cursor = $db1->db_cursor() ;
543 ok $count == 3 ;
547 ok $txn->txn_abort() == 0 ;
552 ok $cursor = $db1->db_cursor() ;
556 ok $count == 0 ;
574 ok my $db = new BerkeleyDB::Queue -Filename => $Dfile,
582 ok $ref->{$recs} == 0;
583 ok $ref->{'qs_pagesize'} == 4 * 1024;
597 ok $ret == 0 ;
600 ok $ref->{$recs} == 3;
651 main::ok $@ eq "" ;
664 main::ok $@ eq "" ;
667 main::ok $@ eq "" ;
668 main::ok $ret == 7 ;
672 main::ok $@ eq "" ;
673 main::ok $ret == 10 ;
676 main::ok $@ eq "" ;
677 main::ok $ret == 1 ;
680 main::ok $@ eq "" ;
681 main::ok $ret eq "[[10]]" ;
696 ok my $db = tie @array, 'BerkeleyDB::Queue',
707 ok $db->db_put($k, "fred", DB_APPEND) == 0 ;
708 ok $k == 4 ;
709 ok $array[4] eq fillout("fred", $rec_len) ;
721 ok $db = tie @array, 'BerkeleyDB::Queue',
730 ok (($FA ? pop @array : $db->pop()) eq fillout("first", $rec_len)) ;
745 ok my $lexD = new LexDir($home);
746 ok my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
749 ok my $txn = $env->txn_begin() ;
750 ok $db = tie @array, 'BerkeleyDB::Queue', -Filename => $Dfile,
757 ok $txn->txn_commit() == 0 ;
758 ok $txn = $env->txn_begin() ;
761 ok my $cursor = (tied @array)->db_cursor() ;
768 ok $cursor->status() == DB_NOTFOUND ;
769 ok $count == 0 ;
771 ok @array == 0 ;
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) ;
796 ok $count == 3 ;
797 ok $keys == 111 ;
798 ok $values == 222 ;
805 # ok $@ =~ /^unshift is unsupported with Queue databases/ ;
810 ok $array[0] eq fillout("red", $rec_len) ;
811 ok $cursor->c_get($k, $v, DB_FIRST) == 0 ;
812 ok $k == 0 ;
813 ok $v eq fillout("red", $rec_len) ;
814 ok $array[1] eq fillout("green", $rec_len) ;
815 ok $cursor->c_get($k, $v, DB_NEXT) == 0 ;
816 ok $k == 1 ;
817 ok $v eq fillout("green", $rec_len) ;
818 ok $array[2] eq fillout("blue", $rec_len) ;
819 ok $cursor->c_get($k, $v, DB_NEXT) == 0 ;
820 ok $k == 2 ;
821 ok $v eq fillout("blue", $rec_len) ;
822 ok $array[4] == 2 ;
823 ok $cursor->c_get($k, $v, DB_NEXT) == 0 ;
824 ok $k == 4 ;
825 ok $v == 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) ;
836 ok $cursor->c_get($k, $v, DB_LAST) == 0 ;
837 ok $k == 102 ;
838 ok $v eq fillout("end", $rec_len) ;
839 ok $cursor->c_get($k, $v, DB_PREV) == 0 ;
840 ok $k == 101 ;
841 ok $v eq fillout("the", $rec_len) ;
842 ok $cursor->c_get($k, $v, DB_PREV) == 0 ;
843 ok $k == 100 ;
844 ok $v == 200 ;
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 ) ;
854 ok $cursor->c_get($k, $v, DB_FIRST) == DB_NOTFOUND ;
856 ok $txn->txn_commit() == 0 ;