t/run/30join_torture.tl

   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;