t/count/search_related.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use lib qw(t/lib);
   7
   8 use DBICTest;
   9
  10 my $schema = DBICTest->init_schema();
  11 my $cd_rs = $schema->resultset('CD')->search ({}, { rows => 1, order_by => 'cdid' });
  12
  13 my $track_count = $cd_rs->first->tracks->count;
  14
  15 cmp_ok ($track_count, '>', 1, 'First CD has several tracks');
  16
  17 is ($cd_rs->search_related ('tracks')->count, $track_count, 'related->count returns correct number');
  18 is (scalar ($cd_rs->search_related ('tracks')->all), $track_count, 'related->all returns correct number of objects');
  19
  20 done_testing;