5 use Test::More tests => 2;
13 my $db = DBM::Deep->new(
17 $db->{key1} = "value1";
18 $db->{key2} = "value2";
19 $before = (stat($db->_fh()))[7];
24 my $db = DBM::Deep->new(
30 # set pack to 2-byte (16-bit) words
32 $db->_get_self->{engine}->set_pack( 2, 'S' );
34 $db->{key1} = "value1";
35 $db->{key2} = "value2";
36 $after = (stat($db->_fh()))[7];
39 ok( $after < $before, "The new packsize reduced the size of the file" );