9 my $schema = DBICTest->init_schema();
13 # Test various uses of passing an object to find, create, and update on a single
16 my $artist = $schema->resultset("Artist")->find(1);
18 my $cd = $schema->resultset("CD")->find_or_create({
20 title => "Object on a might_have",
23 ok(defined $cd, 'created a CD');
24 is($cd->get_column('artist'), $artist->id, 'artist matches CD');
26 my $liner_notes = $schema->resultset("LinerNotes")->find_or_create({
28 notes => "Creating using an object on a might_have is helpful.",
30 ok(defined $liner_notes, 'created liner notes');
31 is($liner_notes->liner_id, $cd->cdid, 'liner notes matches CD');
32 is($liner_notes->notes, "Creating using an object on a might_have is helpful.", 'liner notes are correct');
34 my $track = $cd->tracks->find_or_create({
36 title => 'Single Accessor'
38 is($track->get_column('cd'), $cd->cdid, 'track matches CD before update');
40 my $another_cd = $schema->resultset("CD")->find(5);
41 $track->update({ disc => $another_cd });
42 is($track->get_column('cd'), $another_cd->cdid, 'track matches another CD after update');
45 $schema = DBICTest->init_schema();
48 my $artist = $schema->resultset('Artist')->create({ artistid => 666, name => 'bad religion' });
49 my $cd = $schema->resultset('CD')->create({ cdid => 187, artist => 1, title => 'how could hell be any worse?', year => 1982, genreid => undef });
51 ok(!defined($cd->genreid), 'genreid is NULL');
52 ok(!defined($cd->genre), 'genre accessor returns undef');
55 $schema = DBICTest->init_schema();
58 my $artist = $schema->resultset('Artist')->create({ artistid => 666, name => 'bad religion' });
59 my $genre = $schema->resultset('Genre')->create({ genreid => 88, name => 'disco', demographicid => 1 });
60 my $cd = $schema->resultset('CD')->create({ cdid => 187, artist => 1, title => 'how could hell be any worse?', year => 1982 });
62 dies_ok { $cd->genre } 'genre accessor throws without column';