t/29_freespace_manager.t

   1 use strict;
   2
   3 use Test::More tests => 3;
   4 use t::common qw( new_fh );
   5
   6 use_ok( 'DBM::Deep' );
   7
   8 my ($fh, $filename) = new_fh();
   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 }