Commit | Line | Data |
a21f2d90 |
1 | use strict; |
2 | |
3 | use Test::More tests => 3; |
4 | use File::Temp qw( tempfile ); |
5 | |
6 | use_ok( 'DBM::Deep' ); |
7 | |
8 | my ($fh, $filename) = tempfile( 'tmpXXXX', UNLINK => 1 ); |
9 | my $db = DBM::Deep->new({ |
10 | file => $filename, |
11 | autoflush => 1, |
12 | }); |
13 | |
14 | $db->{foo} = 'abcd'; |
15 | |
16 | my $s1 = -s $filename; |
17 | |
18 | delete $db->{foo}; |
19 | |
20 | my $s2 = -s $filename; |
21 | |
22 | is( $s2, $s1, "delete doesn't recover freespace" ); |
23 | |
24 | $db->{bar} = 'a'; |
25 | |
26 | my $s3 = -s $filename; |
27 | |
28 | TODO: { |
29 | local $TODO = "Freespace manager doesn't work yet"; |
30 | is( $s3, $s1, "Freespace is reused" ); |
31 | } |