[dbsrgits/DBIx-Class.git] / t / inflate / hri_torture.t

use strict;
use warnings;

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

# More tests like this in t/prefetch/manual.t

my $schema = DBICTest->init_schema(no_populate => 1, quote_names => 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
      ],
    },
  },
});

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

{
  package DBICTest::HRI::Subclass;
  use base 'DBIx::Class::ResultClass::HashRefInflator';
}

{
  package DBICTest::HRI::Around;
  use base 'DBIx::Class::ResultClass::HashRefInflator';

  sub inflate_result { shift->next::method(@_) }
}

for my $rs (
  $schema->resultset('CD')->search_rs({}, { result_class => 'DBIx::Class::ResultClass::HashRefInflator' }),
  $schema->resultset('CD')->search_rs({}, { result_class => 'DBICTest::HRI::Subclass' }),
  $schema->resultset('CD')->search_rs({}, { result_class => 'DBICTest::HRI::Around' }),
) {

cmp_deeply
  [ $rs->search({}, {
    columns => {
      year                          => 'me.year',
      'single_track.cd.artist.name' => 'artist.name',
    },
    join => { single_track => { cd => 'artist' } },
    order_by => [qw/me.cdid artist.artistid/],
  })->all ],
  [
    {
      single_track => undef,
      year => 1981
    },
    {
      single_track => undef,
      year => 1976
    },
    {
      single_track => {
        cd => {
          artist => {
            name => "JMJ"
          }
        }
      },
      year => 1978
    },
    {
      single_track => undef,
      year => 1977
    },
    {
      single_track => undef,
      year => 1977
    },
  ],
  'plain 1:1 descending chain ' . $rs->result_class
;

cmp_deeply
  [ $rs->search({}, {
    columns => {
      'artist'                                  => 'me.artist',
      'title'                                   => 'me.title',
      'year'                                    => 'me.year',
      'single_track.cd.artist.artistid'         => 'artist.artistid',
      'single_track.cd.artist.cds.cdid'         => 'cds.cdid',
      'single_track.cd.artist.cds.tracks.title' => 'tracks.title',
    },
    join => { single_track => { cd => { artist => { cds => 'tracks' } } } },
    order_by => [qw/me.cdid artist.artistid cds.cdid tracks.trackid/],
  })->all ],
  [
    {
      artist => 1,
      single_track => undef,
      title => "Magnetic Fields",
      year => 1981
    },
    {
      artist => 1,
      single_track => undef,
      title => "Oxygene",
      year => 1976
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 1,
              tracks => {
                title => "m1"
              }
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 1,
              tracks => {
                title => "m2"
              }
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 1,
              tracks => {
                title => "m3"
              }
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 1,
              tracks => {
                title => "m4"
              }
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 2,
              tracks => {
                title => "o2"
              }
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 2,
              tracks => {
                title => "o1"
              }
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 3,
              tracks => {
                title => "e1"
              }
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 3,
              tracks => {
                title => "e2"
              }
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 3,
              tracks => {
                title => "e3"
              }
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 4,
              tracks => undef
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => {
              cdid => 5,
              tracks => undef
            }
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => undef,
      title => "fuzzy_1",
      year => 1977
    },
    {
      artist => 1,
      single_track => undef,
      title => "fuzzy_2",
      year => 1977
    }
  ],
  'non-collapsing 1:1:1:M:M chain ' . $rs->result_class,
;

cmp_deeply
  [ $rs->search({}, {
    columns => {
      'artist'                                  => 'me.artist',
      'title'                                   => 'me.title',
      'year'                                    => 'me.year',
      'single_track.cd.artist.artistid'         => 'artist.artistid',
      'single_track.cd.artist.cds.cdid'         => 'cds.cdid',
      'single_track.cd.artist.cds.tracks.title' => 'tracks.title',
    },
    join => { single_track => { cd => { artist => { cds => 'tracks' } } } },
    order_by => [qw/me.cdid artist.artistid cds.cdid tracks.trackid/],
    collapse => 1,
  })->all ],
  [
    {
      artist => 1,
      single_track => undef,
      title => "Magnetic Fields",
      year => 1981
    },
    {
      artist => 1,
      single_track => undef,
      title => "Oxygene",
      year => 1976
    },
    {
      artist => 1,
      single_track => {
        cd => {
          artist => {
            artistid => 1,
            cds => [
              {
                cdid => 1,
                tracks => [
                  {
                    title => "m1"
                  },
                  {
                    title => "m2"
                  },
                  {
                    title => "m3"
                  },
                  {
                    title => "m4"
                  }
                ]
              },
              {
                cdid => 2,
                tracks => [
                  {
                    title => "o2"
                  },
                  {
                    title => "o1"
                  }
                ]
              },
              {
                cdid => 3,
                tracks => [
                  {
                    title => "e1"
                  },
                  {
                    title => "e2"
                  },
                  {
                    title => "e3"
                  }
                ]
              },
              {
                cdid => 4,
                tracks => []
              },
              {
                cdid => 5,
                tracks => []
              }
            ]
          }
        }
      },
      title => "Equinoxe",
      year => 1978
    },
    {
      artist => 1,
      single_track => undef,
      title => "fuzzy_1",
      year => 1977
    },
    {
      artist => 1,
      single_track => undef,
      title => "fuzzy_2",
      year => 1977
    }
  ],
  'collapsing 1:1:1:M:M chain ' . $rs->result_class,
;

}

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