9 sub mc_diag { diag (@_) if $ENV{DBIC_MULTICREATE_DEBUG} };
13 my $schema = DBICTest->init_schema();
16 * Test a multilevel might-have with a PK == FK in the might_have/has_many table
18 CD -> might have -> Artwork
28 my $cd = $schema->resultset('CD')->create ({
29 artist => { name => 'the cincinnati kid' },
30 title => 'Music to code by until the cows come home',
33 artwork_to_artist => [
34 { artist => { name => 'cowboy joe' } },
35 { artist => { name => 'billy the kid' } },
40 isa_ok ($cd, 'DBICTest::CD', 'Main CD object created');
41 is ($cd->title, 'Music to code by until the cows come home', 'Correct CD title');
42 is ($cd->artist->name, 'the cincinnati kid', 'Correct artist created for CD');
44 my $art_obj = $cd->artwork;
45 ok ($art_obj->has_column_loaded ('cd_id'), 'PK/FK present on artwork object');
46 is ($art_obj->artists->count, 2, 'Correct artwork creator count via the new object');
48 [ sort $art_obj->artists->get_column ('name')->all ],
49 [ 'billy the kid', 'cowboy joe' ],
50 'Artists named correctly when queried via object',
53 my $artwork = $schema->resultset('Artwork')->search (
54 { 'cd.title' => 'Music to code by until the cows come home' },
57 is ($artwork->artists->count, 2, 'Correct artwork creator count via a new search');
59 [ sort $artwork->artists->get_column ('name')->all ],
60 [ 'billy the kid', 'cowboy joe' ],
61 'Artists named correctly queried via a new search',
63 }, 'multilevel might-have with a PK == FK in the might_have/has_many table ok');
67 * Try the same as above in a different direction
69 Artist -> has_many -> Artwork_to_Artist -> belongs_to
71 belongs_to <- CD <- belongs_to <- Artwork <-/
78 $schema->resultset ('Artist')->create ({
79 name => 'The wooled wolf',
80 artist_to_artwork => [{
83 title => 'Wool explosive',
85 artist => { name => 'The black exploding sheep' },
91 my $art2 = $schema->resultset ('Artist')->find ({ name => 'The black exploding sheep' });
92 ok ($art2, 'Second artist exists');
94 my $cd = $art2->cds->single;
95 is ($cd->title, 'Wool explosive', 'correctly created CD');
98 [ $cd->artwork->artists->get_column ('name')->all ],
99 [ 'The wooled wolf' ],
100 'Artist correctly attached to artwork',
103 }, 'Diamond chain creation ok');