Commit | Line | Data |
333cce60 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | sub run_tests { |
5 | my $schema = shift; |
6 | |
7 | plan tests => 4; |
8 | my $artist = $schema->resultset('Artist')->find(1); |
9 | my $artist_cds = $artist->search_related('cds'); |
10 | my $cover_band = $artist->copy; |
11 | my $cover_cds = $cover_band->search_related('cds'); |
12 | cmp_ok($cover_band->id, '!=', $artist->id, 'ok got new column id...'); |
13 | is($cover_cds->count, $artist_cds->count, 'duplicated rows count ok'); |
14 | |
15 | #check multi-keyed |
16 | cmp_ok($cover_band->search_related('twokeys')->count, '>', 0, 'duplicated multiPK ok'); |
17 | |
18 | #and check copying a few relations away |
19 | cmp_ok($cover_cds->search_related('tags')->count, '==', |
20 | $artist_cds->search_related('tags')->count , 'duplicated count ok'); |
21 | |
22 | } |
23 | 1; |