Commit | Line | Data |
be21f2eb |
1 | use warnings; |
2 | use strict; |
3 | |
4 | use Test::More; |
5 | |
6 | my @defined = grep { $ENV{$_} } qw/ |
7 | DATA_DUMPER_TEST |
8 | DBICTEST_STORAGE_STRESS |
9 | DBICTEST_FORK_STRESS |
10 | DBICTEST_THREAD_STRESS |
11 | /; |
12 | |
13 | $SIG{ALRM} = sub { die "\n\nENVCHECK prompt timeout\n\n\n" }; |
14 | if (@defined) { |
15 | diag join "\n", |
16 | 'The following ENV variables used to control the test suite, ' |
17 | .'but no longer do so, please remove them from your environment', |
18 | @defined, |
19 | '', |
20 | '(press Enter to continue)', |
21 | ; |
22 | alarm(10); |
23 | <>; |
24 | alarm(0); |
25 | } |
26 | ok(1); |
27 | |
28 | done_testing; |