silence warnings from 40overwrite_modifications.t

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 40overwrite_modifications.t

diff --git a/t/40overwrite_modifications.t b/t/40overwrite_modifications.t
index 5863974..fa079f5 100644 (file)
--- a/t/40overwrite_modifications.t
+++ b/t/40overwrite_modifications.t
@@ -46,6 +46,10 @@ sub dump_schema {
     DBICTest::Schema::Overwrite_modifications->_loader_invoked(0)
          if @DBICTest::Schema::Overwrite_modifications::ISA;
 
+    local $SIG{__WARN__} = sub {
+        warn @_
+            unless $_[0] =~ /^Dumping manual schema|^Schema dump completed/;
+    };
     DBIx::Class::Schema::Loader::make_schema_at( 'DBICTest::Schema::Overwrite_modifications',
                                                 { dump_directory => $tempdir,
                                                   @_,