fixed up sqlt tests a bit and tried fixing 2 failing sqlt tests
[dbsrgits/DBIx-Class-Historic.git] / 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 => 36;
11
12 is_deeply([ sort $schema->source('CD')->unique_constraint_names ], [ qw/cd_artist_title primary/ ], 'CD source has an automatically named unique constraint');
13 is_deeply([ sort $schema->source('Producer')->unique_constraint_names ], [ qw/primary prod_name/ ], 'Producer source has a named unique constraint');
14
15 my $artistid = 1;
16 my $title    = 'UNIQUE Constraint';
17
18 my $cd1 = $schema->resultset('CD')->find_or_create({
19   artist => $artistid,
20   title  => $title,
21   year   => 2005,
22 });
23
24 my $cd2 = $schema->resultset('CD')->find(
25   {
26     artist => $artistid,
27     title  => $title,
28   },
29   { key => 'cd_artist_title' }
30 );
31
32 is($cd2->get_column('artist'), $cd1->get_column('artist'), 'find by specific key: artist is correct');
33 is($cd2->title, $cd1->title, 'title is correct');
34 is($cd2->year, $cd1->year, 'year is correct');
35
36 my $cd3 = $schema->resultset('CD')->find($artistid, $title, { key => 'cd_artist_title' });
37
38 is($cd3->get_column('artist'), $cd1->get_column('artist'), 'find by specific key, ordered columns: artist is correct');
39 is($cd3->title, $cd1->title, 'title is correct');
40 is($cd3->year, $cd1->year, 'year is correct');
41
42 my $cd4 = $schema->resultset('CD')->update_or_create(
43   {
44     artist => $artistid,
45     title  => $title,
46     year   => 2007,
47   },
48 );
49
50 ok(! $cd4->is_changed, 'update_or_create without key: row is clean');
51 is($cd4->cdid, $cd2->cdid, 'cdid is correct');
52 is($cd4->get_column('artist'), $cd2->get_column('artist'), 'artist is correct');
53 is($cd4->title, $cd2->title, 'title is correct');
54 is($cd4->year, 2007, 'updated year is correct');
55
56 my $cd5 = $schema->resultset('CD')->update_or_create(
57   {
58     artist => $artistid,
59     title  => $title,
60     year   => 2007,
61   },
62   { key => 'cd_artist_title' }
63 );
64
65 ok(! $cd5->is_changed, 'update_or_create by specific key: row is clean');
66 is($cd5->cdid, $cd2->cdid, 'cdid is correct');
67 is($cd5->get_column('artist'), $cd2->get_column('artist'), 'artist is correct');
68 is($cd5->title, $cd2->title, 'title is correct');
69 is($cd5->year, 2007, 'updated year is correct');
70
71 my $cd6 = $schema->resultset('CD')->update_or_create(
72   {
73     cdid   => $cd2->cdid,
74     artist => 1,
75     title  => $cd2->title,
76     year   => 2005,
77   },
78   { key => 'primary' }
79 );
80
81 ok(! $cd6->is_changed, 'update_or_create by PK: row is clean');
82 is($cd6->cdid, $cd2->cdid, 'cdid is correct');
83 is($cd6->get_column('artist'), $cd2->get_column('artist'), 'artist is correct');
84 is($cd6->title, $cd2->title, 'title is correct');
85 is($cd6->year, 2005, 'updated year is correct');
86
87 my $cd7 = $schema->resultset('CD')->find_or_create(
88   {
89     artist => $artistid,
90     title  => $title,
91     year   => 2010,
92   },
93   { key => 'cd_artist_title' }
94 );
95
96 is($cd7->cdid, $cd1->cdid, 'find_or_create by specific key: cdid is correct');
97 is($cd7->get_column('artist'), $cd1->get_column('artist'), 'artist is correct');
98 is($cd7->title, $cd1->title, 'title is correct');
99 is($cd7->year, $cd1->year, 'year is correct');
100
101 my $artist = $schema->resultset('Artist')->find($artistid);
102 my $cd8 = $artist->find_or_create_related('cds',
103   {
104     title  => $title,
105     year   => 2020,
106   },
107   { key => 'cd_artist_title' }
108 );
109
110 is($cd8->cdid, $cd1->cdid, 'find_or_create related by specific key: cdid is correct');
111 is($cd8->get_column('artist'), $cd1->get_column('artist'), 'artist is correct');
112 is($cd8->title, $cd1->title, 'title is correct');
113 is($cd8->year, $cd1->year, 'year is correct');
114
115 my $cd9 = $artist->update_or_create_related('cds',
116   {
117     title  => $title,
118     year   => 2021,
119   },
120   { key => 'cd_artist_title' }
121 );
122
123 ok(! $cd9->is_changed, 'update_or_create by specific key: row is clean');
124 is($cd9->cdid, $cd1->cdid, 'cdid is correct');
125 is($cd9->get_column('artist'), $cd1->get_column('artist'), 'artist is correct');
126 is($cd9->title, $cd1->title, 'title is correct');
127 is($cd9->year, 2021, 'year is correct');
128