Commit | Line | Data |
87f0da6a |
1 | sub run_tests { |
2 | my $schema = shift; |
3 | |
4 | plan tests => 18; |
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 | |
72 | } |
73 | |
74 | 1; |