10 my $schema = DBICTest->init_schema();
13 my $no_prefetch = $schema->resultset('Track')->search_related(cd =>
19 order_by => 'me.trackid',
24 my $use_prefetch = $no_prefetch->search(
31 is($use_prefetch->count, $no_prefetch->count, 'counts with and without prefetch match');
33 scalar ($use_prefetch->all),
34 scalar ($no_prefetch->all),
35 "Amount of returned rows is right"
38 }, 'search_related prefetch with order_by works');
42 my $rs = $schema->resultset("Artwork")->search(undef, {distinct => 1})
43 ->search_related('artwork_to_artist')->search_related('artist',
45 { prefetch => 'cds' },
47 is($rs->all, 0, 'prefetch without WHERE (objects)');
48 is($rs->count, 0, 'prefetch without WHERE (count)');
50 $rs = $schema->resultset("Artwork")->search(undef, {distinct => 1})
51 ->search_related('artwork_to_artist')->search_related('artist',
52 { 'cds.title' => 'foo' },
53 { prefetch => 'cds' },
55 is($rs->all, 0, 'prefetch with WHERE (objects)');
56 is($rs->count, 0, 'prefetch with WHERE (count)');
59 # test where conditions at the root of the related chain
60 my $artist_rs = $schema->resultset("Artist")->search({artistid => 11});
63 $rs = $artist_rs->search_related('cds')->search_related('genre',
64 { 'genre.name' => 'foo' },
65 { prefetch => 'cds' },
67 is($rs->all, 0, 'prefetch without distinct (objects)');
68 is($rs->count, 0, 'prefetch without distinct (count)');
72 $rs = $artist_rs->search(undef, {distinct => 1})
73 ->search_related('cds')->search_related('genre',
74 { 'genre.name' => 'foo' },
76 is($rs->all, 0, 'distinct without prefetch (objects)');
77 is($rs->count, 0, 'distinct without prefetch (count)');
81 $rs = $artist_rs->search({}, {distinct => 1})
82 ->search_related('cds')->search_related('genre',
83 { 'genre.name' => 'foo' },
84 { prefetch => 'cds' },
86 is($rs->all, 0, 'distinct with prefetch (objects)');
87 is($rs->count, 0, 'distinct with prefetch (count)');
91 }, 'distinct generally works with prefetch on deep search_related chains');