From: Wallace Reis Date: Sat, 1 Nov 2008 00:42:56 +0000 (+0000) Subject: added failing test case for multi create X-Git-Tag: v0.08240~278 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b7b6c88cd90e22e52c6c13fb8a94fc0c83f9ca2;p=dbsrgits%2FDBIx-Class.git added failing test case for multi create --- diff --git a/t/96multi_create.t b/t/96multi_create.t index 8242908..c8957de 100644 --- a/t/96multi_create.t +++ b/t/96multi_create.t @@ -20,11 +20,16 @@ my $artist = $schema->resultset('Artist')->create({ name => 'Fred 2', cds => [ { title => 'Music to code by', year => 2007, + tags => [ + { 'tag' => 'rock' }, + { 'tag' => 'pop' }, + ], }, ], }); is(ref $artist->cds->first, 'DBICTest::CD', 'Created Artist with CDs'); is($artist->cds->first->title, 'Music to code by', 'CD created correctly'); +is($artist->cds->first->tags->count, 2, 'Correct tags count'); # Add a new CD $artist->update({cds => [ $artist->cds,