t/93single_accessor_object.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Exception;
   6 use lib qw(t/lib);
   7 use DBICTest;
   8
   9 my $schema = DBICTest->init_schema();
  10
  11 plan tests => 10;
  12
  13 # Test various uses of passing an object to find, create, and update on a single
  14 # rel accessor
  15 {
  16   my $artist = $schema->resultset("Artist")->find(1);
  17
  18   my $cd = $schema->resultset("CD")->find_or_create({
  19     artist => $artist,
  20     title  => "Object on a might_have",
  21     year   => 2006,
  22   });
  23   ok(defined $cd, 'created a CD');
  24   is($cd->get_column('artist'), $artist->id, 'artist matches CD');
  25
  26   my $liner_notes = $schema->resultset("LinerNotes")->find_or_create({
  27     cd     => $cd,
  28     notes  => "Creating using an object on a might_have is helpful.",
  29   });
  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');
  33
  34   my $track = $cd->tracks->find_or_create({
  35     position => 127,
  36     title    => 'Single Accessor'
  37   });
  38   is($track->get_column('cd'), $cd->cdid, 'track matches CD before update');
  39
  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');
  43 }
  44
  45 $schema = DBICTest->init_schema();
  46
  47 {
  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 });
  50
  51   ok(!defined($cd->get_column('genreid')), 'genreid is NULL');  #no accessor was defined for this column
  52   ok(!defined($cd->genre), 'genre accessor returns undef');
  53 }
  54
  55 $schema = DBICTest->init_schema();
  56
  57 {
  58   my $artist = $schema->resultset('Artist')->create({ artistid => 666, name => 'bad religion' });
  59   my $genre = $schema->resultset('Genre')->create({ genreid => 88, name => 'disco' });
  60   my $cd = $schema->resultset('CD')->create({ cdid => 187, artist => 1, title => 'how could hell be any worse?', year => 1982 });
  61
  62   dies_ok { $cd->genre } 'genre accessor throws without column';
  63 }
  64