From: David Mitchell <davem@iabyn.com>
Date: Tue, 5 Nov 2019 11:43:57 +0000 (+0000)
Subject: t/re/speed.t: increase timeout
X-Git-Tag: v5.31.6~168
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/708d39051b12740012075da90fafa9354dd76787

t/re/speed.t: increase timeout

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.
---

diff --git a/t/re/speed.t b/t/re/speed.t
index 9a57de1..67a8cd8 100644
--- a/t/re/speed.t
+++ b/t/re/speed.t
@@ -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