Replicated - fixup types and namespace::clean

[dbsrgits/DBIx-Class.git] / t / 89inflate_datetime.t

diff --git a/t/89inflate_datetime.t b/t/89inflate_datetime.t
index 91bbd2a..f3c0e01 100644 (file)
--- a/t/89inflate_datetime.t
+++ b/t/89inflate_datetime.t
@@ -5,7 +5,10 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
-DBICTest::Schema->load_classes('EventTZDeprecated');
+{
+  local $SIG{__WARN__} = sub { warn @_ if $_[0] !~ /extra \=\> .+? has been deprecated/ };
+  DBICTest::Schema->load_classes('EventTZDeprecated');
+}
 
 my $schema = DBICTest->init_schema();