Fix fatal recursion warnings (plus tests)

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

diff --git a/t/29_largedata.t b/t/29_largedata.t
index 70d67fa..16a9b32 100644 (file)
--- a/t/29_largedata.t
+++ b/t/29_largedata.t
@@ -15,10 +15,10 @@ my $db = DBM::Deep->new(
 ##
 # large keys
 ##
-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;