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();
-my $mo_rs = $schema->resultset('Artist')->search(
- { 'me.artistid' => 4 },
- {
- prefetch => [
- {
- cds => [
- { tracks => { cd_single => 'tracks' } },
- { cd_to_producer => 'producer' }
- ]
- },
- { artwork_to_artist => 'artwork' }
+$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' },
+ ]
+ } }
],
-
- result_class => 'DBIx::Class::ResultClass::HashRefInflator',
-
- order_by => [qw/tracks.position tracks.trackid producer.producerid/],
- }
+ 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 } }
+ ]
+ }
);
-$schema->resultset('Artist')->create(
+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 => [
{
- 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 } } ]
+ 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 $mo = $mo_rs->next;
+my $art_rs = $schema->resultset('Artist')->search({ 'me.artistid' => 4 });
-is( @{$mo->{cds}}, 2, 'two CDs' );
-is_deeply(
- $mo,
+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' => [
- {
- 'single_track' => undef,
- 'tracks' => [
- {
- 'cd' => '6',
- 'position' => '1',
- 'trackid' => '19',
- 'title' => 'Foo Me Baby One More Time',
- 'cd_single' => undef,
- 'last_updated_on' => undef,
- 'last_updated_at' => undef
- },
- {
- 'cd' => '6',
- 'position' => '2',
- 'trackid' => '20',
- 'title' => 'Foo Me Baby One More Time II',
- 'cd_single' => undef,
- 'last_updated_on' => undef,
- 'last_updated_at' => undef
- },
- {
- 'cd' => '6',
- 'position' => '3',
- 'trackid' => '21',
- 'title' => 'Foo Me Baby One More Time III',
- 'cd_single' => undef,
- 'last_updated_on' => undef,
- 'last_updated_at' => 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' => '6',
- 'cd_to_producer' => [
- {
- 'attribute' => undef,
- 'cd' => '6',
- 'producer' => {
- 'name' => 'riba',
- 'producerid' => '4'
- }
- },
- {
- 'attribute' => undef,
- 'cd' => '6',
- 'producer' => {
- 'name' => 'sushi',
- 'producerid' => '5'
- }
- }
- ],
- 'title' => 'Song of a Foo',
- 'genreid' => undef,
- 'year' => '1999'
- },
- {
- 'single_track' => undef,
- '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',
- 'cd_single' => undef,
- 'last_updated_on' => undef,
- 'last_updated_at' => 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
- },
- ],
+ 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' );
+}
- },
- },
- ],
- 'artist' => '4',
- 'cdid' => '8',
- 'cd_to_producer' => [
- {
- 'attribute' => undef,
- 'cd' => '8',
- 'producer' => {
- 'name' => 'riba',
- 'producerid' => '4'
- }
- },
- {
- 'attribute' => undef,
- 'cd' => '8',
- 'producer' => {
- 'name' => 'sushi',
- 'producerid' => '5'
- }
- }
- ],
- 'title' => 'Song of a Foo II',
- 'genreid' => undef,
- 'year' => '2002'
- }
- ],
- 'artistid' => '4',
- 'charfield' => undef,
- 'name' => 'mo',
- 'artwork_to_artist' => [
- {
- 'artwork' => { 'cd_id' => '1' },
- 'artist_id' => '4',
- 'artwork_cd_id' => '1'
- },
- {
- 'artwork' => { 'cd_id' => '2' },
- 'artist_id' => '4',
- 'artwork_cd_id' => '2'
- }
- ],
- 'rank' => '1337'
- }
-);
done_testing;