t/40compose_connection.t

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