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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
use strict;
use warnings;
use Test::More;
use lib qw(t/lib);
use DBICTest;
my $schema = DBICTest->init_schema();
my $cds_rs = $schema->resultset('CD')->search(
[
{
'me.title' => "Caterwaulin' Blues",
'cds.title' => { '!=' => 'Forkful of bees' }
},
{
'me.title' => { '!=', => "Caterwaulin' Blues" },
'cds.title' => 'Forkful of bees'
},
],
{
order_by => [qw(me.cdid cds.title)],
prefetch => { artist => 'cds' },
result_class => 'DBIx::Class::ResultClass::HashRefInflator',
},
);
is_deeply [ $cds_rs->all ], [
{
'single_track' => undef,
'cdid' => '1',
'artist' => {
'cds' => [
{
'single_track' => undef,
'artist' => '1',
'cdid' => '2',
'title' => 'Forkful of bees',
'genreid' => undef,
'year' => '2001'
},
],
'artistid' => '1',
'charfield' => undef,
'name' => 'Caterwauler McCrae',
'rank' => '13'
},
'title' => 'Spoonful of bees',
'year' => '1999',
'genreid' => '1'
},
{
'single_track' => undef,
'cdid' => '2',
'artist' => {
'cds' => [
{
'single_track' => undef,
'artist' => '1',
'cdid' => '2',
'title' => 'Forkful of bees',
'genreid' => undef,
'year' => '2001'
},
],
'artistid' => '1',
'charfield' => undef,
'name' => 'Caterwauler McCrae',
'rank' => '13'
},
'title' => 'Forkful of bees',
'year' => '2001',
'genreid' => undef
},
{
'single_track' => undef,
'cdid' => '3',
'artist' => {
'cds' => [
{
'single_track' => undef,
'artist' => '1',
'cdid' => '3',
'title' => 'Caterwaulin\' Blues',
'genreid' => undef,
'year' => '1997'
},
{
'single_track' => undef,
'artist' => '1',
'cdid' => '1',
'title' => 'Spoonful of bees',
'genreid' => '1',
'year' => '1999'
}
],
'artistid' => '1',
'charfield' => undef,
'name' => 'Caterwauler McCrae',
'rank' => '13'
},
'title' => 'Caterwaulin\' Blues',
'year' => '1997',
'genreid' => undef
}
], 'multi-level prefetch with restrictions ok';
done_testing;
|
