[dbsrgits/DBIx-Class.git] / t / multi_create / has_many.t

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");
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");