[Bast-commits] r8213 - branches/DBIx-Class-Schema-Loader/current/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-01-01 10:55:01 +0000 (Fri, 01 Jan 2010)
New Revision: 8213

Modified:
   branches/DBIx-Class-Schema-Loader/current/t/40overwrite_modifications.t
Log:
silence warnings from 40overwrite_modifications.t

Modified: branches/DBIx-Class-Schema-Loader/current/t/40overwrite_modifications.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/t/40overwrite_modifications.t	2010-01-01 04:47:11 UTC (rev 8212)
+++ branches/DBIx-Class-Schema-Loader/current/t/40overwrite_modifications.t	2010-01-01 10:55:01 UTC (rev 8213)
@@ -46,6 +46,10 @@
     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,
 						   @_,