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