Reduce duplicate ->result_source calls where sensible
[dbsrgits/DBIx-Class.git] / xt / old_envvars.t
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;