summaryrefslogtreecommitdiff
path: root/t/re/pat_advanced.t
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-05-24 13:04:47 -0600
committerSawyer X <xsawyerx@cpan.org>2020-05-27 11:09:32 +0300
commit3b099a7fe6ef576ff433ea8cb60431d2d3dfcc2b (patch)
treed6e38bd8ba6b7a5860574c6d70472b1a1310fb71 /t/re/pat_advanced.t
parent77b414f73a1cb5b2bcaafeb281ec8afe6ff7c671 (diff)
downloadperl-3b099a7fe6ef576ff433ea8cb60431d2d3dfcc2b.tar.gz
t/re/pat_advanced.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.
Diffstat (limited to 't/re/pat_advanced.t')
-rw-r--r--t/re/pat_advanced.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 21bdb8ca15..b5c7f1cab4 100644
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -2390,7 +2390,7 @@ EOF
TODO: { # Was looping
todo_skip('Triggers thread clone SEGV. See #86550')
if $::running_as_thread && $::running_as_thread;
- watchdog(10); # Use a bigger value for busy systems
+ watchdog(10 * ($ENV{PERL_TEST_TIME_OUT_FACTOR} || 1));
like("\x{00DF}", qr/[\x{1E9E}_]*/i, "\"\\x{00DF}\" =~ /[\\x{1E9E}_]*/i was looping");
}