5 use Test::More tests => 2;
10 my $db = DBM::Deep->new(
14 $db->{key1} = "value1";
15 $db->{key2} = "value2";
16 my $before = (stat($db->_fh()))[7];
20 # set pack to 2-byte (16-bit) words
22 DBM::Deep::set_pack(2, 'S');
29 $db->{key1} = "value1";
30 $db->{key2} = "value2";
31 my $after = (stat($db->_fh()))[7];
34 ok( $after < $before );