diff options
Diffstat (limited to 'src/test/perl/TestLib.pm')
-rw-r--r-- | src/test/perl/TestLib.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index 6a738ba8b95..73db8f43406 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -45,7 +45,7 @@ our @EXPORT = qw( $windows_os ); -our ($windows_os, $tmp_check, $log_path, $test_logfile); +our ($windows_os, $timeout_default, $tmp_check, $log_path, $test_logfile); BEGIN { @@ -92,6 +92,10 @@ BEGIN require Win32API::File; Win32API::File->import(qw(createFile OsFHandleOpen CloseHandle)); } + + $timeout_default = $ENV{PG_TEST_TIMEOUT_DEFAULT}; + $timeout_default = 180 + if not defined $timeout_default or $timeout_default eq ''; } INIT |