Lines Matching refs:ok
42 ok 1, $@ =~ /^Encrypt parameter must be a hash reference at/;
50 ok 2, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
58 ok 3, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
66 ok 4, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
74 ok 5, $@ =~ /^\Qunknown key value(s) Fred at/;
84 ok 6, my $lexD = new LexDir($home) ;
85 ok 7, my $env = new BerkeleyDB::Env @StdErrFile,
98 ok 8, my $db = new BerkeleyDB::Hash -Filename => $Dfile,
114 ok 9, $ret == 0 ;
117 ok 10, countRecords($db) == 3 ;
122 ok 11, my $db1 = new BerkeleyDB::Hash -Filename => $Dfile,
126 ok 12, ! $db1->db_get("red", $v) ;
127 ok 13, $v eq $data{"red"},
132 ok 14, ! new BerkeleyDB::Hash -Filename => "$home/$Dfile";
134 ok 15, ! new BerkeleyDB::Env
149 ok 16, $@ =~ /^Encrypt parameter must be a hash reference at/;
157 ok 17, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
165 ok 18, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
173 ok 19, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
181 ok 20, $@ =~ /^\Qunknown key value(s) Fred at/;
192 ok 21, $@ =~ /^Encrypt parameter must be a hash reference at/;
200 ok 22, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
208 ok 23, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
216 ok 24, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
224 ok 25, $@ =~ /^\Qunknown key value(s) Fred at/;
235 ok 26, $@ =~ /^Encrypt parameter must be a hash reference at/;
243 ok 27, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
251 ok 28, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
259 ok 29, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
267 ok 30, $@ =~ /^\Qunknown key value(s) Fred at/;
278 ok 31, $@ =~ /^Encrypt parameter must be a hash reference at/;
286 ok 32, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
294 ok 33, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
302 ok 34, $@ =~ /^Must specify Password and Flags with Encrypt parameter at/;
310 ok 35, $@ =~ /^\Qunknown key value(s) Fred at/;
322 ok 36, my $db = new BerkeleyDB::Hash
341 ok 37, $ret == 0 ;
344 ok 38, countRecords($db) == 3 ;
349 ok 39, ! new BerkeleyDB::Hash -Filename => $Dfile,
354 ok 40, ! new BerkeleyDB::Hash -Filename => $Dfile,
363 ok 41, my $db1 = new BerkeleyDB::Hash -Filename => $Dfile,
372 ok 42, ! $db1->db_get("red", $v) ;
373 ok 43, $v eq $data{"red"};
375 ok 44, countRecords($db1) == 3 ;
386 ok 45, my $db = new BerkeleyDB::Btree
405 ok 46, $ret == 0 ;
408 ok 47, countRecords($db) == 3 ;
413 ok 48, ! new BerkeleyDB::Btree -Filename => $Dfile,
418 ok 49, ! new BerkeleyDB::Btree -Filename => $Dfile,
427 ok 50, my $db1 = new BerkeleyDB::Btree -Filename => $Dfile,
436 ok 51, ! $db1->db_get("red", $v) ;
437 ok 52, $v eq $data{"red"};
439 ok 53, countRecords($db1) == 3 ;
450 ok 54, my $db = new BerkeleyDB::Queue
471 ok 55, $ret == 0 ;
474 ok 56, countRecords($db) == 3 ;
479 ok 57, ! new BerkeleyDB::Queue -Filename => $Dfile,
486 ok 58, ! new BerkeleyDB::Queue -Filename => $Dfile,
496 ok 59, my $db1 = new BerkeleyDB::Queue -Filename => $Dfile,
506 ok 60, ! $db1->db_get(3, $v) ;
507 ok 61, $v eq fillout($data{3}, 5, 'x');
509 ok 62, countRecords($db1) == 3 ;
520 ok 63, my $db = new BerkeleyDB::Recno
539 ok 64, $ret == 0 ;
542 ok 65, countRecords($db) == 3 ;
547 ok 66, ! new BerkeleyDB::Recno -Filename => $Dfile,
552 ok 67, ! new BerkeleyDB::Recno -Filename => $Dfile,
561 ok 68, my $db1 = new BerkeleyDB::Recno -Filename => $Dfile,
570 ok 69, ! $db1->db_get(3, $v) ;
571 ok 70, $v eq $data{3};
573 ok 71, countRecords($db1) == 3 ;
584 ok 72, my $db = new BerkeleyDB::Hash
603 ok 73, $ret == 0 ;
606 ok 74, countRecords($db) == 3 ;
611 ok 75, ! new BerkeleyDB::Unknown -Filename => $Dfile,
616 ok 76, ! new BerkeleyDB::Unknown -Filename => $Dfile,
625 ok 77, my $db1 = new BerkeleyDB::Unknown -Filename => $Dfile,
634 ok 78, ! $db1->db_get("red", $v) ;
635 ok 79, $v eq $data{"red"};
637 ok 80, countRecords($db1) == 3 ;