t/30dbicplain.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use Test::Warn;
   5
   6 use lib qw(t/lib);
   7
   8 warnings_like { require DBICTest::Plain }
   9   [
  10     qr/compose_connection deprecated as of 0\.08000/,
  11     qr/\QDBIx::Class::ResultSetProxy is DEPRECATED/,
  12   ],
  13   'no unexpected warnings'
  14 ;
  15
  16 cmp_ok(DBICTest::Plain->resultset('Test')->count, '>', 0, 'count is valid');
  17
  18 done_testing;