t/80unique.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest;
   7
   8 my $schema = DBICTest->init_schema();
   9
  10 plan tests => 43;
  11
  12 # Check the defined unique constraints
  13 is_deeply(
  14   [ sort $schema->source('CD')->unique_constraint_names ],
  15   [ qw/cd_artist_title primary/ ],
  16   'CD source has an automatically named unique constraint'
  17 );
  18 is_deeply(
  19   [ sort $schema->source('Producer')->unique_constraint_names ],
  20   [ qw/primary prod_name/ ],
  21   'Producer source has a named unique constraint'
  22 );
  23 is_deeply(
  24   [ sort $schema->source('Track')->unique_constraint_names ],
  25   [ qw/primary track_cd_position track_cd_title/ ],
  26   'Track source has three unique constraints'
  27 );
  28
  29 my $artistid = 1;
  30 my $title    = 'UNIQUE Constraint';
  31
  32 my $cd1 = $schema->resultset('CD')->find_or_create({
  33   artist => $artistid,
  34   title  => $title,
  35   year   => 2005,
  36 });
  37
  38 my $cd2 = $schema->resultset('CD')->find(
  39   {
  40     artist => $artistid,
  41     title  => $title,
  42   },
  43   { key => 'cd_artist_title' }
  44 );
  45
  46 is($cd2->get_column('artist'), $cd1->get_column('artist'), 'find by specific key: artist is correct');
  47 is($cd2->title, $cd1->title, 'title is correct');
  48 is($cd2->year, $cd1->year, 'year is correct');
  49
  50 my $cd3 = $schema->resultset('CD')->find($artistid, $title, { key => 'cd_artist_title' });
  51
  52 is($cd3->get_column('artist'), $cd1->get_column('artist'), 'find by specific key, ordered columns: artist is correct');
  53 is($cd3->title, $cd1->title, 'title is correct');
  54 is($cd3->year, $cd1->year, 'year is correct');
  55
  56 my $cd4 = $schema->resultset('CD')->update_or_create(
  57   {
  58     artist => $artistid,
  59     title  => $title,
  60     year   => 2007,
  61   },
  62 );
  63
  64 ok(! $cd4->is_changed, 'update_or_create without key: row is clean');
  65 is($cd4->cdid, $cd2->cdid, 'cdid is correct');
  66 is($cd4->get_column('artist'), $cd2->get_column('artist'), 'artist is correct');
  67 is($cd4->title, $cd2->title, 'title is correct');
  68 is($cd4->year, 2007, 'updated year is correct');
  69
  70 my $cd5 = $schema->resultset('CD')->update_or_create(
  71   {
  72     artist => $artistid,
  73     title  => $title,
  74     year   => 2007,
  75   },
  76   { key => 'cd_artist_title' }
  77 );
  78
  79 ok(! $cd5->is_changed, 'update_or_create by specific key: row is clean');
  80 is($cd5->cdid, $cd2->cdid, 'cdid is correct');
  81 is($cd5->get_column('artist'), $cd2->get_column('artist'), 'artist is correct');
  82 is($cd5->title, $cd2->title, 'title is correct');
  83 is($cd5->year, 2007, 'updated year is correct');
  84
  85 my $cd6 = $schema->resultset('CD')->update_or_create(
  86   {
  87     cdid   => $cd2->cdid,
  88     artist => 1,
  89     title  => $cd2->title,
  90     year   => 2005,
  91   },
  92   { key => 'primary' }
  93 );
  94
  95 ok(! $cd6->is_changed, 'update_or_create by PK: row is clean');
  96 is($cd6->cdid, $cd2->cdid, 'cdid is correct');
  97 is($cd6->get_column('artist'), $cd2->get_column('artist'), 'artist is correct');
  98 is($cd6->title, $cd2->title, 'title is correct');
  99 is($cd6->year, 2005, 'updated year is correct');
 100
 101 my $cd7 = $schema->resultset('CD')->find_or_create(
 102   {
 103     artist => $artistid,
 104     title  => $title,
 105     year   => 2010,
 106   },
 107   { key => 'cd_artist_title' }
 108 );
 109
 110 is($cd7->cdid, $cd1->cdid, 'find_or_create by specific key: cdid is correct');
 111 is($cd7->get_column('artist'), $cd1->get_column('artist'), 'artist is correct');
 112 is($cd7->title, $cd1->title, 'title is correct');
 113 is($cd7->year, $cd1->year, 'year is correct');
 114
 115 my $artist = $schema->resultset('Artist')->find($artistid);
 116 my $cd8 = $artist->find_or_create_related('cds',
 117   {
 118     title  => $title,
 119     year   => 2020,
 120   },
 121   { key => 'cd_artist_title' }
 122 );
 123
 124 is($cd8->cdid, $cd1->cdid, 'find_or_create related by specific key: cdid is correct');
 125 is($cd8->get_column('artist'), $cd1->get_column('artist'), 'artist is correct');
 126 is($cd8->title, $cd1->title, 'title is correct');
 127 is($cd8->year, $cd1->year, 'year is correct');
 128
 129 my $cd9 = $artist->update_or_create_related('cds',
 130   {
 131     title  => $title,
 132     year   => 2021,
 133   },
 134   { key => 'cd_artist_title' }
 135 );
 136
 137 ok(! $cd9->is_changed, 'update_or_create by specific key: row is clean');
 138 is($cd9->cdid, $cd1->cdid, 'cdid is correct');
 139 is($cd9->get_column('artist'), $cd1->get_column('artist'), 'artist is correct');
 140 is($cd9->title, $cd1->title, 'title is correct');
 141 is($cd9->year, 2021, 'year is correct');
 142
 143 # Table with two unique constraints, and we're satisying one of them
 144 my $track = $schema->resultset('Track')->find(
 145   {
 146     cd       => 1,
 147     position => 3,
 148   },
 149   { order_by => 'position' }
 150 );
 151
 152 is($track->get_column('cd'), 1, 'track cd is correct');
 153 is($track->get_column('position'), 3, 'track position is correct');
 154
 155 # Test a table with a unique constraint but no primary key
 156 my $row = $schema->resultset('NoPrimaryKey')->update_or_create(
 157   {
 158     foo => 1,
 159     bar => 2,
 160     baz => 3,
 161   },
 162   { key => 'foo_bar' }
 163 );
 164 is(! $row->is_changed, 1, 'update_or_create on table without primary key: row is clean');
 165 is($row->foo, 1, 'foo is correct');
 166 is($row->bar, 2, 'bar is correct');
 167 is($row->baz, 3, 'baz is correct');