8 my $schema = DBICTest->init_schema();
12 my $cd2 = $schema->resultset('CD')->create({ artist =>
13 { name => 'Fred Bloggs' },
18 is(ref $cd2->artist, 'DBICTest::Artist', 'Created CD and Artist object');
19 is($cd2->artist->name, 'Fred Bloggs', 'Artist created correctly');
21 my $artist = $schema->resultset('Artist')->create({ name => 'Fred 2',
23 { title => 'Music to code by',
28 is(ref $artist->cds->first, 'DBICTest::CD', 'Created Artist with CDs');
29 is($artist->cds->first->title, 'Music to code by', 'CD created correctly');
32 $artist->update({cds => [ $artist->cds,
33 { title => 'Yet another CD',
38 is(($artist->cds->search({}, { order_by => 'year' }))[0]->title, 'Yet another CD', 'Updated and added another CD');
40 my $newartist = $schema->resultset('Artist')->find_or_create({ name => 'Fred 2'});
42 is($newartist->name, 'Fred 2', 'Retrieved the artist');
44 my $newartist2 = $schema->resultset('Artist')->find_or_create({ name => 'Fred 3',
46 { title => 'Noah Act',
53 is($newartist2->name, 'Fred 3', 'Created new artist with cds via find_or_create');