-#!/usr/bin/perl
-
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');