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 # cleanup globals so we do not trigger the leaktest
  20 for ( map { DBICTest->schema->class($_) } DBICTest->schema->sources ) {
  21   $_->class_resolver(undef);
  22   $_->resultset_instance(undef);
  23   $_->result_source_instance(undef);
  24 }
  25 {
  26   no warnings qw/redefine once/;
  27   *DBICTest::schema = sub {};
  28 }
  29
  30 done_testing;