[dbsrgits/DBIx-Class.git] / t / 30dbicplain.t

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

use lib qw(t/lib);

plan tests => 3;

my @warnings;

{
  local $SIG{__WARN__} = sub { push(@warnings, $_[0]); };
  require DBICTest::Plain;
}

like($warnings[0], qr/compose_connection deprecated as of 0\.08000/,
      'deprecation warning emitted ok');
cmp_ok(@warnings, '==', 1, 'no unexpected warnings');
cmp_ok(DBICTest::Plain->resultset('Test')->count, '>', 0, 'count is valid');
Commit	Line	Data
50041f3c	1	use strict;
	2	use warnings;
	3	use Test::More;
	4
cd67f809	5	use lib qw(t/lib);
50041f3c	6
c55acdbc	7	plan tests => 3;
50041f3c	8
c55acdbc	9	my @warnings;
	10
	11	{
	12	local $SIG{__WARN__} = sub { push(@warnings, $_[0]); };
	13	require DBICTest::Plain;
	14	}
	15
	16	like($warnings[0], qr/compose_connection deprecated as of 0\.08000/,
	17	'deprecation warning emitted ok');
	18	cmp_ok(@warnings, '==', 1, 'no unexpected warnings');
50041f3c	19	cmp_ok(DBICTest::Plain->resultset('Test')->count, '>', 0, 'count is valid');