X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F30dbicplain.t;h=f85328650552ad0ef7f83333649984382c2f6955;hb=bbafcf262b74716a37f4265512ba5c1ecd92e15b;hp=b0546b3af3fcd8da944f531fb3586661f456e7e7;hpb=50041f3c86fb362e7ed38369801fbbfe6ee8b2b1;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/30dbicplain.t b/t/30dbicplain.t
index b0546b3..f853286 100644
--- a/t/30dbicplain.t
+++ b/t/30dbicplain.t
@@ -4,11 +4,18 @@ use strict;
 use warnings;
 use Test::More;
 
-eval 'use Catalyst::Model::DBIC::Plain; 1'
-  or plan skip_all => 'Install Catalyst::Model::DBIC::Plain to run this test';
-plan tests => 1;
-
 use lib qw(t/lib);
-use DBICTest::Plain;
 
+plan tests => 3;
+
+my @warnings;
+
+{
+  local $SIG{__WARN__} = sub { push(@warnings, $_[0]); };
+  require DBICTest::Plain;
+}
+
+like($warnings[0], qr/compose_connection deprecated as of 0\.08000/,
+      'deprecation warning emitted ok');
+cmp_ok(@warnings, '==', 1, 'no unexpected warnings');
 cmp_ok(DBICTest::Plain->resultset('Test')->count, '>', 0, 'count is valid');