This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/File-Glob/t/rt131211.t: fix timing issues #2
authorDavid Mitchell <davem@iabyn.com>
Fri, 19 Apr 2019 11:38:33 +0000 (12:38 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 19 Apr 2019 11:38:33 +0000 (12:38 +0100)
Commit v5.27.8-405-gf548aeca98 from a year ago tweaked this
timing-sensitive test script to reduce false positives.
However, we're still seeing the occasional failure of test 2 in smokes,
so twaks the timing a little further.

ext/File-Glob/t/rt131211.t

index 4ac0d87..9bca70c 100644 (file)
@@ -63,7 +63,7 @@ is $count,10,
 
 SKIP: {
     skip "unstable  or too small timing", 1 unless
-            $elapsed_match >= 0.001 && $elapsed_fail >= 0.001;
+            $elapsed_match >= 0.01 && $elapsed_fail >= 0.01;
     ok $elapsed_fail <= 10 * $elapsed_match,
         "time to fail less than 10x the time to match"
         or diag("elapsed_match=$elapsed_match elapsed_fail=$elapsed_fail");