[dbsrgits/DBIx-Class.git] / t / prefetch / relationship_where_attr.t

use strict;
use warnings;

use Test::More;
use lib qw(t/lib);
use DBICTest;
my $schema = DBICTest->init_schema();

{
  my $artist_with_year2001_cds = $schema->resultset('Artist')->find(1);
  is $artist_with_year2001_cds->year2001_cds->count, 1, 'artist has one cd from 2001 without prefetching';
}

{
  my $artist_with_year2001_cds = $schema->resultset('Artist')->find(1, { prefetch => 'year2001_cds' });
  is $artist_with_year2001_cds->year2001_cds->count, 1, 'artist has one cd from 2001 with prefetching';
}

done_testing;
Commit	Line	Data
fd2c0754	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7	my $schema = DBICTest->init_schema();
	8
	9	{
	10	my $artist_with_year2001_cds = $schema->resultset('Artist')->find(1);
	11	is $artist_with_year2001_cds->year2001_cds->count, 1, 'artist has one cd from 2001 without prefetching';
	12	}
	13
	14	{
	15	my $artist_with_year2001_cds = $schema->resultset('Artist')->find(1, { prefetch => 'year2001_cds' });
	16	is $artist_with_year2001_cds->year2001_cds->count, 1, 'artist has one cd from 2001 with prefetching';
	17	}
	18
	19	done_testing;