1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
use strict;
use warnings;
use Test::More;
use lib qw(t/lib);
use DBICTest;
my $schema = DBICTest->init_schema();
my $art = $schema->resultset('Artist')->find(
{ 'me.artistid' => 1 },
{ prefetch => 'cds', order_by => { -desc => 'cds.year' } }
);
is (
$art->cds->search({ year => 1999 })->next->year,
1999,
'Found expected CD with year 1999 after refined search',
);
is (
$art->cds->count({ year => 1999 }),
1,
'Correct refined count',
);
# this still should emit no queries:
$schema->is_executed_querycount( sub {
my $cds = $art->cds;
is (
$cds->count,
3,
'Correct prefetched count',
);
my @years = qw(2001 1999 1997);
while (my $cd = $cds->next) {
is (
$cd->year,
(shift @years),
'Correct prefetched cd year',
);
}
}, 0, 'No queries on prefetched operations');
done_testing;
|
