[dbsrgits/DBIx-Class.git] / xt / old_envvars.t

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;
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;