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

use strict;
use warnings FATAL => 'all';

use Test::More;
use t::common qw( new_dbm );

use_ok( 'DBM::Deep' );

my $dbm_factory = new_dbm();
while ( my $dbm_maker = $dbm_factory->() ) {
    my $db = $dbm_maker->();

    my $val1 = "a" x 6000;

    $db->{foo} = $val1;
    is( $db->{foo}, $val1, "6000 char value stored and retrieved" );

#    delete $db->{foo};
#    my $size = -s $filename;
#    $db->{bar} = "a" x 300;
#    is( $db->{bar}, 'a' x 300, "New 256 char value is stored" );
#    cmp_ok( $size, '==', -s $filename, "Freespace is reused" );
}

done_testing;
Commit	Line	Data
2120a181	1	use strict;
0e3e3555	2	use warnings FATAL => 'all';
	3
	4	use Test::More;
	5	use t::common qw( new_dbm );
2120a181	6
	7	use_ok( 'DBM::Deep' );
	8
0e3e3555	9	my $dbm_factory = new_dbm();
	10	while ( my $dbm_maker = $dbm_factory->() ) {
	11	my $db = $dbm_maker->();
	12
24b0b7b9	13	my $val1 = "a" x 6000;
2120a181	14
0e3e3555	15	$db->{foo} = $val1;
24b0b7b9	16	is( $db->{foo}, $val1, "6000 char value stored and retrieved" );
2120a181	17
0e3e3555	18	# delete $db->{foo};
	19	# my $size = -s $filename;
	20	# $db->{bar} = "a" x 300;
	21	# is( $db->{bar}, 'a' x 300, "New 256 char value is stored" );
	22	# cmp_ok( $size, '==', -s $filename, "Freespace is reused" );
	23	}
2120a181	24
0e3e3555	25	done_testing;