Commit | Line | Data |
49377893 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
49377893 |
5 | use lib qw(t/lib); |
6 | use DBICTest; |
7 | |
c9733800 |
8 | plan tests => 2; |
9 | |
49377893 |
10 | my $schema = DBICTest->init_schema(); |
11 | |
c9733800 |
12 | my $track_no_lyrics = $schema->resultset ('Track') |
13 | ->search ({ 'lyrics.lyric_id' => undef }, { join => 'lyrics' }) |
14 | ->first; |
15 | |
16 | my $lyric = $track_no_lyrics->create_related ('lyrics', { |
17 | lyric_versions => [ |
18 | { text => 'english doubled' }, |
19 | { text => 'english doubled' }, |
20 | ], |
49377893 |
21 | }); |
c9733800 |
22 | is ($lyric->lyric_versions->count, 2, "Two identical has_many's created"); |
49377893 |
23 | |
24 | |
c9733800 |
25 | my $link = $schema->resultset ('Link')->create ({ |
49377893 |
26 | url => 'lolcats!', |
27 | bookmarks => [ |
28 | {}, |
29 | {}, |
30 | ] |
31 | }); |
32 | is ($link->bookmarks->count, 2, "Two identical default-insert has_many's created"); |