Merge branch 'master' into topic/constructor_rewrite

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

diff --git a/xt/old_envvars.t b/xt/old_envvars.t
new file mode 100644 (file)
index 0000000..8764e87
--- /dev/null
+++ b/xt/old_envvars.t
@@ -0,0 +1,28 @@
+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;