fix tests

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / backcompat / 0.04006 / 20invocations.t

diff --git a/t/backcompat/0.04006/20invocations.t b/t/backcompat/0.04006/20invocations.t
index 1c05ca5..6060355 100644 (file)
--- a/t/backcompat/0.04006/20invocations.t
+++ b/t/backcompat/0.04006/20invocations.t
@@ -2,10 +2,13 @@ use strict;
 use Test::More;
 use lib qw(t/backcompat/0.04006/lib);
 use make_dbictest_db;
-use Test::More;
-plan skip_all => 'Backcompat tests disabled'
+
+plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
     unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
 
+local $SIG{__WARN__} = sub {
+    warn @_ unless $_[0] =~ /Dynamic schema|really_erase_my_files/;
+};
 
 # Takes a $schema as input, runs 4 basic tests
 sub test_schema {