1#!./perl -w 2 3# ID: %I%, %G% 4 5use strict ; 6 7use lib 't' ; 8use BerkeleyDB; 9use util ; 10 11BEGIN 12{ 13 if ($BerkeleyDB::db_version < 3.2) { 14 print "1..0 # Skip: this needs Berkeley DB 3.2.x or better\n" ; 15 exit 0 ; 16 } 17} 18 19print "1..6\n"; 20 21 22my $Dfile = "dbhash.tmp"; 23my $Dfile2 = "dbhash2.tmp"; 24my $Dfile3 = "dbhash3.tmp"; 25unlink $Dfile; 26 27umask(0) ; 28 29 30 31{ 32 # set_q_extentsize 33 34 ok 1, 1 ; 35} 36 37{ 38 # env->set_flags 39 40 my $home = "./fred" ; 41 ok 2, my $lexD = new LexDir($home) ; 42 ok 3, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile, 43 -Flags => DB_CREATE , 44 -SetFlags => DB_NOMMAP ; 45 46 undef $env ; 47} 48 49{ 50 # env->set_flags 51 52 my $home = "./fred" ; 53 ok 4, my $lexD = new LexDir($home) ; 54 ok 5, my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile, 55 -Flags => DB_CREATE ; 56 ok 6, ! $env->set_flags(DB_NOMMAP, 1); 57 58 undef $env ; 59} 60