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
|
use strict ;
use lib 't' ;
use Test::More;
use BerkeleyDB;
use util;
plan(skip_all => "Sequence needs Berkeley DB 4.3.x or better\n" )
if $BerkeleyDB::db_version < 4.3;
plan tests => 13;
{
my $home = "./fred7" ;
ok my $lexD = new LexDir($home) ;
my $Dfile = "$home/f" ;
my $lex = new LexFile $Dfile;
umask(0) ;
my $env = new BerkeleyDB::Env -Home => $home, @StdErrFile,
-Flags => DB_CREATE|DB_INIT_MPOOL;
isa_ok($env, "BerkeleyDB::Env");
my $db = BerkeleyDB::Btree->new(
Env => $env,
-Filename => $Dfile,
-Flags => DB_CREATE
);
my $seq = $db->db_create_sequence();
isa_ok($seq, "BerkeleyDB::Sequence");
is int $seq->set_cachesize(42), 0, "set_cachesize";
my $key = "test sequence";
is int $seq->open($key), DB_NOTFOUND, "opened with no CREATE";
is int $seq->open($key, DB_CREATE), 0, "opened";
my $gotcs;
is int $seq->get_cachesize($gotcs), 0;
is $gotcs, 42;
# First sequence should be 0
my $val;
is int $seq->get($val), 0, "get";
is length($val), 8, "64 bts == 8 bytes";
my $gotkey ='';
is int $seq->get_key($gotkey), 0, "get_key";
is $gotkey, $key;
is int $seq->close(), 0, "close";
}
|
