diff options
| author | Karl Williamson <khw@cpan.org> | 2017-02-20 00:46:05 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-02-20 01:07:02 -0700 |
| commit | bbea423fb8459d7672244de6ac6e9a18a07189a0 (patch) | |
| tree | 4ea6c99aecfca2e0f30ca6d285dab7f588bc6fe9 | |
| parent | 6aa905cfe4f92b6e895d3bf5a22daa52e36ceb63 (diff) | |
| download | perl-bbea423fb8459d7672244de6ac6e9a18a07189a0.tar.gz | |
re/fold_grind.t: Allow watchdog timeout to vary
If someone is running on a slow system, and they want fold_grind to
complete, they can now set an environment variable based on the relative
slowness of their system, that will be factored in to the length of the
timer.
| -rw-r--r-- | t/re/fold_grind.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/re/fold_grind.t b/t/re/fold_grind.t index bf5c9fdb99..0665517d61 100644 --- a/t/re/fold_grind.t +++ b/t/re/fold_grind.t @@ -11,7 +11,10 @@ BEGIN { if ($^O eq 'dec_osf') { skip_all("$^O cannot handle this test"); } - watchdog(5 * 60); + my $time_out_factor = $ENV{PERL_TEST_TIME_OUT_FACTOR} || 1; + $time_out_factor = 1 if $time_out_factor < 1; + + watchdog(5 * 60 * $time_out_factor); require './loc_tools.pl'; } |