[dbsrgits/DBIx-Class.git] / t / resultset / inflate_result_api.t

use strict;
use warnings;

use Test::More;
use Test::Deep;
use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema(no_populate => 1);

$schema->resultset('Artist')->create({ name => 'JMJ', cds => [{
  title => 'Magnetic Fields',
  year => 1981,
  genre => { name => 'electro' },
  tracks => [
    { title => 'm1' },
    { title => 'm2' },
    { title => 'm3' },
    { title => 'm4' },
  ],
} ] });

$schema->resultset('CD')->create({
  title => 'Equinoxe',
  year => 1978,
  artist => { name => 'JMJ' },
  genre => { name => 'electro' },
  tracks => [
    { title => 'e1' },
    { title => 'e2' },
    { title => 'e3' },
  ],
  single_track => {
    title => 'o1',
    cd => {
      title => 'Oxygene',
      year => 1976,
      artist => { name => 'JMJ' },
      tracks => [
        { title => 'o2', position => 2},  # the position should not be needed here, bug in MC
      ],
    },
  },
});

$schema->resultset('CD')->create({ artist => 1, year => 1977, title => "fuzzy_1" });

{
  package DBICTest::_IRCapture;
  sub inflate_result { [@_[2,3]] };
}

{
  package DBICTest::_IRCaptureAround;
  use base 'DBIx::Class::Row';
  sub inflate_result { [@_[2,3]] };
}

cmp_structures(
  ([$schema->resultset ('CD')->search ({}, {
    result_class => 'DBICTest::_IRCapture',
    prefetch => { single_track => { cd => 'artist' } },
    order_by => 'me.cdid',
  })->all]),
  [
    [
      { cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
      { single_track => bless( [
        { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
        {  cd => bless ( [
          { cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
          {
            artist => bless ( [
              { artistid => undef, name => undef, charfield => undef, rank => undef }
            ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class )
          }
        ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
      ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
    ],
    [
      { cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
      { single_track => bless( [
        { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
        {  cd => bless ( [
          { cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
          {
            artist => bless ( [
              { artistid => undef, name => undef, charfield => undef, rank => undef }
            ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class )
          }
        ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
      ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
    ],
    [
      { cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
      { single_track => [
        { trackid => 6, title => 'o1', position => 1, cd => 2, last_updated_at => undef, last_updated_on => undef },
        {  cd => [
          { cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
          {
            artist => [
              { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 }
            ]
          }
        ] }
      ] }
    ],
    [
      { cdid => 4, single_track => undef, artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
      { single_track => bless( [
        { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
        {  cd => bless ( [
          { cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
          {
            artist => bless ( [
              { artistid => undef, name => undef, charfield => undef, rank => undef }
            ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class )
          }
        ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
      ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
    ],
  ],
  'Simple 1:1 descend with classic prefetch'
);

cmp_structures(
  [$schema->resultset ('CD')->search ({}, {
    result_class => 'DBICTest::_IRCapture',
    join => { single_track => { cd => 'artist' } },
    columns => [
      { 'year'                                    => 'me.year' },
      { 'genreid'                                 => 'me.genreid' },
      { 'single_track.cd.artist.artistid'         => 'artist.artistid' },
      { 'title'                                   => 'me.title' },
      { 'artist'                                  => 'me.artist' },
    ],
    order_by => 'me.cdid',
  })->all],
  [
    [
      { artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
      { single_track => bless( [
        undef,
        {  cd => [
          undef,
          {
            artist => [
              { artistid => undef }
            ]
          }
        ] }
      ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
    ],
    [
      { artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
      { single_track => bless( [
        undef,
        {  cd => [
          undef,
          {
            artist => [
              { artistid => undef }
            ]
          }
        ] }
      ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
    ],
    [
      { artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
      { single_track => [
        undef,
        {  cd => [
          undef,
          {
            artist => [
              { artistid => 1 }
            ]
          }
        ] }
      ] }
    ],
    [
      { artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
      { single_track => bless( [
        undef,
        {  cd => [
          undef,
          {
            artist => [
              { artistid => undef }
            ]
          }
        ] }
      ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
    ],
  ],
  'Simple 1:1 descend with missing selectors'
);

cmp_structures(
  ([$schema->resultset ('CD')->search ({}, {
    result_class => 'DBICTest::_IRCapture',
    prefetch => [ { single_track => { cd => { artist => { cds => 'tracks' } } } } ],
    order_by => [qw/me.cdid tracks.trackid/],
  })->all]),
  [
    [
      { cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
      { single_track => bless( [
        { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
        {  cd => [
          { cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
          {
            artist => [
              { artistid => undef, name => undef, charfield => undef, rank => undef },
              { cds => bless( [ [
                { cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
                { tracks => bless( [ [
                  { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
                ] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
              ] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
            ],
          },
        ] },
      ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
    ],
    [
      { cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
      { single_track => bless( [
        { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
        {  cd => [
          { cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
          {
            artist => [
              { artistid => undef, name => undef, charfield => undef, rank => undef },
              { cds => bless( [ [
                { cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
                { tracks => bless( [ [
                  { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
                ] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
              ] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
            ],
          },
        ] },
      ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
    ],
    [
      { cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
      { single_track => [
        { trackid => 6, title => 'o1', position => 1, cd => 2, last_updated_at => undef, last_updated_on => undef },
        {  cd => [
          { cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
          {
            artist => [
              { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
              { cds => [
                [
                  { cdid => 4, single_track => undef, artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
                  { tracks => bless( [
                    [ { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef } ],
                  ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
                ],
                [
                  { cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
                  { tracks => [
                    [ { trackid => 1, title => 'm1', position => 1, cd => 1, last_updated_at => undef, last_updated_on => undef } ],
                    [ { trackid => 2, title => 'm2', position => 2, cd => 1, last_updated_at => undef, last_updated_on => undef } ],
                    [ { trackid => 3, title => 'm3', position => 3, cd => 1, last_updated_at => undef, last_updated_on => undef } ],
                    [ { trackid => 4, title => 'm4', position => 4, cd => 1, last_updated_at => undef, last_updated_on => undef } ],
                  ]},
                ],
                [
                  { cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
                  { tracks => [
                    [ { trackid => 5, title => 'o2', position => 2, cd => 2, last_updated_at => undef, last_updated_on => undef } ],
                    [ { trackid => 6, title => 'o1', position => 1, cd => 2, last_updated_at => undef, last_updated_on => undef } ],
                  ]},
                ],
                [
                  { cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
                  { tracks => [
                    [ { trackid => 7, title => 'e1', position => 1, cd => 3, last_updated_at => undef, last_updated_on => undef } ],
                    [ { trackid => 8, title => 'e2', position => 2, cd => 3, last_updated_at => undef, last_updated_on => undef } ],
                    [ { trackid => 9, title => 'e3', position => 3, cd => 3, last_updated_at => undef, last_updated_on => undef } ],
                  ]},
                ],
              ]},
            ]
          }
        ] }
      ] }
    ],
    [
      { cdid => 4, single_track => undef, artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
      { single_track => bless( [
        { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
        {  cd => [
          { cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
          {
            artist => [
              { artistid => undef, name => undef, charfield => undef, rank => undef },
              { cds => bless( [ [
                { cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
                { tracks => bless( [ [
                  { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
                ] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
              ] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
            ],
          },
        ] },
      ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
    ],
  ],
  'Collapsing 1:1 ending in chained has_many with classic prefetch'
);

cmp_structures (
  ([$schema->resultset ('Artist')->search ({}, {
    result_class => 'DBICTest::_IRCapture',
    join => { cds => 'tracks' },
    '+columns' => [
      (map { "cds.$_" } $schema->source('CD')->columns),
      (map { +{ "cds.tracks.$_" => "tracks.$_" } } $schema->source('Track')->columns),
    ],
    order_by => [qw/cds.cdid tracks.trackid/],
  })->all]),
  [
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
        { tracks => [
          { trackid => 1, title => 'm1', position => 1, cd => 1, last_updated_at => undef, last_updated_on => undef },
        ]},
      ]},
    ],
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
        { tracks => [
          { trackid => 2, title => 'm2', position => 2, cd => 1, last_updated_at => undef, last_updated_on => undef },
        ]},
      ]},
    ],
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
        { tracks => [
          { trackid => 3, title => 'm3', position => 3, cd => 1, last_updated_at => undef, last_updated_on => undef },
        ]},
      ]},
    ],
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
        { tracks => [
          { trackid => 4, title => 'm4', position => 4, cd => 1, last_updated_at => undef, last_updated_on => undef },
        ]},
      ]},
    ],
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
        { tracks => [
          { trackid => 5, title => 'o2', position => 2, cd => 2, last_updated_at => undef, last_updated_on => undef },
        ]},
      ]},
    ],
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
        { tracks => [
          { trackid => 6, title => 'o1', position => 1, cd => 2, last_updated_at => undef, last_updated_on => undef },
        ]},
      ]},
    ],
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
        { tracks => [
          { trackid => 7, title => 'e1', position => 1, cd => 3, last_updated_at => undef, last_updated_on => undef },
        ]},
      ]},
    ],
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
        { tracks => [
          { trackid => 8, title => 'e2', position => 2, cd => 3, last_updated_at => undef, last_updated_on => undef },
        ]},
      ]},
    ],
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
        { tracks => [
          { trackid => 9, title => 'e3', position => 3, cd => 3, last_updated_at => undef, last_updated_on => undef },
        ]},
      ]},
    ],
    [
      { artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
      { cds => [
        { cdid => 4, single_track => undef, artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
        { tracks => bless( [
          { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
        ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
      ]},
    ],
  ],
  'Non-Collapsing chained has_many'
);

$schema->resultset('Artist')->create({ name => "${_}_cdless" })
  for (qw( Z A ));

cmp_structures (
  [$schema->resultset ('Artist')->search ({}, {
    result_class => 'DBICTest::_IRCapture',
    collapse => 1,
    join => 'cds',
    columns => [qw( cds.title cds.artist )],
    order_by => [qw( me.name cds.title )],
  })->all],
  [
    [
      undef,
      { cds => bless( [
        [ { artist => undef, title => undef } ]
      ], 'DBIx::ResultParser::RelatedNullBranch' ) },
    ],
    [
      undef,
      { cds => [
        [ { artist => 1, title => "Equinoxe" } ],
        [ { artist => 1, title => "Magnetic Fields" } ],
        [ { artist => 1, title => "Oxygene" } ],
        [ { artist => 1, title => "fuzzy_1" } ],
      ] }
    ],
    [
      undef,
      { cds => bless( [
        [ { artist => undef, title => undef } ]
      ], 'DBIx::ResultParser::RelatedNullBranch' ) },
    ],
  ],
  'Expected output of collapsing 1:M with empty root selection',
);

sub cmp_structures {
  my ($left, $right, $msg) = @_;

  local $Test::Builder::Level = $Test::Builder::Level + 1;
  cmp_deeply($left, $right, $msg||());
}

done_testing;
Commit	Line	Data
908aa1bb	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
52864fbd	5	use Test::Deep;
908aa1bb	6	use lib qw(t/lib);
	7	use DBICTest;
	8
	9	my $schema = DBICTest->init_schema(no_populate => 1);
	10
742280c7	11	$schema->resultset('Artist')->create({ name => 'JMJ', cds => [{
	12	title => 'Magnetic Fields',
	13	year => 1981,
	14	genre => { name => 'electro' },
	15	tracks => [
	16	{ title => 'm1' },
	17	{ title => 'm2' },
	18	{ title => 'm3' },
	19	{ title => 'm4' },
	20	],
	21	} ] });
	22
908aa1bb	23	$schema->resultset('CD')->create({
	24	title => 'Equinoxe',
	25	year => 1978,
	26	artist => { name => 'JMJ' },
	27	genre => { name => 'electro' },
	28	tracks => [
	29	{ title => 'e1' },
	30	{ title => 'e2' },
	31	{ title => 'e3' },
	32	],
	33	single_track => {
	34	title => 'o1',
	35	cd => {
	36	title => 'Oxygene',
	37	year => 1976,
742280c7	38	artist => { name => 'JMJ' },
908aa1bb	39	tracks => [
	40	{ title => 'o2', position => 2}, # the position should not be needed here, bug in MC
	41	],
	42	},
	43	},
	44	});
	45
ce556881	46	$schema->resultset('CD')->create({ artist => 1, year => 1977, title => "fuzzy_1" });
ce556881	47
908aa1bb	48	{
	49	package DBICTest::_IRCapture;
	50	sub inflate_result { [@_[2,3]] };
	51	}
	52
ce556881	53	{
	54	package DBICTest::_IRCaptureAround;
	55	use base 'DBIx::Class::Row';
	56	sub inflate_result { [@_[2,3]] };
	57	}
	58
ce556881	59	cmp_structures(
908aa1bb	60	([$schema->resultset ('CD')->search ({}, {
	61	result_class => 'DBICTest::_IRCapture',
	62	prefetch => { single_track => { cd => 'artist' } },
	63	order_by => 'me.cdid',
	64	})->all]),
	65	[
	66	[
	67	{ cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
52864fbd	68	{ single_track => bless( [
908aa1bb	69	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
52864fbd	70	{ cd => bless ( [
908aa1bb	71	{ cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
908aa1bb	72	{
52864fbd	73	artist => bless ( [
908aa1bb	74	{ artistid => undef, name => undef, charfield => undef, rank => undef }
52864fbd	75	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class )
908aa1bb	76	}
52864fbd	77	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
52864fbd	78	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
908aa1bb	79	],
	80	[
	81	{ cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
52864fbd	82	{ single_track => bless( [
908aa1bb	83	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
52864fbd	84	{ cd => bless ( [
908aa1bb	85	{ cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
908aa1bb	86	{
52864fbd	87	artist => bless ( [
908aa1bb	88	{ artistid => undef, name => undef, charfield => undef, rank => undef }
52864fbd	89	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class )
908aa1bb	90	}
52864fbd	91	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
52864fbd	92	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
908aa1bb	93	],
	94	[
	95	{ cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
	96	{ single_track => [
	97	{ trackid => 6, title => 'o1', position => 1, cd => 2, last_updated_at => undef, last_updated_on => undef },
	98	{ cd => [
	99	{ cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
	100	{
	101	artist => [
	102	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 }
	103	]
	104	}
	105	] }
	106	] }
	107	],
ce556881	108	[
ce556881	109	{ cdid => 4, single_track => undef, artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
52864fbd	110	{ single_track => bless( [
ce556881	111	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
52864fbd	112	{ cd => bless ( [
ce556881	113	{ cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
ce556881	114	{
52864fbd	115	artist => bless ( [
ce556881	116	{ artistid => undef, name => undef, charfield => undef, rank => undef }
52864fbd	117	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class )
ce556881	118	}
52864fbd	119	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
52864fbd	120	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
ce556881	121	],
ce556881	122	],
52864fbd	123	'Simple 1:1 descend with classic prefetch'
ce556881	124	);
ce556881	125
ce556881	126	cmp_structures(
908aa1bb	127	[$schema->resultset ('CD')->search ({}, {
	128	result_class => 'DBICTest::_IRCapture',
	129	join => { single_track => { cd => 'artist' } },
	130	columns => [
	131	{ 'year' => 'me.year' },
	132	{ 'genreid' => 'me.genreid' },
	133	{ 'single_track.cd.artist.artistid' => 'artist.artistid' },
	134	{ 'title' => 'me.title' },
	135	{ 'artist' => 'me.artist' },
	136	],
	137	order_by => 'me.cdid',
	138	})->all],
	139	[
	140	[
	141	{ artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
52864fbd	142	{ single_track => bless( [
908aa1bb	143	undef,
	144	{ cd => [
	145	undef,
	146	{
	147	artist => [
	148	{ artistid => undef }
	149	]
	150	}
	151	] }
52864fbd	152	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
908aa1bb	153	],
	154	[
	155	{ artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
52864fbd	156	{ single_track => bless( [
908aa1bb	157	undef,
	158	{ cd => [
	159	undef,
	160	{
	161	artist => [
	162	{ artistid => undef }
	163	]
	164	}
	165	] }
52864fbd	166	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
908aa1bb	167	],
	168	[
	169	{ artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
	170	{ single_track => [
	171	undef,
	172	{ cd => [
	173	undef,
	174	{
	175	artist => [
	176	{ artistid => 1 }
	177	]
	178	}
	179	] }
	180	] }
	181	],
ce556881	182	[
ce556881	183	{ artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
52864fbd	184	{ single_track => bless( [
ce556881	185	undef,
	186	{ cd => [
	187	undef,
	188	{
	189	artist => [
	190	{ artistid => undef }
	191	]
	192	}
	193	] }
52864fbd	194	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) }
ce556881	195	],
ce556881	196	],
52864fbd	197	'Simple 1:1 descend with missing selectors'
ce556881	198	);
	199
	200	cmp_structures(
908aa1bb	201	([$schema->resultset ('CD')->search ({}, {
	202	result_class => 'DBICTest::_IRCapture',
	203	prefetch => [ { single_track => { cd => { artist => { cds => 'tracks' } } } } ],
	204	order_by => [qw/me.cdid tracks.trackid/],
	205	})->all]),
	206	[
	207	[
	208	{ cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
52864fbd	209	{ single_track => bless( [
908aa1bb	210	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
	211	{ cd => [
	212	{ cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
	213	{
	214	artist => [
	215	{ artistid => undef, name => undef, charfield => undef, rank => undef },
52864fbd	216	{ cds => bless( [ [
908aa1bb	217	{ cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
52864fbd	218	{ tracks => bless( [ [
908aa1bb	219	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
52864fbd	220	] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
52864fbd	221	] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
908aa1bb	222	],
	223	},
	224	] },
52864fbd	225	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
908aa1bb	226	],
	227	[
	228	{ cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
52864fbd	229	{ single_track => bless( [
908aa1bb	230	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
	231	{ cd => [
	232	{ cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
	233	{
	234	artist => [
	235	{ artistid => undef, name => undef, charfield => undef, rank => undef },
52864fbd	236	{ cds => bless( [ [
908aa1bb	237	{ cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
52864fbd	238	{ tracks => bless( [ [
908aa1bb	239	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
52864fbd	240	] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
	241	] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
	242	],
	243	},
	244	] },
	245	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
908aa1bb	246	],
	247	[
	248	{ cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
	249	{ single_track => [
	250	{ trackid => 6, title => 'o1', position => 1, cd => 2, last_updated_at => undef, last_updated_on => undef },
	251	{ cd => [
	252	{ cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
	253	{
	254	artist => [
	255	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
	256	{ cds => [
	257	[
ce556881	258	{ cdid => 4, single_track => undef, artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
52864fbd	259	{ tracks => bless( [
ce556881	260	[ { trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef } ],
52864fbd	261	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
ce556881	262	],
	263	[
	264	{ cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
	265	{ tracks => [
	266	[ { trackid => 1, title => 'm1', position => 1, cd => 1, last_updated_at => undef, last_updated_on => undef } ],
	267	[ { trackid => 2, title => 'm2', position => 2, cd => 1, last_updated_at => undef, last_updated_on => undef } ],
	268	[ { trackid => 3, title => 'm3', position => 3, cd => 1, last_updated_at => undef, last_updated_on => undef } ],
	269	[ { trackid => 4, title => 'm4', position => 4, cd => 1, last_updated_at => undef, last_updated_on => undef } ],
	270	]},
	271	],
	272	[
	273	{ cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
	274	{ tracks => [
	275	[ { trackid => 5, title => 'o2', position => 2, cd => 2, last_updated_at => undef, last_updated_on => undef } ],
	276	[ { trackid => 6, title => 'o1', position => 1, cd => 2, last_updated_at => undef, last_updated_on => undef } ],
	277	]},
	278	],
	279	[
	280	{ cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
	281	{ tracks => [
	282	[ { trackid => 7, title => 'e1', position => 1, cd => 3, last_updated_at => undef, last_updated_on => undef } ],
	283	[ { trackid => 8, title => 'e2', position => 2, cd => 3, last_updated_at => undef, last_updated_on => undef } ],
	284	[ { trackid => 9, title => 'e3', position => 3, cd => 3, last_updated_at => undef, last_updated_on => undef } ],
	285	]},
	286	],
	287	]},
	288	]
	289	}
	290	] }
	291	] }
	292	],
	293	[
	294	{ cdid => 4, single_track => undef, artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
52864fbd	295	{ single_track => bless( [
ce556881	296	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
	297	{ cd => [
	298	{ cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
	299	{
	300	artist => [
	301	{ artistid => undef, name => undef, charfield => undef, rank => undef },
52864fbd	302	{ cds => bless( [ [
ce556881	303	{ cdid => undef, single_track => undef, artist => undef, genreid => undef, year => undef, title => undef },
52864fbd	304	{ tracks => bless( [ [
ce556881	305	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
52864fbd	306	] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
	307	] ], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
	308	],
	309	},
	310	] },
	311	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
ce556881	312	],
908aa1bb	313	],
52864fbd	314	'Collapsing 1:1 ending in chained has_many with classic prefetch'
908aa1bb	315	);
908aa1bb	316
ce556881	317	cmp_structures (
908aa1bb	318	([$schema->resultset ('Artist')->search ({}, {
	319	result_class => 'DBICTest::_IRCapture',
	320	join => { cds => 'tracks' },
	321	'+columns' => [
	322	(map { "cds.$_" } $schema->source('CD')->columns),
	323	(map { +{ "cds.tracks.$_" => "tracks.$_" } } $schema->source('Track')->columns),
	324	],
	325	order_by => [qw/cds.cdid tracks.trackid/],
	326	})->all]),
	327	[
	328	[
	329	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
	330	{ cds => [
	331	{ cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
	332	{ tracks => [
	333	{ trackid => 1, title => 'm1', position => 1, cd => 1, last_updated_at => undef, last_updated_on => undef },
	334	]},
	335	]},
	336	],
	337	[
	338	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
	339	{ cds => [
	340	{ cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
	341	{ tracks => [
	342	{ trackid => 2, title => 'm2', position => 2, cd => 1, last_updated_at => undef, last_updated_on => undef },
	343	]},
	344	]},
	345	],
	346	[
	347	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
	348	{ cds => [
	349	{ cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
	350	{ tracks => [
	351	{ trackid => 3, title => 'm3', position => 3, cd => 1, last_updated_at => undef, last_updated_on => undef },
	352	]},
	353	]},
	354	],
	355	[
	356	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
	357	{ cds => [
	358	{ cdid => 1, single_track => undef, artist => 1, genreid => 1, year => 1981, title => "Magnetic Fields" },
	359	{ tracks => [
	360	{ trackid => 4, title => 'm4', position => 4, cd => 1, last_updated_at => undef, last_updated_on => undef },
	361	]},
	362	]},
	363	],
	364	[
	365	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
	366	{ cds => [
	367	{ cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
	368	{ tracks => [
	369	{ trackid => 5, title => 'o2', position => 2, cd => 2, last_updated_at => undef, last_updated_on => undef },
	370	]},
	371	]},
	372	],
	373	[
	374	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
	375	{ cds => [
	376	{ cdid => 2, single_track => undef, artist => 1, genreid => undef, year => 1976, title => "Oxygene" },
	377	{ tracks => [
	378	{ trackid => 6, title => 'o1', position => 1, cd => 2, last_updated_at => undef, last_updated_on => undef },
	379	]},
	380	]},
	381	],
382	[
383	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
384	{ cds => [
385	{ cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
386	{ tracks => [
387	{ trackid => 7, title => 'e1', position => 1, cd => 3, last_updated_at => undef, last_updated_on => undef },
388	]},
389	]},
390	],
391	[
392	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
393	{ cds => [
394	{ cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
395	{ tracks => [
396	{ trackid => 8, title => 'e2', position => 2, cd => 3, last_updated_at => undef, last_updated_on => undef },
397	]},
398	]},
399	],
400	[
401	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
402	{ cds => [
403	{ cdid => 3, single_track => 6, artist => 1, genreid => 1, year => 1978, title => "Equinoxe" },
404	{ tracks => [
405	{ trackid => 9, title => 'e3', position => 3, cd => 3, last_updated_at => undef, last_updated_on => undef },
406	]},
407	]},
408	],
ce556881	409	[
	410	{ artistid => 1, name => 'JMJ', charfield => undef, rank => 13 },
	411	{ cds => [
	412	{ cdid => 4, single_track => undef, artist => 1, genreid => undef, year => 1977, title => "fuzzy_1" },
52864fbd	413	{ tracks => bless( [
ce556881	414	{ trackid => undef, title => undef, position => undef, cd => undef, last_updated_at => undef, last_updated_on => undef },
52864fbd	415	], $DBIx::Class::ResultSource::RowParser::Util::null_branch_class ) },
ce556881	416	]},
	417	],
	418	],
52864fbd	419	'Non-Collapsing chained has_many'
ce556881	420	);
ce556881	421
aa1d8a87	422	$schema->resultset('Artist')->create({ name => "${_}_cdless" })
	423	for (qw( Z A ));
	424
	425	cmp_structures (
	426	[$schema->resultset ('Artist')->search ({}, {
	427	result_class => 'DBICTest::_IRCapture',
	428	collapse => 1,
	429	join => 'cds',
	430	columns => [qw( cds.title cds.artist )],
	431	order_by => [qw( me.name cds.title )],
	432	})->all],
	433	[
	434	[
	435	undef,
	436	{ cds => bless( [
	437	[ { artist => undef, title => undef } ]
	438	], 'DBIx::ResultParser::RelatedNullBranch' ) },
	439	],
	440	[
	441	undef,
	442	{ cds => [
	443	[ { artist => 1, title => "Equinoxe" } ],
	444	[ { artist => 1, title => "Magnetic Fields" } ],
	445	[ { artist => 1, title => "Oxygene" } ],
	446	[ { artist => 1, title => "fuzzy_1" } ],
	447	] }
	448	],
	449	[
	450	undef,
	451	{ cds => bless( [
	452	[ { artist => undef, title => undef } ]
	453	], 'DBIx::ResultParser::RelatedNullBranch' ) },
	454	],
	455	],
	456	'Expected output of collapsing 1:M with empty root selection',
	457	);
	458
ce556881	459	sub cmp_structures {
	460	my ($left, $right, $msg) = @_;
	461
ce556881	462	local $Test::Builder::Level = $Test::Builder::Level + 1;
52864fbd	463	cmp_deeply($left, $right, $msg\|\|());
ce556881	464	}
ce556881	465
908aa1bb	466	done_testing;