X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F89inflate_datetime.t;h=f3c0e01aae4d93ea2fe6d3d558520f35b3c9bcc2;hb=41916570b3a93b05746e23b73c9a9b5005bc0d2e;hp=91bbd2a1d5982e695e5eae5ed28967acdc1697eb;hpb=92ed069505f7c50adc6910ddf7e230f80acd5db1;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/89inflate_datetime.t b/t/89inflate_datetime.t
index 91bbd2a..f3c0e01 100644
--- 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();