Merged with master and am ready to merge back
[dbsrgits/DBM-Deep.git] / t / 29_largedata.t
1 use strict;
2 use warnings FATAL => 'all';
3
4 use Test::More;
5 use t::common qw( new_dbm );
6
7 use_ok( 'DBM::Deep' );
8
9 my $dbm_factory = new_dbm();
10 while ( my $dbm_maker = $dbm_factory->() ) {
11     my $db = $dbm_maker->();
12
13     my $val1 = "a" x 6000;
14
15     $db->{foo} = $val1;
16     is( $db->{foo}, $val1, "6000 char value stored and retrieved" );
17
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 }
24
25 done_testing;