Lines Matching refs:ok
26 ok 1, $@ =~ /unknown key value\(s\) Stupid/ ;
29 ok 2, $@ =~ /unknown key value\(s\) (Bad,? |Stupid,? ){2}/ ;
32 ok 3, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
35 ok 4, $@ =~ /^Txn not of type BerkeleyDB::Txn/ ;
39 ok 5, $@ =~ /^Env not of type BerkeleyDB::Env/ ;
47 ok 6, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
53 ok 7, $db->db_put("some key", "some value") == 0 ;
54 ok 8, $db->status() == 0 ;
55 ok 9, $db->db_get("some key", $value) == 0 ;
56 ok 10, $value eq "some value" ;
57 ok 11, $db->db_put("key", "value") == 0 ;
58 ok 12, $db->db_get("key", $value) == 0 ;
59 ok 13, $value eq "value" ;
60 ok 14, $db->db_del("some key") == 0 ;
61 ok 15, ($status = $db->db_get("some key", $value)) == DB_NOTFOUND ;
62 ok 16, $status eq $DB_errors{'DB_NOTFOUND'} ;
63 ok 17, $db->status() == DB_NOTFOUND ;
64 ok 18, $db->status() eq $DB_errors{'DB_NOTFOUND'};
66 ok 19, $db->db_sync() == 0 ;
71 ok 20, $db->db_put( 'key', 'x', DB_NOOVERWRITE) == DB_KEYEXIST ;
72 ok 21, $db->status() eq $DB_errors{'DB_KEYEXIST'};
73 ok 22, $db->status() == DB_KEYEXIST ;
77 ok 23, $db->db_get("key", $value) == 0 ;
78 ok 24, $value eq "value" ;
82 ok 25, $db->db_get($k, $v, DB_GET_BOTH) == 0 ;
85 ok 26, $db->db_get($k, $v, DB_GET_BOTH) == DB_NOTFOUND ;
88 ok 27, $db->db_get($k, $v, DB_GET_BOTH) == DB_NOTFOUND ;
98 ok 28, my $lexD = new LexDir($home);
100 ok 29, my $env = new BerkeleyDB::Env -Flags => DB_CREATE| DB_INIT_MPOOL,@StdErrFile,
102 ok 30, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
108 ok 31, $db->db_put("some key", "some value") == 0 ;
109 ok 32, $db->db_get("some key", $value) == 0 ;
110 ok 33, $value eq "some value" ;
121 ok 34, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
125 ok 35, $db->db_put("some key", "some value") == 0 ;
126 ok 36, $db->db_get("some key", $value) == 0 ;
127 ok 37, $value eq "some value" ;
128 ok 38, $::count > 0 ;
138 ok 39, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
152 ok 40, $ret == 0 ;
155 ok 41, my $cursor = $db->db_cursor() ;
167 ok 42, $cursor->status() == DB_NOTFOUND ;
168 ok 43, $cursor->status() eq $DB_errors{'DB_NOTFOUND'} ;
169 ok 44, keys %copy == 0 ;
170 ok 45, $extras == 0 ;
184 ok 46, $status == DB_NOTFOUND ;
185 ok 47, $status eq $DB_errors{'DB_NOTFOUND'} ;
186 ok 48, $cursor->status() == $status ;
187 ok 49, $cursor->status() eq $status ;
188 ok 50, keys %copy == 0 ;
189 ok 51, $extras == 0 ;
192 ok 52, $cursor->c_get($k, $v, DB_GET_BOTH) == 0 ;
195 ok 53, $cursor->c_get($k, $v, DB_GET_BOTH) == DB_NOTFOUND ;
198 ok 54, $cursor->c_get($k, $v, DB_GET_BOTH) == DB_NOTFOUND ;
207 ok 55, tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
215 ok 56, (tied %hash)->status() == DB_NOTFOUND ;
216 ok 57, $count == 0 ;
221 ok 58, (tied %hash)->status() == 0 ;
222 ok 59, $hash{"some key"} eq "some value";
223 ok 60, defined $hash{"some key"} ;
224 ok 61, (tied %hash)->status() == 0 ;
225 ok 62, exists $hash{"some key"} ;
226 ok 63, !defined $hash{"jimmy"} ;
227 ok 64, (tied %hash)->status() == DB_NOTFOUND ;
228 ok 65, !exists $hash{"jimmy"} ;
229 ok 66, (tied %hash)->status() == DB_NOTFOUND ;
232 ok 67, (tied %hash)->status() == 0 ;
233 ok 68, ! defined $hash{"some key"} ;
234 ok 69, (tied %hash)->status() == DB_NOTFOUND ;
235 ok 70, ! exists $hash{"some key"} ;
236 ok 71, (tied %hash)->status() == DB_NOTFOUND ;
249 ok 72, $count == 3 ;
250 ok 73, $keys == 1011 ;
251 ok 74, $values == 2022 ;
255 ok 75, keys %hash == 0 ;
267 ok 76, my $db = tie %hash, 'BerkeleyDB::Hash'
270 ok 77, $db->db_put("some key", "some value") == 0 ;
271 ok 78, $db->db_get("some key", $value) == 0 ;
272 ok 79, $value eq "some value" ;
285 ok 80, my $db = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
299 ok 81, $ret == 0 ;
304 ok 82, $pon == 0 && $off == 0 && $len == 0 ;
305 ok 83, ( $db->db_get("red", $value) == 0) && $value eq "bo" ;
306 ok 84, ( $db->db_get("green", $value) == 0) && $value eq "ho" ;
307 ok 85, ( $db->db_get("blue", $value) == 0) && $value eq "se" ;
311 ok 86, $pon ;
312 ok 87, $off == 0 ;
313 ok 88, $len == 2 ;
314 ok 89, $db->db_get("red", $value) == 0 && $value eq "t" ;
315 ok 90, $db->db_get("green", $value) == 0 && $value eq "se" ;
316 ok 91, $db->db_get("blue", $value) == 0 && $value eq "" ;
320 ok 92, $pon ;
321 ok 93, $off == 3 ;
322 ok 94, $len == 2 ;
323 ok 95, $db->db_get("red", $value) == 0 && $value eq "boat" ;
324 ok 96, $db->db_get("green", $value) == 0 && $value eq "house" ;
325 ok 97, $db->db_get("blue", $value) == 0 && $value eq "sea" ;
329 ok 98, ! $pon ;
330 ok 99, $off == 0 ;
331 ok 100, $len == 0 ;
332 ok 101, $db->db_put("red", "") == 0 ;
333 ok 102, $db->db_put("green", "AB") == 0 ;
334 ok 103, $db->db_put("blue", "XYZ") == 0 ;
335 ok 104, $db->db_put("new", "KLM") == 0 ;
338 ok 105, $db->db_get("red", $value) == 0 && $value eq "at" ;
339 ok 106, $db->db_get("green", $value) == 0 && $value eq "ABuse" ;
340 ok 107, $db->db_get("blue", $value) == 0 && $value eq "XYZa" ;
341 ok 108, $db->db_get("new", $value) == 0 && $value eq "KLM" ;
345 ok 109, $db->db_put("red", "PPP") == 0 ;
346 ok 110, $db->db_put("green", "Q") == 0 ;
347 ok 111, $db->db_put("blue", "XYZ") == 0 ;
348 ok 112, $db->db_put("new", "--") == 0 ;
351 ok 113, $pon ;
352 ok 114, $off == 3 ;
353 ok 115, $len == 2 ;
354 ok 116, $db->db_get("red", $value) == 0 && $value eq "at\0PPP" ;
355 ok 117, $db->db_get("green", $value) == 0 && $value eq "ABuQ" ;
356 ok 118, $db->db_get("blue", $value) == 0 && $value eq "XYZXYZ" ;
357 ok 119, $db->db_get("new", $value) == 0 && $value eq "KLM--" ;
367 ok 120, my $db = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
384 ok 121, $hash{"red"} eq "bo" ;
385 ok 122, $hash{"green"} eq "ho" ;
386 ok 123, $hash{"blue"} eq "se" ;
390 ok 124, $hash{"red"} eq "t" ;
391 ok 125, $hash{"green"} eq "se" ;
392 ok 126, $hash{"blue"} eq "" ;
396 ok 127, $hash{"red"} eq "boat" ;
397 ok 128, $hash{"green"} eq "house" ;
398 ok 129, $hash{"blue"} eq "sea" ;
402 ok 130, $hash{"red"} = "" ;
403 ok 131, $hash{"green"} = "AB" ;
404 ok 132, $hash{"blue"} = "XYZ" ;
405 ok 133, $hash{"new"} = "KLM" ;
408 ok 134, $hash{"red"} eq "at" ;
409 ok 135, $hash{"green"} eq "ABuse" ;
410 ok 136, $hash{"blue"} eq "XYZa" ;
411 ok 137, $hash{"new"} eq "KLM" ;
415 ok 138, $hash{"red"} = "PPP" ;
416 ok 139, $hash{"green"} = "Q" ;
417 ok 140, $hash{"blue"} = "XYZ" ;
418 ok 141, $hash{"new"} = "TU" ;
421 ok 142, $hash{"red"} eq "at\0PPP" ;
422 ok 143, $hash{"green"} eq "ABuQ" ;
423 ok 144, $hash{"blue"} eq "XYZXYZ" ;
424 ok 145, $hash{"new"} eq "KLMTU" ;
435 ok 146, my $lexD = new LexDir($home);
436 ok 147, my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
439 ok 148, my $txn = $env->txn_begin() ;
440 ok 149, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
446 ok 150, $txn->txn_commit() == 0 ;
447 ok 151, $txn = $env->txn_begin() ;
460 ok 152, $ret == 0 ;
464 ok 153, my $cursor = $db1->db_cursor() ;
471 ok 154, $count == 3 ;
475 ok 155, $txn->txn_abort() == 0 ;
480 ok 156, $cursor = $db1->db_cursor() ;
484 ok 157, $count == 0 ;
499 ok 158, my $db = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
510 ok 159, keys %hash == 6 ;
513 ok 160, my $cursor = $db->db_cursor() ;
517 ok 161, $cursor->c_get($key, $value, DB_SET) == 0 ;
518 ok 162, $key eq "Wall" && $value eq "Larry" ;
519 ok 163, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
520 ok 164, $key eq "Wall" && $value eq "Stone" ;
521 ok 165, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
522 ok 166, $key eq "Wall" && $value eq "Brick" ;
523 ok 167, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
524 ok 168, $key eq "Wall" && $value eq "Brick" ;
527 #ok 143, $ref->{bt_flags} | DB_DUP ;
531 ok 169, $cursor->c_get($k, $v, DB_SET) == 0 ;
532 ok 170, $k eq "Wall" && $v eq "Larry" ;
533 ok 171, $cursor->c_get($k, $v, DB_NEXT_DUP) == 0 ;
534 ok 172, $k eq "Wall" && $v eq "Stone" ;
535 ok 173, $cursor->c_get($k, $v, DB_NEXT_DUP) == 0 ;
536 ok 174, $k eq "Wall" && $v eq "Brick" ;
537 ok 175, $cursor->c_get($k, $v, DB_NEXT_DUP) == 0 ;
538 ok 176, $k eq "Wall" && $v eq "Brick" ;
539 ok 177, $cursor->c_get($k, $v, DB_NEXT_DUP) == DB_NOTFOUND ;
556 ok 178, tie %h, "BerkeleyDB::Hash", -Filename => $Dfile,
561 ok 179, tie %g, 'BerkeleyDB::Hash', -Filename => $Dfile2,
573 ok 180, my $cursor = (tied %h)->db_cursor() ;
575 ok 181, $cursor->c_get($key, $value, DB_SET) == 0 ;
576 ok 182, $key == 9 && $value eq 11 ;
577 ok 183, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
578 ok 184, $key == 9 && $value == 2 ;
579 ok 185, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
580 ok 186, $key == 9 && $value eq "x" ;
584 ok 187, $cursor->c_get($key, $value, DB_SET) == 0 ;
585 ok 188, $key == 9 && $value eq "x" ;
586 ok 189, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
587 ok 190, $key == 9 && $value == 2 ;
588 ok 191, $cursor->c_get($key, $value, DB_NEXT) == 0 ;
589 ok 192, $key == 9 && $value == 11 ;
599 ok 193, my $YY = tie %hh, "BerkeleyDB::Hash", -Filename => $Dfile,
611 ok 194, scalar $YY->get_dup('Unknown') == 0 ;
612 ok 195, scalar $YY->get_dup('Smith') == 1 ;
613 ok 196, scalar $YY->get_dup('Wall') == 3 ;
617 ok 197, "@unknown" eq "" ;
620 ok 198, "@smith" eq "John" ;
626 ok 199, (@wall == 3 && $wall{'Larry'}
632 ok 200, keys %unknown == 0 ;
635 ok 201, keys %smith == 1 && $smith{'John'} ;
638 ok 202, keys %wall == 3 && $wall{'Larry'} == 1 && $wall{'Stone'} == 1
694 main::ok 203, $@ eq "" ;
703 main::ok 204, $@ eq "" ;
706 main::ok 205, $@ eq "" ;
707 main::ok 206, $ret == 7 ;
711 main::ok 207, $@ eq "" ;
712 main::ok 208, $ret == 10 ;
715 main::ok 209, $@ eq "" ;
716 main::ok 210, $ret == 1 ;
719 main::ok 211, $@ eq "" ;
720 main::ok 212, $ret eq "[[10]]" ;