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

use strict;
use warnings;

use Test::More;
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_$_" });
}

my $rs = $schema->resultset('CD');

is_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_hri,
  [
    {
      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'
;

is_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_hri,
  [
    {
      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',
;

is_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 => {}, #hashref to keep older DBIC versions happy (doesn't actually work)
  })->all_hri,
  [
    {
      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',
;

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