diff options
| author | Noah Misch <noah@leadboat.com> | 2022-03-04 18:53:13 -0800 |
|---|---|---|
| committer | Noah Misch <noah@leadboat.com> | 2022-03-04 18:53:17 -0800 |
| commit | 29ec94efd08b0b3f863db13f5978cdeab4f1c8dc (patch) | |
| tree | 7c3794291cf7c2a1bf6f38a775e4d8ec767186cf /src/test/perl/TestLib.pm | |
| parent | 59392746cb3fd3c23b5f7bfa9568a71705ca30d1 (diff) | |
Introduce PG_TEST_TIMEOUT_DEFAULT for TAP suite non-elapsing timeouts.
Slow hosts may avoid load-induced, spurious failures by setting
environment variable PG_TEST_TIMEOUT_DEFAULT to some number of seconds
greater than 180. Developers may see faster failures by setting that
environment variable to some lesser number of seconds. In tests, write
$PostgreSQL::Test::Utils::timeout_default wherever the convention has
been to write 180. This change raises the default for some briefer
timeouts. Back-patch to v10 (all supported versions).
Discussion: https://postgr.es/m/20220218052842.GA3627003@rfd.leadboat.com
Diffstat (limited to 'src/test/perl/TestLib.pm')
| -rw-r--r-- | src/test/perl/TestLib.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index 57301514577..8d65fdc36a4 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -86,7 +86,8 @@ our @EXPORT = qw( $use_unix_sockets ); -our ($windows_os, $use_unix_sockets, $tmp_check, $log_path, $test_logfile); +our ($windows_os, $use_unix_sockets, $timeout_default, + $tmp_check, $log_path, $test_logfile); BEGIN { @@ -144,6 +145,10 @@ BEGIN # supported, but it can be overridden if desired. $use_unix_sockets = (!$windows_os || defined $ENV{PG_TEST_USE_UNIX_SOCKETS}); + + $timeout_default = $ENV{PG_TEST_TIMEOUT_DEFAULT}; + $timeout_default = 180 + if not defined $timeout_default or $timeout_default eq ''; } =pod |