This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/pat.t: Fix skip count for limited mem platforms
authorKarl Williamson <khw@cpan.org>
Fri, 6 Dec 2019 00:03:43 +0000 (17:03 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 14 Dec 2019 20:22:56 +0000 (13:22 -0700)
And rearrange so is easier to see the correct value.

t/re/pat.t

index 338bf8d..b03749e 100644 (file)
@@ -356,9 +356,11 @@ sub run_tests {
   SKIP:
     {   # Long Monsters
 
-        skip('limited memory', 20) if $ENV{'PERL_SKIP_BIG_MEM_TESTS'};
+        my @trials = (125, 140, 250, 270, 300000, 30);
 
-        for my $l (125, 140, 250, 270, 300000, 30) { # Ordered to free memory
+        skip('limited memory', @trials * 4) if $ENV{'PERL_SKIP_BIG_MEM_TESTS'};
+
+        for my $l (@trials) { # Ordered to free memory
             my $a = 'a' x $l;
            my $message = "Long monster, length = $l";
            like("ba$a=", qr/a$a=/, $message);
@@ -372,10 +374,6 @@ sub run_tests {
   SKIP:
     {   # 20000 nodes, each taking 3 words per string, and 1 per branch
 
-        skip('limited memory', 20) if $ENV{'PERL_SKIP_BIG_MEM_TESTS'};
-
-        my $long_constant_len = join '|', 12120 .. 32645;
-        my $long_var_len = join '|', 8120 .. 28645;
         my %ans = ( 'ax13876y25677lbc' => 1,
                     'ax13876y25677mcb' => 0, # not b.
                     'ax13876y35677nbc' => 0, # Num too big
@@ -386,6 +384,11 @@ sub run_tests {
                     'ax13876y25677y21378y21378y21378kbc' => 0, # 5 runs
                   );
 
+        skip('limited memory', 2 * scalar keys %ans) if $ENV{'PERL_SKIP_BIG_MEM_TESTS'};
+
+        my $long_constant_len = join '|', 12120 .. 32645;
+        my $long_var_len = join '|', 8120 .. 28645;
+
         for (keys %ans) {
            my $message = "20000 nodes, const-len '$_'";
             ok !($ans{$_} xor /a(?=([yx]($long_constant_len)){2,4}[k-o]).*b./o), $message;