Commit | Line | Data |
87f0da6a |
1 | sub run_tests { |
2 | my $schema = shift; |
3 | |
045120e6 |
4 | plan tests => 30; |
87f0da6a |
5 | |
6 | my $artistid = 1; |
7 | my $title = 'UNIQUE Constraint'; |
8 | |
9 | my $cd1 = $schema->resultset('CD')->find_or_create({ |
10 | artist => $artistid, |
11 | title => $title, |
12 | year => 2005, |
13 | }); |
14 | |
15 | my $cd2 = $schema->resultset('CD')->find( |
16 | { |
17 | artist => $artistid, |
18 | title => $title, |
19 | }, |
20 | { key => 'artist_title' } |
21 | ); |
22 | |
23 | is($cd2->get_column('artist'), $cd1->get_column('artist'), 'find by specific key: artist is correct'); |
24 | is($cd2->title, $cd1->title, 'title is correct'); |
25 | is($cd2->year, $cd1->year, 'year is correct'); |
26 | |
27 | my $cd3 = $schema->resultset('CD')->update_or_create( |
28 | { |
29 | artist => $artistid, |
30 | title => $title, |
31 | year => 2007, |
32 | }, |
33 | ); |
34 | |
35 | ok(! $cd3->is_changed, 'update_or_create without key: row is clean'); |
36 | is($cd3->cdid, $cd2->cdid, 'cdid is correct'); |
37 | is($cd3->get_column('artist'), $cd2->get_column('artist'), 'artist is correct'); |
38 | is($cd3->title, $cd2->title, 'title is correct'); |
39 | is($cd3->year, 2007, 'updated year is correct'); |
40 | |
41 | my $cd4 = $schema->resultset('CD')->update_or_create( |
42 | { |
43 | artist => $artistid, |
44 | title => $title, |
45 | year => 2007, |
46 | }, |
47 | { key => 'artist_title' } |
48 | ); |
49 | |
50 | ok(! $cd4->is_changed, 'update_or_create by specific 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 | cdid => $cd2->cdid, |
59 | artist => 1, |
60 | title => $cd2->title, |
61 | year => 2005, |
62 | }, |
63 | { key => 'primary' } |
64 | ); |
65 | |
66 | ok(! $cd5->is_changed, 'update_or_create by PK: row is clean'); |
67 | is($cd5->cdid, $cd2->cdid, 'cdid is correct'); |
68 | is($cd5->get_column('artist'), $cd2->get_column('artist'), 'artist is correct'); |
69 | is($cd5->title, $cd2->title, 'title is correct'); |
70 | is($cd5->year, 2005, 'updated year is correct'); |
71 | |
8dc40f3e |
72 | my $cd6 = $schema->resultset('CD')->find_or_create( |
73 | { |
74 | artist => $artistid, |
75 | title => $title, |
76 | year => 2010, |
77 | }, |
78 | { key => 'artist_title' } |
79 | ); |
80 | |
81 | is($cd6->cdid, $cd1->cdid, 'find or create by specific key: cdid is correct'); |
82 | is($cd6->get_column('artist'), $cd1->get_column('artist'), 'artist is correct'); |
83 | is($cd6->title, $cd1->title, 'title is correct'); |
84 | is($cd6->year, $cd1->year, 'year is correct'); |
85 | |
86 | my $artist = $schema->resultset('Artist')->find($artistid); |
87 | my $cd7 = $artist->find_or_create_related('cds', |
88 | { |
89 | artist => $artistid, |
90 | title => $title, |
91 | year => 2020, |
92 | }, |
93 | { key => 'artist_title' } |
94 | ); |
95 | |
96 | is($cd7->cdid, $cd1->cdid, 'find or create related 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 | |
045120e6 |
101 | my $cd8 = $artist->update_or_create_related('cds', |
102 | { |
103 | artist => $artistid, |
104 | title => $title, |
105 | year => 2021, |
106 | }, |
107 | { key => 'artist_title' } |
108 | ); |
109 | |
110 | is($cd8->cdid, $cd1->cdid, 'update 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, 2021, 'year is correct'); |
114 | |
87f0da6a |
115 | } |
116 | |
117 | 1; |