t/count/search_related.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use DBICTest;
   8
   9 my $schema = DBICTest->init_schema();
  10 my $cd_rs = $schema->resultset('CD')->search ({}, { rows => 1, order_by => 'cdid' });
  11
  12 my $track_count = $cd_rs->first->tracks->count;
  13
  14 cmp_ok ($track_count, '>', 1, 'First CD has several tracks');
  15
  16 is ($cd_rs->search_related ('tracks')->count, $track_count, 'related->count returns correct number chained off a limited rs');
  17 is (scalar ($cd_rs->search_related ('tracks')->all), $track_count, 'related->all returns correct number of objects chained off a limited rs');
  18
  19
  20 my $joined_cd_rs = $cd_rs->search ({}, {
  21   join => 'tracks', rows => 2, distinct => 1, having => \ 'count(tracks.trackid) > 2',
  22 });
  23
  24 my $multiple_track_count = $schema->resultset('Track')->search ({
  25   cd => { -in => $joined_cd_rs->get_column ('cdid')->as_query }
  26 })->count;
  27
  28
  29 is (
  30   $joined_cd_rs->search_related ('tracks')->count,
  31   $multiple_track_count,
  32   'related->count returns correct number chained off a grouped rs',
  33 );
  34 is (
  35   scalar ($joined_cd_rs->search_related ('tracks')->all),
  36   $multiple_track_count,
  37   'related->all returns correct number of objects chained off a grouped rs',
  38 );
  39
  40 done_testing;