5 use Test::More tests => 2;
6 use t::common qw( new_fh );
13 my ($fh, $filename) = new_fh();
14 my $db = DBM::Deep->new(
18 $db->{key1} = "value1";
19 $db->{key2} = "value2";
20 $before = (stat($db->_fh()))[7];
24 my ($fh, $filename) = new_fh();
25 my $db = DBM::Deep->new(
31 # set pack to 2-byte (16-bit) words
33 $db->_get_self->{engine}->set_pack( 2, 'S' );
35 $db->{key1} = "value1";
36 $db->{key2} = "value2";
37 $after = (stat($db->_fh()))[7];
40 ok( $after < $before, "The new packsize reduced the size of the file" );