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