Fix incorrect handling of $? in travis preconf script
[dbsrgits/DBIx-Class.git] / xt / old_envvars.t
CommitLineData
be21f2eb 1use warnings;
2use strict;
3
4use Test::More;
5
6my @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" };
14if (@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}
26ok(1);
27
28done_testing;