X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F30dbicplain.t;h=736380eca6f29f87b559937699cadfefbfbdb695;hb=0e773352;hp=944dbc7879fcb0b574c560be61e3ac9a9f92403a;hpb=cd67f809f8e6bff1d3a7df356fa7dc8763f6edbf;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/30dbicplain.t b/t/30dbicplain.t
index 944dbc7..736380e 100644
--- a/t/30dbicplain.t
+++ b/t/30dbicplain.t
@@ -1,13 +1,18 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 use Test::More;
+use Test::Warn;
 
 use lib qw(t/lib);
-eval 'use DBICTest::Plain; 1'
-  or plan skip_all => 'Install Catalyst::Model::DBIC::Plain to run this test';
 
-plan tests => 1;
+warnings_like { require DBICTest::Plain }
+  [
+    qr/compose_connection deprecated as of 0\.08000/,
+    qr/\QDBIx::Class::ResultSetProxy is DEPRECATED/,
+  ],
+  'no unexpected warnings'
+;
 
 cmp_ok(DBICTest::Plain->resultset('Test')->count, '>', 0, 'count is valid');
+
+done_testing;
\ No newline at end of file