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