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

use strict;

use Test::More tests => 3;
use File::Temp qw( tempfile );
use Fcntl qw( :flock );

use_ok( 'DBM::Deep' );

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