This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/speed.t: increase timeout
authorDavid Mitchell <davem@iabyn.com>
Tue, 5 Nov 2019 11:43:57 +0000 (11:43 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 5 Nov 2019 11:43:57 +0000 (11:43 +0000)
Test 58 is supposed to finish in milliseconds, or take 10s of seconds
if it hits the bug. It currently tests for <= 1s and is failing
occasionally in smokes. Increase the timeout to 2s and see if the issue
goes away. Also add a diag() to display the elapsed time on failure.

t/re/speed.t

index 9a57de1..67a8cd8 100644 (file)
@@ -153,7 +153,8 @@ PROG
         my $substr= substr( $str, 1 );
         1 while $substr=~m/0/g;
         $elapsed += time;
-        ok( $elapsed <= 1, "should not COW on long string with substr and m//g");
+        ok( $elapsed <= 2, "should not COW on long string with substr and m//g")
+            or diag "elapsed=$elapsed";
     }
 
     # [perl #133185] Infinite loop