t/90join_torture.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest;
   7
   8 my $schema = DBICTest->init_schema();
   9
  10 plan tests => 4;
  11
  12 my $rs1 = $schema->resultset("Artist")->search({ 'tags.tag' => 'Blue' }, { join => {'cds' => 'tracks'}, prefetch => {'cds' => 'tags'} });
  13 my @artists = $rs1->all;
  14 cmp_ok(@artists, '==', 1, "Two artists returned");
  15
  16 my $rs2 = $rs1->search({ artistid => '1' }, { join => {'cds' => {'cd_to_producer' => 'producer'} } });
  17 my $rs3 = $rs2->search_related('cds')->search({'cds.title' => 'Forkful of bees'});
  18 cmp_ok($rs3->count, '==', 3, "Three artists returned");
  19
  20 my $rs4 = $schema->resultset("CD")->search({ 'artist.artistid' => '1' }, { join => ['tracks', 'artist'], prefetch => 'artist' });
  21 my @rs4_results = $rs4->all;
  22
  23
  24 is($rs4_results[0]->cdid, 1, "correct artist returned");
  25
  26 my $rs5 = $rs4->search({'tracks.title' => 'Sticky Honey'});
  27 is($rs5->count, 1, "search without using previous joins okay");
  28
  29 1;