5 use Test::More tests => 4;
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();
26 my $db = DBM::Deep->new(
32 $db->{key1} = "value1";
33 $db->{key2} = "value2";
34 $after = (stat($db->_fh()))[7];
37 # This tests the header to verify that the pack_size is really there
39 my $db = DBM::Deep->new(
43 is( $db->{key1}, 'value1', 'Can read key1' );
44 is( $db->{key2}, 'value2', 'Can read key2' );
48 cmp_ok( $after, '<', $before, "The new packsize reduced the size of the file" );