This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/re/speed.t: adjust watchdog timeout
authorDavid Mitchell <davem@iabyn.com>
Tue, 23 Sep 2014 09:18:05 +0000 (10:18 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 23 Sep 2014 09:19:39 +0000 (10:19 +0100)
Thus is based on measuring it on a raspberry pi, which is about the
slowest thing on earth.

t/re/speed.t

index 0922a95..360d889 100644 (file)
@@ -42,7 +42,7 @@ run_tests() unless caller;
 sub run_tests {
 
 
-    watchdog(40 * (($::running_as_thread && $::running_as_thread) ? 2 : 1));
+    watchdog(($::running_as_thread && $::running_as_thread) ? 50 : 75);
 
     {
         # [perl #120446]