X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F20invocations.t;h=3c59d9d8e321b6df95e5217fb3e106f089700ed1;hb=fdd8ff1628c48e9c540958039b5bc1f490af8d88;hp=c8188429c9b65c706029d1515047c1bcc74d8d12;hpb=fbcfebddf240beb61299418a459dd7627de7da09;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/20invocations.t b/t/20invocations.t
index c818842..3c59d9d 100644
--- a/t/20invocations.t
+++ b/t/20invocations.t
@@ -3,6 +3,10 @@ use Test::More;
 use lib qw(t/lib);
 use make_dbictest_db;
 
+local $SIG{__WARN__} = sub {
+    warn $_[0] unless $_[0] =~ /really_erase_my_files/
+};
+
 # Takes a $schema as input, runs 4 basic tests
 sub test_schema {
     my ($testname, $schema) = @_;