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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
use strict;
use warnings;
use Test::More;
use Test::Deep;
use Test::Exception;
use lib qw(t/lib);
use DBICTest;
use DBIx::Class::_Util 'sigwarn_silencer';
my $schema = DBICTest->init_schema();
$schema->resultset('Artist')->create(
{
name => 'mo',
rank => '1337',
cds => [
{
title => 'Song of a Foo',
year => '1999',
tracks => [
{ title => 'Foo Me Baby One More Time' },
{ title => 'Foo Me Baby One More Time II' },
{ title => 'Foo Me Baby One More Time III' },
{ title => 'Foo Me Baby One More Time IV', cd_single => {
artist => 1, title => 'MO! Single', year => 2021, tracks => [
{ title => 'singled out' },
{ title => 'still alone' },
]
} }
],
cd_to_producer => [
{ producer => { name => 'riba' } },
{ producer => { name => 'sushi' } },
]
},
{
title => 'Song of a Foo II',
year => '2002',
tracks => [
{ title => 'Quit Playing Games With My Heart' },
{ title => 'Bar Foo' },
{ title => 'Foo Bar', cd_single => {
artist => 2, title => 'MO! Single', year => 2020, tracks => [
{ title => 'singled out' },
{ title => 'still alone' },
]
} }
],
cd_to_producer => [
{ producer => { name => 'riba' } },
{ producer => { name => 'sushi' } },
],
}
],
artwork_to_artist => [
{ artwork => { cd_id => 1 } },
{ artwork => { cd_id => 2 } }
]
}
);
my $artist_with_extras = {
artistid => 4, charfield => undef, name => 'mo', rank => 1337,
artwork_to_artist => [
{ artist_id => 4, artwork_cd_id => 1, artwork => { cd_id => 1 } },
{ artist_id => 4, artwork_cd_id => 2, artwork => { cd_id => 2 } },
],
cds => [
{
artist => 4, cdid => 6, title => 'Song of a Foo', genreid => undef, year => 1999, single_track => undef,
cd_to_producer => [
{ attribute => undef, cd => 6, producer => { name => 'riba', producerid => 4 } },
{ attribute => undef, cd => 6, producer => { name => 'sushi', producerid => 5 } },
],
tracks => [
{ cd => 6, position => 1, trackid => 19, title => 'Foo Me Baby One More Time', last_updated_on => undef, last_updated_at => undef, cd_single => undef },
{ cd => 6, position => 2, trackid => 20, title => 'Foo Me Baby One More Time II', last_updated_on => undef, last_updated_at => undef, cd_single => undef },
{ cd => 6, position => 3, trackid => 21, title => 'Foo Me Baby One More Time III', last_updated_on => undef, last_updated_at => undef, cd_single => undef },
{ cd => 6, position => 4, trackid => 22, title => 'Foo Me Baby One More Time IV', last_updated_on => undef, last_updated_at => undef, cd_single => {
single_track => 22, artist => 1, cdid => 7, title => 'MO! Single', genreid => undef, year => 2021, tracks => [
{ cd => 7, position => 1, title => 'singled out', trackid => '23', last_updated_at => undef, last_updated_on => undef },
{ cd => 7, position => 2, title => 'still alone', trackid => '24', last_updated_at => undef, last_updated_on => undef },
],
} }
],
},
{
artist => 4, cdid => 8, title => 'Song of a Foo II', genreid => undef, year => 2002, single_track => undef,
cd_to_producer => [
{ attribute => undef, cd => 8, producer => { name => 'riba', producerid => 4 } },
{ attribute => undef, cd => 8, producer => { name => 'sushi', producerid => 5 } },
],
tracks => [
{ cd => 8, position => 1, trackid => 25, title => 'Quit Playing Games With My Heart', last_updated_on => undef, last_updated_at => undef, cd_single => undef },
{ cd => 8, position => 2, trackid => 26, title => 'Bar Foo', last_updated_on => undef, last_updated_at => undef, cd_single => undef },
{ cd => 8, position => 3, trackid => 27, title => 'Foo Bar', last_updated_on => undef, last_updated_at => undef, cd_single => {
single_track => 27, artist => 2, cdid => 9, title => 'MO! Single', genreid => undef, year => 2020, tracks => [
{ cd => 9, position => 1, title => 'singled out', trackid => '28', last_updated_at => undef, last_updated_on => undef },
{ cd => 9, position => 2, title => 'still alone', trackid => '29', last_updated_at => undef, last_updated_on => undef },
],
} }
],
}
],
};
my $art_rs = $schema->resultset('Artist')->search({ 'me.artistid' => 4 });
my $art_rs_prefetch = $art_rs->search({}, {
order_by => [qw/tracks.position tracks.trackid producer.producerid tracks_2.trackid artwork.cd_id/],
result_class => 'DBIx::Class::ResultClass::HashRefInflator',
prefetch => [
{
cds => [
{ tracks => { cd_single => 'tracks' } },
{ cd_to_producer => 'producer' }
]
},
{ artwork_to_artist => 'artwork' }
],
});
cmp_deeply( $art_rs_prefetch->next, $artist_with_extras );
for my $order (
[ [qw( cds.cdid tracks.position )] ],
[ [qw( artistid tracks.cd tracks.position )],
'we need to proxy the knowledge from the collapser that tracks.cd is a stable sorter for CDs' ],
) {
my $cds_rs_prefetch = $art_rs->related_resultset('cds')->search({}, {
order_by => [ $order->[0], qw(producer.name tracks_2.position) ],
result_class => 'DBIx::Class::ResultClass::HashRefInflator',
prefetch => [
{ tracks => { cd_single => 'tracks' } },
{ cd_to_producer => 'producer' },
],
});
local $SIG{__WARN__} = sigwarn_silencer(qr/Unable to properly collapse has_many results/) if $order->[1];
cmp_deeply( $cds_rs_prefetch->next, $artist_with_extras->{cds}[0], '1st cd structure matches' );
cmp_deeply( $cds_rs_prefetch->next, $artist_with_extras->{cds}[1], '2nd cd structure matches' );
# INTERNALS! (a.k.a boars, gore and whores) DO NOT CARGOCULT!!!
local $TODO = $order->[1] if $order->[1];
ok( $cds_rs_prefetch->_resolved_attrs->{_ordered_for_collapse}, 'ordered_for_collapse detected properly' );
}
done_testing;
|
