Lines Matching refs:ok
25 ok 1, $@ =~ /unknown key value\(s\) Stupid/ ;
28 ok 2, $@ =~ /unknown key value\(s\) / ;
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::Recno -Filename => $Dfile,
52 ok 7, $db->db_put(1, "some value") == 0 ;
53 ok 8, $db->status() == 0 ;
54 ok 9, $db->db_get(1, $value) == 0 ;
55 ok 10, $value eq "some value" ;
56 ok 11, $db->db_put(2, "value") == 0 ;
57 ok 12, $db->db_get(2, $value) == 0 ;
58 ok 13, $value eq "value" ;
59 ok 14, $db->db_del(1) == 0 ;
60 ok 15, ($status = $db->db_get(1, $value)) == DB_KEYEMPTY ;
61 ok 16, $db->status() == DB_KEYEMPTY ;
62 ok 17, $db->status() eq $DB_errors{'DB_KEYEMPTY'} ;
64 ok 18, ($status = $db->db_get(7, $value)) == DB_NOTFOUND ;
65 ok 19, $db->status() == DB_NOTFOUND ;
66 ok 20, $db->status() eq $DB_errors{'DB_NOTFOUND'} ;
68 ok 21, $db->db_sync() == 0 ;
73 ok 22, $db->db_put( 2, 'x', DB_NOOVERWRITE) == DB_KEYEXIST ;
74 ok 23, $db->status() eq $DB_errors{'DB_KEYEXIST'} ;
75 ok 24, $db->status() == DB_KEYEXIST ;
80 ok 25, $db->db_get(2, $value) == 0 ;
81 ok 26, $value eq "value" ;
92 ok 27, my $lexD = new LexDir($home);
94 ok 28, my $env = new BerkeleyDB::Env -Flags => DB_CREATE|DB_INIT_MPOOL,@StdErrFile,
97 ok 29, my $db = new BerkeleyDB::Recno -Filename => $Dfile,
103 ok 30, $db->db_put(1, "some value") == 0 ;
104 ok 31, $db->db_get(1, $value) == 0 ;
105 ok 32, $value eq "some value" ;
117 ok 33, my $db = new BerkeleyDB::Recno -Filename => $Dfile,
135 ok 34, $ret == 0 ;
138 ok 35, my $cursor = $db->db_cursor() ;
152 ok 36, $cursor->status() == DB_NOTFOUND ;
153 ok 37, $cursor->status() eq $DB_errors{'DB_NOTFOUND'} ;
154 ok 38, keys %copy == 0 ;
155 ok 39, $extras == 0 ;
169 ok 40, $status == DB_NOTFOUND ;
170 ok 41, $status eq $DB_errors{'DB_NOTFOUND'} ;
171 ok 42, $cursor->status() == $status ;
172 ok 43, $cursor->status() eq $status ;
173 ok 44, keys %copy == 0 ;
174 ok 45, $extras == 0 ;
184 ok 46, $db = tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
189 ok 47, my $cursor = (tied @array)->db_cursor() ;
196 ok 48, $cursor->status() == DB_NOTFOUND ;
197 ok 49, $count == 0 ;
199 ok 50, @array == 0 ;
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 ;
229 ok 61, $count == 3 ;
230 ok 62, $keys == 1011 ;
231 ok 63, $values == 2022 ;
236 ok 64, $array[1] eq "red" ;
237 ok 65, $cursor->c_get($k, $v, DB_FIRST) == 0 ;
238 ok 66, $k == 1 ;
239 ok 67, $v eq "red" ;
240 ok 68, $array[2] eq "green" ;
241 ok 69, $cursor->c_get($k, $v, DB_NEXT) == 0 ;
242 ok 70, $k == 2 ;
243 ok 71, $v eq "green" ;
244 ok 72, $array[3] eq "blue" ;
245 ok 73, $cursor->c_get($k, $v, DB_NEXT) == 0 ;
246 ok 74, $k == 3 ;
247 ok 75, $v eq "blue" ;
248 ok 76, $array[4] == 2 ;
249 ok 77, $cursor->c_get($k, $v, DB_NEXT) == 0 ;
250 ok 78, $k == 4 ;
251 ok 79, $v == 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 ;
262 ok 84, $cursor->c_get($k, $v, DB_LAST) == 0 ;
263 ok 85, $k == 1001 ;
264 ok 86, $v eq "end" ;
265 ok 87, $cursor->c_get($k, $v, DB_PREV) == 0 ;
266 ok 88, $k == 1000 ;
267 ok 89, $v eq "the" ;
268 ok 90, $cursor->c_get($k, $v, DB_PREV) == 0 ;
269 ok 91, $k == 999 ;
270 ok 92, $v == 2000 ;
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 ;
280 ok 96, $cursor->c_get($k, $v, DB_FIRST) == DB_NOTFOUND ;
293 ok 97, my $db = tie @array, 'BerkeleyDB::Recno' ;
295 ok 98, $db->db_put(1, "some value") == 0 ;
296 ok 99, $db->db_get(1, $value) == 0 ;
297 ok 100, $value eq "some value" ;
307 ok 101, my $db = new BerkeleyDB::Recno, -Filename => $Dfile,
323 ok 102, $ret == 0 ;
328 ok 103, ! $pon && $off == 0 && $len == 0 ;
329 ok 104, $db->db_get(1, $value) == 0 && $value eq "bo" ;
330 ok 105, $db->db_get(2, $value) == 0 && $value eq "ho" ;
331 ok 106, $db->db_get(3, $value) == 0 && $value eq "se" ;
335 ok 107, $pon ;
336 ok 108, $off == 0 ;
337 ok 109, $len == 2 ;
338 ok 110, $db->db_get(1, $value) == 0 && $value eq "t" ;
339 ok 111, $db->db_get(2, $value) == 0 && $value eq "se" ;
340 ok 112, $db->db_get(3, $value) == 0 && $value eq "" ;
344 ok 113, $pon ;
345 ok 114, $off == 3 ;
346 ok 115, $len == 2 ;
347 ok 116, $db->db_get(1, $value) == 0 && $value eq "boat" ;
348 ok 117, $db->db_get(2, $value) == 0 && $value eq "house" ;
349 ok 118, $db->db_get(3, $value) == 0 && $value eq "sea" ;
353 ok 119, $db->db_put(1, "") == 0 ;
354 ok 120, $db->db_put(2, "AB") == 0 ;
355 ok 121, $db->db_put(3, "XYZ") == 0 ;
356 ok 122, $db->db_put(4, "KLM") == 0 ;
359 ok 123, $pon ;
360 ok 124, $off == 0 ;
361 ok 125, $len == 2 ;
362 ok 126, $db->db_get(1, $value) == 0 && $value eq "at" ;
363 ok 127, $db->db_get(2, $value) == 0 && $value eq "ABuse" ;
364 ok 128, $db->db_get(3, $value) == 0 && $value eq "XYZa" ;
365 ok 129, $db->db_get(4, $value) == 0 && $value eq "KLM" ;
369 ok 130, ! $pon ;
370 ok 131, $off == 0 ;
371 ok 132, $len == 0 ;
372 ok 133, $db->db_put(1, "PPP") == 0 ;
373 ok 134, $db->db_put(2, "Q") == 0 ;
374 ok 135, $db->db_put(3, "XYZ") == 0 ;
375 ok 136, $db->db_put(4, "TU") == 0 ;
378 ok 137, $db->db_get(1, $value) == 0 && $value eq "at\0PPP" ;
379 ok 138, $db->db_get(2, $value) == 0 && $value eq "ABuQ" ;
380 ok 139, $db->db_get(3, $value) == 0 && $value eq "XYZXYZ" ;
381 ok 140, $db->db_get(4, $value) == 0 && $value eq "KLMTU" ;
391 ok 141, my $db = tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
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" ;
461 ok 167, my $lexD = new LexDir($home);
462 ok 168, my $env = new BerkeleyDB::Env -Home => $home,@StdErrFile,
465 ok 169, my $txn = $env->txn_begin() ;
466 ok 170, my $db1 = tie @array, 'BerkeleyDB::Recno',
474 ok 171, $txn->txn_commit() == 0 ;
475 ok 172, $txn = $env->txn_begin() ;
490 ok 173, $ret == 0 ;
494 ok 174, my $cursor = $db1->db_cursor() ;
501 ok 175, $count == 3 ;
505 ok 176, $txn->txn_abort() == 0 ;
510 ok 177, $cursor = $db1->db_cursor() ;
514 ok 178, $count == 0 ;
531 ok 179, my $db = new BerkeleyDB::Recno -Filename => $Dfile,
537 ok 180, $ref->{$recs} == 0;
538 ok 181, $ref->{'bt_pagesize'} == 4 * 1024;
552 ok 182, $ret == 0 ;
555 ok 183, $ref->{$recs} == 3;
606 main::ok 184, $@ eq "" ;
615 main::ok 185, $@ eq "" ;
618 main::ok 186, $@ eq "" ;
619 main::ok 187, $ret == 7 ;
623 main::ok 188, $@ eq "" ;
624 main::ok 189, $ret == 10 ;
627 main::ok 190, $@ eq "" ;
628 main::ok 191, $ret == 1 ;
631 main::ok 192, $@ eq "" ;
632 main::ok 193, $ret eq "[[10]]" ;
647 ok 194, tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
657 ok 195, $x eq "abc\ndef\n\nghi\n" ;
667 ok 196, tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
678 ok 197, $x eq "abc-def--ghi-";
688 ok 198, tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
699 ok 199, $x eq "abc def ghi " ;
709 ok 200, tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
721 ok 201, $x eq "abc--def-------ghi--" ;
730 ok 202, my $db = tie @array, 'BerkeleyDB::Recno', -Filename => $Dfile,
739 ok 203, my ($length, $joined) = joiner($db, "|") ;
740 ok 204, $length == 3 ;
741 ok 205, $joined eq "abc|def|ghi";
743 ok 206, $db->db_del(1) == 0 ;
744 ok 207, ($length, $joined) = joiner($db, "|") ;
745 ok 208, $length == 2 ;
746 ok 209, $joined eq "abc|ghi";
759 ok 210, my $db = tie @array, 'BerkeleyDB::Recno',
768 ok 211, $db->db_put($k, "fred", DB_APPEND) == 0 ;
769 ok 212, $k == 4 ;
782 ok 213, tie @array, 'BerkeleyDB::Recno', -Source => $Dfile2 ,
792 ok 214, $x eq "abc\ndef\n\nghi\n" ;
802 ok 215, tie @array, 'BerkeleyDB::Recno',
814 ok 216, $x eq "abc-def--ghi-";
824 ok 217, tie @array, 'BerkeleyDB::Recno', -ArrayBase => 0,
835 ok 218, $x eq "abc def ghi " ;
845 ok 219, tie @array, 'BerkeleyDB::Recno',
858 ok 220, $x eq "abc--def-------ghi--" ;
866 ok 221, $db = tie @array, 'BerkeleyDB::Recno',
874 ok 222, $array[0] eq "first" ;
875 ok 223, $FA ? pop @array : $db->pop() eq "first" ;
887 ok 224, $db = tie @array, 'BerkeleyDB::Recno',
895 ok 225, $array[0] eq "first" ;
896 ok 226, ($FA ? shift @array : $db->shift()) eq "first" ;