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 $db->{key1} = "value1";
32 $db->{key2} = "value2";
33 $after = (stat($db->_fh()))[7];
36 ok( $after < $before, "The new packsize reduced the size of the file" );