1#!./perl -w 2 3use strict ; 4 5 6use lib 't' ; 7 8use BerkeleyDB; 9use util ; 10 11use Test::More ; 12 13plan(skip_all => "this needs Berkeley DB 4.7.x or better\n" ) 14 if $BerkeleyDB::db_version < 4.7; 15 16plan tests => 7; 17 18my $Dfile = "dbhash.tmp"; 19 20umask(0); 21 22{ 23 my $home = "./fred" ; 24 ok my $lexD = new LexDir($home) ; 25 chdir "./fred" ; 26 ok my $env = new BerkeleyDB::Env -Flags => DB_CREATE|DB_INIT_LOG @StdErrFile; 27 28 ok $env->log_get_config( DB_LOG_AUTO_REMOVE, my $on ) == 0, "get config" ; 29 ok !$on, "config value" ; 30 31 ok $env->log_set_config( DB_LOG_AUTO_REMOVE, 1 ) == 0; 32 33 ok $env->log_get_config( DB_LOG_AUTO_REMOVE, $on ) == 0; 34 ok $on; 35 36 chdir ".." ; 37 undef $env ; 38} 39 40# test -Verbose 41# test -Flags 42# db_value_set 43