X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F29_largedata.t;fp=t%2F29_largedata.t;h=28dcd5a5f4a2f6d5edb6d5f6bdbc7f16b43e5fed;hb=24b0b7b9c405df7f75babe1e6ebd48680c9853a5;hp=ebbd3116ef32c8b87776085c7cdfd18f9634c07d;hpb=417f635b9e397a107625ab7c71b85548cdf0e32d;p=dbsrgits%2FDBM-Deep.git diff --git a/t/29_largedata.t b/t/29_largedata.t index ebbd311..28dcd5a 100644 --- a/t/29_largedata.t +++ b/t/29_largedata.t @@ -10,10 +10,10 @@ my $dbm_factory = new_dbm(); while ( my $dbm_maker = $dbm_factory->() ) { my $db = $dbm_maker->(); - my $val1 = "a" x 1000; + my $val1 = "a" x 6000; $db->{foo} = $val1; - is( $db->{foo}, $val1, "1000 char value stored and retrieved" ); + is( $db->{foo}, $val1, "6000 char value stored and retrieved" ); # delete $db->{foo}; # my $size = -s $filename;