Lines Matching refs:DB_File
17 print "1..0 # Skip: DB_File was not built\n";
23 use DB_File;
95 my $null_keys_allowed = ($DB_File::db_ver < 2.004010
96 || $DB_File::db_ver >= 3.1 );
104 my $dbh = new DB_File::HASHINFO ;
134 ok(13, $@ =~ /^DB_File::HASHINFO::STORE - Unknown element 'fred' at/ );
136 ok(14, $@ =~ /^DB_File::HASHINFO::FETCH - Unknown element 'fred' at/ );
141 ok(15, $X = tie(%h, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
196 ok(22, $X = tie(%h,'DB_File',$Dfile, O_RDWR, 0640) );
351 ok(44, tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
377 ok(47, $X = tie(%h, 'DB_File',undef, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
390 my $hi = new DB_File::HASHINFO ;
393 ok(49, tie %x, 'DB_File', $filename, O_RDWR|O_CREAT, 0640, $hi ) ;
406 eval { tie @x, 'DB_File', $filename, O_RDWR|O_CREAT, 0640, $DB_HASH ; } ;
407 ok(52, $@ =~ /^DB_File can only tie an associative array to a DB_HASH database/) ;
429 use DB_File;
430 @ISA=qw(DB_File);
431 @EXPORT = @DB_File::EXPORT ;
536 ok(63, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
649 ok(92, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
712 ok(115, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
734 use DB_File ;
738 tie %h, "DB_File", "fruit", O_RDWR|O_CREAT, 0640, $DB_HASH
779 use DB_File ;
786 tie %h, 'DB_File', $Dfile or die "Can't open file: $!\n" ;
798 use DB_File ;
805 tie %h, 'DB_File', $Dfile or die "Can't open file: $!\n" ;
821 use DB_File ;
827 ok(120, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
856 my $dbh = new DB_File::HASHINFO ;
869 # my $dbh = new DB_File::HASHINFO ;
873 # ok(127, tie(%hash, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $dbh ) );
879 # ok(128, $@ =~ /^DB_File hash callback: recursion detected/);
897 my $dbh1 = new DB_File::HASHINFO ;
900 my $dbh2 = new DB_File::HASHINFO ;
906 ok(127, tie(%hash1, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $dbh1 ) );
907 ok(128, tie(%hash2, 'DB_File',$Dfile2, O_RDWR|O_CREAT, 0640, $dbh2 ) );
935 tie %hash1, 'DB_File',$Dfile, undef;
940 tie %hash1, 'DB_File',$Dfile, O_RDWR|O_CREAT, undef;
944 tie %hash1, 'DB_File',$Dfile, undef, undef;
961 ok(136, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
1006 ok(142, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
1058 ok(152, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
1148 my $no_NULL = ($DB_File::db_ver >= 2.003016 && $DB_File::db_ver < 3.001) ;
1149 print "# db_ver $DB_File::db_ver\n";
1171 ok(162, $db = tie(%h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );