5 use Test::More tests => 4;
7 use t::common qw( new_fh );
11 my ($fh, $filename) = new_fh();
12 my $db = DBM::Deep->new( $filename );
17 my $size = -s $filename;
19 cmp_ok( $size, '==', -s $filename, "A second overwrite doesn't change size" );
23 cmp_ok( $size, '==', -s $filename, "Deleted space isn't released" );
27 cmp_ok( $size, '==', -s $filename, "Added a new key after a delete reuses space" );