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;