t/40compose_connection.t

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