use warnings;
use strict;
use Test::More;
my @defined = grep { $ENV{$_} } qw/
  DATA_DUMPER_TEST
  DBICTEST_STORAGE_STRESS
  DBICTEST_FORK_STRESS
  DBICTEST_THREAD_STRESS
/;
$SIG{ALRM} = sub { die "\n\nENVCHECK prompt timeout\n\n\n" };
if (@defined) {
  diag join "\n",
    'The following ENV variables used to control the test suite, '
   .'but no longer do so, please remove them from your environment',
    @defined,
    '',
    '(press Enter to continue)',
  ;
  alarm(10);
  <>;
  alarm(0);
}
ok(1);
done_testing;