diff options
author | Karl Williamson <khw@cpan.org> | 2020-05-24 12:48:35 -0600 |
---|---|---|
committer | Sawyer X <xsawyerx@cpan.org> | 2020-05-27 11:09:32 +0300 |
commit | 900fde54b03c8c8b6fbbb129e343df7887c25d3f (patch) | |
tree | db54c5a3d37cfaff009288053eb5e1e73201388c | |
parent | 3b099a7fe6ef576ff433ea8cb60431d2d3dfcc2b (diff) | |
download | perl-900fde54b03c8c8b6fbbb129e343df7887c25d3f.tar.gz |
t/re/speed.t: Adapt for sl-o-o-w boxes
On some slow smokers, this test times out. There is an existing
mechanism which allows a smoker to compensate for this, but which was
not being used by this test file. Use it.
-rw-r--r-- | t/re/speed.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/re/speed.t b/t/re/speed.t index 67a8cd8116..e2d01ab3ce 100644 --- a/t/re/speed.t +++ b/t/re/speed.t @@ -42,7 +42,9 @@ run_tests() unless caller; sub run_tests { - watchdog(($::running_as_thread && $::running_as_thread) ? 150 : 225); + watchdog(($ENV{PERL_TEST_TIME_OUT_FACTOR} || 1) + * (($::running_as_thread && $::running_as_thread) + ? 150 : 225)); { # [perl #120446] |