Import BSDDB 4.7.25 (as of svn r89086)

2017-09-04 13:40:25 -05:00
parent 4b29e0458f
commit 8f590873d0
4781 changed files with 2241032 additions and 6 deletions
--- a/perl/BerkeleyDB/t/db-3.2.t
+++ b/perl/BerkeleyDB/t/db-3.2.t
@@ -0,0 +1,59 @@
+#!./perl -w
+
+# ID: %I%, %G%   
+
+use strict ;
+
+use lib 't' ;
+use BerkeleyDB; 
+use util ;
+
+BEGIN
+{
+    if ($BerkeleyDB::db_version < 3.2) {
+        print "1..0 # Skip: this needs Berkeley DB 3.2.x or better\n" ;
+        exit 0 ;
+    }
+}     
+
+print "1..6\n";
+
+
+my $Dfile = "dbhash.tmp";
+my $Dfile2 = "dbhash2.tmp";
+my $Dfile3 = "dbhash3.tmp";
+unlink $Dfile;
+
+umask(0) ;
+
+
+
+{
+    # set_q_extentsize
+
+    ok 1, 1 ;
+}
+
+{
+    # env->set_flags
+
+    my $home = "./fred" ;
+    ok 2, my $lexD = new LexDir($home) ;
+    ok 3, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
+                                         -Flags => DB_CREATE ,
+                                         -SetFlags => DB_NOMMAP ;
+ 
+    undef $env ;                      
+}
+
+{
+    # env->set_flags
+
+    my $home = "./fred" ;
+    ok 4, my $lexD = new LexDir($home) ;
+    ok 5, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
+                                         -Flags => DB_CREATE ;
+    ok 6, ! $env->set_flags(DB_NOMMAP, 1);
+ 
+    undef $env ;                      
+}