[dbsrgits/DBIx-Class.git] / t / run / 30join_torture.tl

sub run_tests {
my $schema = shift;

plan tests => 2;

my $rs1 = $schema->resultset("Artist")->search({ 'tags.tag' => 'Blue' }, { join => {'cds' => 'tracks'}, prefetch => {'cds' => 'tags'} });
my @artists = $rs1->all;
cmp_ok(@artists, '==', 1, "Two artists returned");

my $rs2 = $rs1->search({ artistid => '1' }, { join => {'cds' => {'cd_to_producer' => 'producer'} } });
my $rs3 = $rs2->search_related('cds')->search({'cds.title' => 'Forkful of bees'});
cmp_ok($rs3->count, '==', 3, "Three artists returned");

}
1;
Commit	Line	Data
1e9e7f58	1	sub run_tests {
	2	my $schema = shift;
	3
	4	plan tests => 2;
	5
	6	my $rs1 = $schema->resultset("Artist")->search({ 'tags.tag' => 'Blue' }, { join => {'cds' => 'tracks'}, prefetch => {'cds' => 'tags'} });
	7	my @artists = $rs1->all;
	8	cmp_ok(@artists, '==', 1, "Two artists returned");
	9
	10	my $rs2 = $rs1->search({ artistid => '1' }, { join => {'cds' => {'cd_to_producer' => 'producer'} } });
	11	my $rs3 = $rs2->search_related('cds')->search({'cds.title' => 'Forkful of bees'});
	12	cmp_ok($rs3->count, '==', 3, "Three artists returned");
	13
	14	}
	15	1;