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/cds.t
+++ b/perl/BerkeleyDB/t/cds.t
@@ -0,0 +1,74 @@
+#!./perl -w
+
+# Tests for Concurrent Data Store mode
+
+use strict ;
+use lib 't' ;
+
+use BerkeleyDB; 
+use util ;
+
+BEGIN
+{
+    if ($BerkeleyDB::db_version < 2) {
+        print "1..0 # Skip: this needs Berkeley DB 2.x.x or better\n" ;
+        exit 0 ;
+    }
+}
+
+
+
+print "1..12\n";
+
+my $Dfile = "dbhash.tmp";
+unlink $Dfile;
+
+umask(0) ;
+
+{
+    # Error case -- env not opened in CDS mode
+
+    my $lex = new LexFile $Dfile ;
+
+    my $home = "./fred" ;
+    ok 1, my $lexD = new LexDir($home) ;
+
+    ok 2, my $env = new BerkeleyDB::Env -Flags => DB_CREATE|DB_INIT_MPOOL,
+    					 -Home => $home, @StdErrFile ;
+
+    ok 3, my $db = new BerkeleyDB::Btree -Filename => $Dfile, 
+				    -Env      => $env,
+				    -Flags    => DB_CREATE ;
+
+    ok 4, ! $env->cds_enabled() ;
+    ok 5, ! $db->cds_enabled() ;
+
+    eval { $db->cds_lock() };
+    ok 6, $@ =~ /CDS not enabled for this database/;
+
+    undef $db;
+    undef $env ;
+}
+
+{
+    my $lex = new LexFile $Dfile ;
+
+    my $home = "./fred" ;
+    ok 7, my $lexD = new LexDir($home) ;
+
+    ok 8, my $env = new BerkeleyDB::Env -Flags => DB_INIT_CDB|DB_CREATE|DB_INIT_MPOOL,
+    					 -Home => $home, @StdErrFile ;
+
+    ok 9, my $db = new BerkeleyDB::Btree -Filename => $Dfile, 
+				    -Env      => $env,
+				    -Flags    => DB_CREATE ;
+
+    ok 10,   $env->cds_enabled() ;
+    ok 11,   $db->cds_enabled() ;
+
+    my $cds = $db->cds_lock() ;
+    ok 12, $cds ;
+
+    undef $db;
+    undef $env ;
+}