1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
#!./perl -w
use strict ;
use lib 't' ;
use BerkeleyDB;
use Test::More ;
use util ;
plan(skip_all => "this needs Berkeley DB 4.3.x or better\n" )
if $BerkeleyDB::db_version < 4.3;
plan tests => 16;
if (1)
{
# -MsgFile with a filename
my $msgfile = "./msgfile" ;
my $home = "./fred" ;
ok my $lexD = new LexDir($home) ;
my $lex = new LexFile $msgfile ;
ok my $env = new BerkeleyDB::Env( -MsgFile => $msgfile,
-Flags => DB_CREATE,
-Home => $home) ;
$env->stat_print();
ok length readFile($msgfile) > 0;
undef $env ;
}
{
# -MsgFile with a filehandle
use IO::File ;
my $msgfile = "./msgfile" ;
my $home = "./fred" ;
ok my $lexD = new LexDir($home) ;
my $lex = new LexFile $msgfile ;
my $fh = new IO::File ">$msgfile" ;
ok my $env = new BerkeleyDB::Env( -MsgFile => $fh,
-Flags => DB_CREATE,
-Home => $home) ;
is $env->stat_print(), 0;
close $fh;
ok length readFile($msgfile) > 0;
undef $env ;
}
{
# -MsgFile with a filehandle
use IO::File ;
my $msgfile = "./msgfile" ;
my $home = "./fred" ;
ok my $lexD = new LexDir($home) ;
my $lex = new LexFile $msgfile ;
my $Dfile = "db.db";
my $lex1 = new LexFile $Dfile ;
my $fh = new IO::File ">$msgfile" ;
ok my $env = new BerkeleyDB::Env( -MsgFile => $fh,
-Flags => DB_CREATE|DB_INIT_MPOOL,
-Home => $home) ;
ok my $db = new BerkeleyDB::Btree -Filename => $Dfile,
-Env => $env,
-Flags => DB_CREATE ;
is $db->stat_print(), 0;
close $fh;
ok length readFile($msgfile) > 0;
undef $db;
undef $env ;
}
{
# txn_stat_print
use IO::File ;
my $msgfile = "./msgfile" ;
my $home = "./fred" ;
ok my $lexD = new LexDir($home) ;
my $lex = new LexFile $msgfile ;
my $fh = new IO::File ">$msgfile" ;
ok my $env = new BerkeleyDB::Env( -MsgFile => $fh,
-Flags => DB_CREATE|DB_INIT_TXN,
-Home => $home) ;
is $env->txn_stat_print(), 0
or diag "$BerkeleyDB::Error";
close $fh;
ok length readFile($msgfile) > 0;
undef $env ;
}
|
