[dbsrgits/DBIx-Class.git] / t / 40compose_connection.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;
use Test::More;
use Test::Warn;


use DBICTest;

warnings_exist { DBICTest->init_schema( compose_connection => 1, sqlite_use_file => 1 ) }
  [
    qr/compose_connection deprecated as of 0\.08000/,
    qr/\QDBIx::Class::ResultSetProxy is DEPRECATED/,
  ],
  'got expected deprecation warnings'
;

cmp_ok(DBICTest->resultset('Artist')->count, '>', 0, 'count is valid');

done_testing;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
e42bbd7f	3	use strict;
	4	use warnings;
	5	use Test::More;
	6	use Test::Warn;
	7
c0329273	8
e42bbd7f	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;