[dbsrgits/DBM-Deep.git] / CURRENT / t / 29_freespace_manager.t

use strict;

use Test::More tests => 3;
use t::common qw( new_fh );

use_ok( 'DBM::Deep' );

my ($fh, $filename) = new_fh();
my $db = DBM::Deep->new({
    file => $filename,
    autoflush => 1,
});

$db->{foo} = 'abcd';

my $s1 = -s $filename;

delete $db->{foo};

my $s2 = -s $filename;

is( $s2, $s1, "delete doesn't recover freespace" );

$db->{bar} = 'a';

my $s3 = -s $filename;

TODO: {
    local $TODO = "Freespace manager doesn't work yet";
    is( $s3, $s1, "Freespace is reused" );
}
Commit	Line	Data
a21f2d90	1	use strict;
	2
	3	use Test::More tests => 3;
fde3db1a	4	use t::common qw( new_fh );
a21f2d90	5
	6	use_ok( 'DBM::Deep' );
	7
fde3db1a	8	my ($fh, $filename) = new_fh();
a21f2d90	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	}