Beta Shell v2.0

File Manager

~ /usr/share/doc/perl-DBIx-Class/t/count

Name	Size	Perms	Modified	Actions
[ .. / .. ]
count_rs.t	4.93 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
distinct.t	6.31 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
group_by_func.t	709 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
grouped_pager.t	936 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
in_subquery.t	493 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
joined.t	1.62 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
prefetch.t	2.72 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
search_related.t	1.17 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del

Editing: search_related.t (1.17 KB)

use strict;
use warnings;

use Test::More;

use lib qw(t/lib);

use DBICTest;

my $schema = DBICTest->init_schema();
my $cd_rs = $schema->resultset('CD')->search ({}, { rows => 1, order_by => 'cdid' });

my $track_count = $cd_rs->first->tracks->count;

cmp_ok ($track_count, '>', 1, 'First CD has several tracks');

is ($cd_rs->search_related ('tracks')->count, $track_count, 'related->count returns correct number chained off a limited rs');
is (scalar ($cd_rs->search_related ('tracks')->all), $track_count, 'related->all returns correct number of objects chained off a limited rs');


my $joined_cd_rs = $cd_rs->search ({}, {
  join => 'tracks', rows => 2, distinct => 1, having => \ 'count(tracks.trackid) > 2',
});

my $multiple_track_count = $schema->resultset('Track')->search ({
  cd => { -in => $joined_cd_rs->get_column ('cdid')->as_query }
})->count;


is (
  $joined_cd_rs->search_related ('tracks')->count,
  $multiple_track_count,
  'related->count returns correct number chained off a grouped rs',
);
is (
  scalar ($joined_cd_rs->search_related ('tracks')->all),
  $multiple_track_count,
  'related->all returns correct number of objects chained off a grouped rs',
);

done_testing;