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