X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F96multi_create.t;h=23badf92ebe96f77b328c79d081894366ae35e41;hb=a28009914a3e447af53737d503b1953160d146c9;hp=24b5d0f9e9f7a7bc0bd961a26c505290d518ff6e;hpb=3d8ee6abf96e514d1e555fb9a9b5a465c494f718;p=dbsrgits%2FDBIx-Class.git diff --git a/t/96multi_create.t b/t/96multi_create.t index 24b5d0f..23badf9 100644 --- a/t/96multi_create.t +++ b/t/96multi_create.t @@ -7,7 +7,7 @@ use DBICTest; my $schema = DBICTest->init_schema(); -plan tests => 11; +plan tests => 17; my $cd2 = $schema->resultset('CD')->create({ artist => { name => 'Fred Bloggs' }, @@ -89,10 +89,11 @@ CREATE_RELATED1 :{ CREATE_RELATED2 :{ + my $artist = $schema->resultset('Artist')->first; - my $cd_result = $schema->resultset('Artist')->first->create_related('cds', { + my $cd_result = $artist->create_related('cds', { - title => 'TestOneCD1', + title => 'TestOneCD2', year => 2007, tracks => [ @@ -107,7 +108,7 @@ CREATE_RELATED2 :{ }); ok( $cd_result && ref $cd_result eq 'DBICTest::CD', "Got Good CD Class"); - ok( $cd_result->title eq "TestOneCD1", "Got Expected Title"); + ok( $cd_result->title eq "TestOneCD2", "Got Expected Title"); my $tracks = $cd_result->tracks;