Lines Matching refs:DB_File
17 print "1..0 # Skip: DB_File was not built\n";
39 use DB_File;
131 my $db185mode = ($DB_File::db_version == 1 && ! $DB_File::db_185_compat) ;
132 my $null_keys_allowed = ($DB_File::db_ver < 2.004010
133 || $DB_File::db_ver >= 3.1 );
142 my $dbh = new DB_File::BTREEINFO ;
172 ok(15, $@ =~ /^DB_File::BTREEINFO::STORE - Unknown element 'fred' at/ ) ;
174 ok(16, $@ =~ /^DB_File::BTREEINFO::FETCH - Unknown element 'fred' at/ ) ;
179 ok(17, $X = tie(%h, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE )) ;
233 ok(24, $X = tie(%h,'DB_File',$Dfile, O_RDWR, 0640, $DB_BTREE)) ;
353 ok(43, $X = tie(%h, 'DB_File',$Dfile, O_RDWR, 0640, $DB_BTREE ));
475 ok(72, $Y = tie(%h, 'DB_File',undef, O_RDWR|O_CREAT, 0640, $DB_BTREE ));
486 my $bt = new DB_File::BTREEINFO ;
489 ok(74, $YY = tie(%hh, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $bt )) ;
538 my $dbh1 = new DB_File::BTREEINFO ;
543 my $dbh2 = new DB_File::BTREEINFO ;
546 my $dbh3 = new DB_File::BTREEINFO ;
551 tie(%h, 'DB_File',$Dfile1, O_RDWR|O_CREAT, 0640, $dbh1 ) or die $!;
552 tie(%g, 'DB_File',$Dfile2, O_RDWR|O_CREAT, 0640, $dbh2 ) or die $!;
553 tie(%k, 'DB_File',$Dfile3, O_RDWR|O_CREAT, 0640, $dbh3 ) or die $!;
596 ok(87, tie(%h, 'DB_File', $Dfile1, O_RDWR|O_CREAT, 0640, $DB_BTREE ) );
625 eval { tie @x, 'DB_File', $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE ; } ;
626 ok(90, $@ =~ /^DB_File can only tie an associative array to a DB_BTREE database/) ;
648 use DB_File;
649 @ISA=qw(DB_File);
650 @EXPORT = @DB_File::EXPORT ;
742 ok(101, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE ) );
839 ok(122, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE ) );
902 ok(145, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE ) );
928 use DB_File ;
942 tie %h, "DB_File", "tree", O_RDWR|O_CREAT, 0640, $DB_BTREE
981 use DB_File ;
991 tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE
1033 use DB_File ;
1043 $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE
1089 use DB_File ;
1098 $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE
1138 use DB_File ;
1147 $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE
1173 use DB_File ;
1182 $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE
1208 use DB_File ;
1225 $x = tie %h, "DB_File", $filename, O_RDWR|O_CREAT, 0640, $DB_BTREE
1277 # ok(156, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE ) );
1305 use DB_File ;
1312 tie %h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0664, $DB_BTREE
1325 use DB_File ;
1332 tie %h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0664, $DB_BTREE
1349 use DB_File ;
1355 ok(156, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE ) );
1384 my $dbh = new DB_File::BTREEINFO ;
1399 # my $dbh = new DB_File::BTREEINFO ;
1404 # ok(164, tie(%hash, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $dbh ) );
1410 # ok(165, $@ =~ /^DB_File btree_compare: recursion detected/);
1427 my $dbh1 = new DB_File::BTREEINFO ;
1430 my $dbh2 = new DB_File::BTREEINFO ;
1436 ok(166, tie(%hash1, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $dbh1 ) );
1437 ok(167, tie(%hash2, 'DB_File',$Dfile2, O_RDWR|O_CREAT, 0640, $dbh2 ) );
1463 ok(172, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE ) );
1508 ok(178, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE ) );
1561 ok(188, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE ));
1651 my $no_NULL = ($DB_File::db_ver >= 2.003016 && $DB_File::db_ver < 3.001) ;
1652 print "# db_ver $DB_File::db_ver\n";