[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]] };
}

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