5 use Test::More tests => 2;
10 my $db = DBM::Deep->new(
15 die "ERROR: " . $db->error();
17 $db->{key1} = "value1";
18 $db->{key2} = "value2";
19 my $before = (stat($db->fh()))[7];
23 # set pack to 2-byte (16-bit) words
25 DBM::Deep::set_pack(2, 'S');
33 die "ERROR: " . $db->error();
35 $db->{key1} = "value1";
36 $db->{key2} = "value2";
37 my $after = (stat($db->fh()))[7];
40 ok( $after < $before );