This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Storable: Fix t/huge.t PERL_TEST_MEMORY diagnostic messages
[perl5.git] / dist / Storable / t / huge.t
index 3e36d9b..09b173e 100644 (file)
@@ -58,12 +58,12 @@ my @cases = (
 # virtual memory. On darwin it is evtl killed.
 if ($Config{ptrsize} > 4 and !$has_too_many) {
     # needs 20-55G virtual memory, 4.6M heap and several minutes on a fast machine 
-    if ($ENV{PERL_TEST_MEMORY} >= 8) {
+    if ($ENV{PERL_TEST_MEMORY} >= 55) {
         push @cases,
           [ 'huge array',
             sub { my @x; $x[$huge] = undef; \@x } ];
     } else {
-        diag "skip huge array, need PERL_TEST_MEMORY >= 8";
+        diag "skip huge array, need PERL_TEST_MEMORY >= 55";
     }
 }
 
@@ -72,13 +72,13 @@ if ($Config{ptrsize} > 4 and !$has_too_many) {
 # Unfortunately even older 32bit perls do allow this.
 if (!$has_too_many) {
     # needs >90G virtual mem, and is evtl. killed
-    if ($ENV{PERL_TEST_MEMORY} >= 16) {
+    if ($ENV{PERL_TEST_MEMORY} >= 96) {
         # number of keys >I32. impossible to handle with perl5, but Storable can.
         push @cases,
           ['huge hash',
            sub { my %x = (0 .. $huge); \%x } ];
     } else {
-        diag "skip huge hash, need PERL_TEST_MEMORY >= 16";
+        diag "skip huge hash, need PERL_TEST_MEMORY >= 96";
     }
 }