Lines Matching refs:ok
24 ok 1, $@ =~ /unknown key value\(s\) Stupid/ ;
27 ok 2, $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/
31 ok 3, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
34 ok 4, $@ =~ /^Txn not of type BerkeleyDB::Txn/ ;
38 ok 5, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
46 ok 6, my $db = new BerkeleyDB::Btree -Filename => $Dfile,
52 ok 7, $db->db_put("some key", "some value") == 0 ;
53 ok 8, $db->status() == 0 ;
54 ok 9, $db->db_get("some key", $value) == 0 ;
55 ok 10, $value eq "some value" ;
56 ok 11, $db->db_put("key", "value") == 0 ;
57 ok 12, $db->db_get("key", $value) == 0 ;
58 ok 13, $value eq "value" ;
59 ok 14, $db->db_del("some key") == 0 ;
60 ok 15, ($status = $db->db_get("some key", $value)) == DB_NOTFOUND ;
61 ok 16, $db->status() == DB_NOTFOUND ;
62 ok 17, $db->status() eq $DB_errors{'DB_NOTFOUND'} ;
64 ok 18, $db->db_sync() == 0 ;
69 ok 19, $db->db_put( 'key', 'x', DB_NOOVERWRITE) == DB_KEYEXIST ;
70 ok 20, $db->status() eq $DB_errors{'DB_KEYEXIST'} ;
71 ok 21, $db->status() == DB_KEYEXIST ;
76 ok 22, $db->db_get("key", $value) == 0 ;
77 ok 23, $value eq "value" ;
81 ok 24, $db->db_get($k, $v, DB_GET_BOTH) == 0 ;
84 ok 25, $db->db_get($k, $v, DB_GET_BOTH) == DB_NOTFOUND ;
87 ok 26, $db->db_get($k, $v, DB_GET_BOTH) == DB_NOTFOUND ;
97 ok 27, my $lexD = new LexDir($home) ;
99 ok 28, my $env = new BerkeleyDB::Env -Flags => DB_CREATE|DB_INIT_MPOOL,
101 ok 29, my $db = new BerkeleyDB::Btree -Filename => $Dfile,
107 ok 30, $db->db_put("some key", "some value") == 0 ;
108 ok 31, $db->db_get("some key", $value) == 0 ;
109 ok 32, $value eq "some value" ;
121 ok 33, my $db = new BerkeleyDB::Btree -Filename => $Dfile,
136 ok 34, $ret == 0 ;
139 ok 35, my $cursor = $db->db_cursor() ;
151 ok 36, $cursor->status() == DB_NOTFOUND ;
152 ok 37, $cursor->status() eq $DB_errors{'DB_NOTFOUND'};
153 ok 38, keys %copy == 0 ;
154 ok 39, $extras == 0 ;
168 ok 40, $status == DB_NOTFOUND ;
169 ok 41, $status eq $DB_errors{'DB_NOTFOUND'};
170 ok 42, $cursor->status() == $status ;
171 ok 43, $cursor->status() eq $status ;
172 ok 44, keys %copy == 0 ;
173 ok 45, $extras == 0 ;
176 ok 46, $cursor->c_get($k, $v, DB_GET_BOTH) == 0 ;
179 ok 47, $cursor->c_get($k, $v, DB_GET_BOTH) == DB_NOTFOUND ;
182 ok 48, $cursor->c_get($k, $v, DB_GET_BOTH) == DB_NOTFOUND ;
191 ok 49, tie %hash, 'BerkeleyDB::Btree', -Filename => $Dfile,
199 ok 50, (tied %hash)->status() == DB_NOTFOUND ;
200 ok 51, $count == 0 ;
205 ok 52, (tied %hash)->status() == 0 ;
206 ok 53, $hash{"some key"} eq "some value";
207 ok 54, defined $hash{"some key"} ;
208 ok 55, (tied %hash)->status() == 0 ;
209 ok 56, exists $hash{"some key"} ;
210 ok 57, !defined $hash{"jimmy"} ;
211 ok 58, (tied %hash)->status() == DB_NOTFOUND ;
212 ok 59, !exists $hash{"jimmy"} ;
213 ok 60, (tied %hash)->status() == DB_NOTFOUND ;
216 ok 61, (tied %hash)->status() == 0 ;
217 ok 62, ! defined $hash{"some key"} ;
218 ok 63, (tied %hash)->status() == DB_NOTFOUND ;
219 ok 64, ! exists $hash{"some key"} ;
220 ok 65, (tied %hash)->status() == DB_NOTFOUND ;
233 ok 66, $count == 3 ;
234 ok 67, $keys == 1011 ;
235 ok 68, $values == 2022 ;
239 ok 69, keys %hash == 0 ;
250 ok 70, tie %h, "BerkeleyDB::Btree", -Filename => $Dfile,
254 ok 71, tie %g, 'BerkeleyDB::Btree', -Filename => $Dfile2,
258 ok 72, tie %k, 'BerkeleyDB::Btree', -Filename => $Dfile3,
290 ok 73, ArrayCompare (\@srt_1, [keys %h]);
291 ok 74, ArrayCompare (\@srt_2, [keys %g]);
292 ok 75, ArrayCompare (\@srt_3, [keys %k]);
303 ok 76, tie %h, "BerkeleyDB::Btree", -Filename => $Dfile,
308 ok 77, tie %g, 'BerkeleyDB::Btree', -Filename => $Dfile2,
313 ok 78, tie %k, 'BerkeleyDB::Btree', -Filename => $Dfile3,
346 ok 79, ArrayCompare (\@srt_1, [keys %h]);
347 ok 80, ArrayCompare (\@srt_2, [keys %g]);
348 ok 81, ArrayCompare (\@srt_3, [keys %k]);
349 ok 82, ArrayCompare ([qw(dd 0 0 x 3 1 abc)], [getValues \%h]);
350 ok 83, ArrayCompare ([qw(dd 1 0 3 x abc 0)], [getValues \%g]);
351 ok 84, ArrayCompare ([qw(0 x 3 0 1 dd abc)], [getValues \%k]);
354 ok 85, my $cur = (tied %g)->db_cursor() ;
356 ok 86, $cur->c_get($k, $v, DB_SET) == 0 ;
357 ok 87, $k == 9 && $v == 0 ;
358 ok 88, $cur->c_get($k, $v, DB_NEXT_DUP) == 0 ;
359 ok 89, $k == 9 && $v eq "x" ;
360 ok 90, $cur->c_get($k, $v, DB_NEXT_DUP) == DB_NOTFOUND ;
370 ok 91, tie %h, "BerkeleyDB::Btree", -Filename => $Dfile,
376 ok 92, tie %g, 'BerkeleyDB::Btree', -Filename => $Dfile2,
398 ok 93, ArrayCompare (\@srt_1, [keys %h]);
399 ok 94, ArrayCompare (\@srt_2, [keys %g]);
400 ok 95, ArrayCompare ([qw(dd 1 3 x 2 11 abc 0)], [getValues \%g]);
401 ok 96, ArrayCompare ([qw(dd 0 11 2 x 3 1 abc)], [getValues \%h]);
410 ok 97, my $YY = tie %hh, "BerkeleyDB::Btree", -Filename => $Dfile,
422 ok 98, scalar $YY->get_dup('Unknown') == 0 ;
423 ok 99, scalar $YY->get_dup('Smith') == 1 ;
424 ok 100, scalar $YY->get_dup('Wall') == 3 ;
428 ok 101, "@unknown" eq "" ;
431 ok 102, "@smith" eq "John" ;
437 ok 103, (@wall == 3 && $wall{'Larry'} && $wall{'Stone'} && $wall{'Brick'});
442 ok 104, keys %unknown == 0 ;
445 ok 105, keys %smith == 1 && $smith{'John'} ;
448 ok 106, keys %wall == 3 && $wall{'Larry'} == 1 && $wall{'Stone'} == 1
463 ok 107, my $db = tie %hash, 'BerkeleyDB::Btree' ;
465 ok 108, $db->db_put("some key", "some value") == 0 ;
466 ok 109, $db->db_get("some key", $value) == 0 ;
467 ok 110, $value eq "some value" ;
477 ok 111, my $db = new BerkeleyDB::Btree, -Filename => $Dfile,
491 ok 112, $ret == 0 ;
496 ok 113, ! $pon && $off == 0 && $len == 0 ;
497 ok 114, $db->db_get("red", $value) == 0 && $value eq "bo" ;
498 ok 115, $db->db_get("green", $value) == 0 && $value eq "ho" ;
499 ok 116, $db->db_get("blue", $value) == 0 && $value eq "se" ;
503 ok 117, $pon ;
504 ok 118, $off == 0 ;
505 ok 119, $len == 2 ;
506 ok 120, $db->db_get("red", $value) == 0 && $value eq "t" ;
507 ok 121, $db->db_get("green", $value) == 0 && $value eq "se" ;
508 ok 122, $db->db_get("blue", $value) == 0 && $value eq "" ;
512 ok 123, $pon ;
513 ok 124, $off == 3 ;
514 ok 125, $len == 2 ;
515 ok 126, $db->db_get("red", $value) == 0 && $value eq "boat" ;
516 ok 127, $db->db_get("green", $value) == 0 && $value eq "house" ;
517 ok 128, $db->db_get("blue", $value) == 0 && $value eq "sea" ;
521 ok 129, $db->db_put("red", "") == 0 ;
522 ok 130, $db->db_put("green", "AB") == 0 ;
523 ok 131, $db->db_put("blue", "XYZ") == 0 ;
524 ok 132, $db->db_put("new", "KLM") == 0 ;
527 ok 133, $pon ;
528 ok 134, $off == 0 ;
529 ok 135, $len == 2 ;
530 ok 136, $db->db_get("red", $value) == 0 && $value eq "at" ;
531 ok 137, $db->db_get("green", $value) == 0 && $value eq "ABuse" ;
532 ok 138, $db->db_get("blue", $value) == 0 && $value eq "XYZa" ;
533 ok 139, $db->db_get("new", $value) == 0 && $value eq "KLM" ;
537 ok 140, ! $pon ;
538 ok 141, $off == 0 ;
539 ok 142, $len == 0 ;
540 ok 143, $db->db_put("red", "PPP") == 0 ;
541 ok 144, $db->db_put("green", "Q") == 0 ;
542 ok 145, $db->db_put("blue", "XYZ") == 0 ;
543 ok 146, $db->db_put("new", "TU") == 0 ;
546 ok 147, $db->db_get("red", $value) == 0 && $value eq "at\0PPP" ;
547 ok 148, $db->db_get("green", $value) == 0 && $value eq "ABuQ" ;
548 ok 149, $db->db_get("blue", $value) == 0 && $value eq "XYZXYZ" ;
549 ok 150, $db->db_get("new", $value) == 0 && $value eq "KLMTU" ;
559 ok 151, my $db = tie %hash, 'BerkeleyDB::Btree', -Filename => $Dfile,
576 ok 152, $hash{"red"} eq "bo" ;
577 ok 153, $hash{"green"} eq "ho" ;
578 ok 154, $hash{"blue"} eq "se" ;
582 ok 155, $hash{"red"} eq "t" ;
583 ok 156, $hash{"green"} eq "se" ;
584 ok 157, $hash{"blue"} eq "" ;
588 ok 158, $hash{"red"} eq "boat" ;
589 ok 159, $hash{"green"} eq "house" ;
590 ok 160, $hash{"blue"} eq "sea" ;
594 ok 161, $hash{"red"} = "" ;
595 ok 162, $hash{"green"} = "AB" ;
596 ok 163, $hash{"blue"} = "XYZ" ;
597 ok 164, $hash{"new"} = "KLM" ;
600 ok 165, $hash{"red"} eq "at" ;
601 ok 166, $hash{"green"} eq "ABuse" ;
602 ok 167, $hash{"blue"} eq "XYZa" ;
603 ok 168, $hash{"new"} eq "KLM" ;
607 ok 169, $hash{"red"} = "PPP" ;
608 ok 170, $hash{"green"} = "Q" ;
609 ok 171, $hash{"blue"} = "XYZ" ;
610 ok 172, $hash{"new"} = "TU" ;
613 ok 173, $hash{"red"} eq "at\0PPP" ;
614 ok 174, $hash{"green"} eq "ABuQ" ;
615 ok 175, $hash{"blue"} eq "XYZXYZ" ;
616 ok 176, $hash{"new"} eq "KLMTU" ;
627 ok 177, my $lexD = new LexDir($home) ;
628 ok 178, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
631 ok 179, my $txn = $env->txn_begin() ;
632 ok 180, my $db1 = tie %hash, 'BerkeleyDB::Btree', -Filename => $Dfile,
637 ok 181, (my $Z = $txn->txn_commit()) == 0 ;
638 ok 182, $txn = $env->txn_begin() ;
652 ok 183, $ret == 0 ;
656 ok 184, my $cursor = $db1->db_cursor() ;
663 ok 185, $count == 3 ;
667 #ok 151, $txn->txn_abort() == 0 ;
668 ok 186, ($Z = $txn->txn_abort()) == 0 ;
673 ok 187, $cursor = $db1->db_cursor() ;
677 ok 188, $count == 0 ;
691 ok 189, my $db = tie %hash, 'BerkeleyDB::Btree', -Filename => $Dfile,
702 ok 190, keys %hash == 6 ;
705 ok 191, my $cursor = $db->db_cursor() ;
709 ok 192, $cursor->c_get($key, $value, DB_SET) == 0 ;
710 ok 193, $key eq "Wall" && $value eq "Larry" ;
711 ok 194, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
712 ok 195, $key eq "Wall" && $value eq "Stone" ;
713 ok 196, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
714 ok 197, $key eq "Wall" && $value eq "Brick" ;
715 ok 198, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
716 ok 199, $key eq "Wall" && $value eq "Brick" ;
719 #ok 200, ($ref->{bt_flags} | DB_DUP) == DB_DUP ;
735 ok 200, my $db = new BerkeleyDB::Btree -Filename => $Dfile,
742 ok 201, $ref->{$recs} == 0;
743 ok 202, $ref->{'bt_minkey'} == 3;
744 ok 203, $ref->{'bt_pagesize'} == 2 ** 12;
757 ok 204, $ret == 0 ;
760 ok 205, $ref->{$recs} == 3;
811 main::ok 206, $@ eq "" ;
820 main::ok 207, $@ eq "" && $X ;
823 main::ok 208, $@ eq "" ;
824 main::ok 209, $ret == 7 ;
828 main::ok 210, $@ eq "" ;
829 main::ok 211, $ret == 10 ;
832 main::ok 212, $@ eq "" ;
833 main::ok 213, $ret == 1 ;
836 main::ok 214, $@ eq "" ;
837 main::ok 215, $ret eq "[[10]]" ;
851 ok 216, my $db = new BerkeleyDB::Btree
872 ok 217, $ret == 0 ;
876 ok 218, $db->db_get($k, $v, DB_SET_RECNO) == 0;
877 ok 219, $k eq "B one" && $v == 1 ;
880 ok 220, $db->db_get($k, $v, DB_SET_RECNO) == 0;
881 ok 221, $k eq "D three" && $v == 3 ;
884 ok 222, $db->db_get($k, $v, DB_SET_RECNO) == 0;
885 ok 223, $k eq "E four" && $v == 4 ;
888 ok 224, $db->db_get($k, $v, DB_SET_RECNO) == 0;
889 ok 225, $k eq "A zero" && $v == 0 ;
894 ok 226, my $cursor = $db->db_cursor() ;
897 ok 227, $db->db_get($k, $v, DB_SET_RECNO) == 0;
898 ok 228, $k eq "C two" && $v == 2 ;
901 ok 229, $cursor->c_get($k, $v, DB_SET_RECNO) == 0;
902 ok 230, $k eq "A zero" && $v == 0 ;
905 ok 231, $db->db_get($k, $v, DB_SET_RECNO) == 0;
906 ok 232, $k eq "D three" && $v == 3 ;
909 ok 233, $cursor->c_get($k, $v, DB_FIRST) == 0 ;
910 ok 234, $k eq "A zero" && $v == 0 ;
911 ok 235, $cursor->c_get($k, $v, DB_GET_RECNO) == 0;
912 ok 236, $v == 0 ;
914 ok 237, $cursor->c_get($k, $v, DB_NEXT) == 0 ;
915 ok 238, $k eq "B one" && $v == 1 ;
916 ok 239, $cursor->c_get($k, $v, DB_GET_RECNO) == 0;
917 ok 240, $v == 1 ;
919 ok 241, $cursor->c_get($k, $v, DB_LAST) == 0 ;
920 ok 242, $k eq "E four" && $v == 4 ;
921 ok 243, $cursor->c_get($k, $v, DB_GET_RECNO) == 0;
922 ok 244, $v == 4 ;