5 use Test::More tests => 13;
7 use t::common qw( new_fh );
12 my ($fh, $filename) = new_fh();
13 my $db = DBM::Deep->new({
22 my $size = -s $filename;
24 cmp_ok( $size, '==', -s $filename, "A second overwrite doesn't change size" );
28 cmp_ok( $size, '==', -s $filename, "Deleted space isn't released" );
31 cmp_ok( $size, '==', -s $filename, "Added a new key after a delete reuses space" );
39 cmp_ok( $size, '==', -s $filename, "delete and rewrite reuses space" );
46 cmp_ok( $size, '==', -s $filename, "delete and rewrite reuses space" );
48 my $x = { foo => 'bar' };
51 delete $db->{floober};
53 ok( !exists $x->{foo}, "Deleting floober makes \$x empty (exists)" );
54 is( $x->{foo}, undef, "Deleting floober makes \$x empty (read)" );
55 is( delete $x->{foo}, undef, "Deleting floober makes \$x empty (delete)" );
57 eval { $x->{foo} = 'bar'; };
58 like( $@, qr/Cannot write to a deleted spot in DBM::Deep/, "Exception thrown when writing" );
60 cmp_ok( scalar( keys %$x ), '==', 0, "Keys returns nothing after deletion" );
64 my ($fh, $filename) = new_fh();
65 my $db = DBM::Deep->new({
71 $db->{ $_ } = undef for 1 .. 4;
72 delete $db->{ $_ } for 1 .. 4;
73 cmp_ok( keys %{ $db }, '==', 0, "We added and removed 4 keys" );
75 # So far, we've written 4 keys. Let's write 13 more keys. This should -not-
76 # trigger a reindex. This requires knowing how much space is taken. Good thing
77 # we wrote this dreck ...
78 my $size = -s $filename;
80 my $data_sector_size = $db->_engine->data_sector_size;
81 my $expected = $size + 9 * ( 2 * $data_sector_size );
83 $db->{ $_ } = undef for 5 .. 17;
85 cmp_ok( $expected, '==', -s $filename, "No reindexing after deletion" );