X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2F96multi_create.t;h=4f32e68010c8caed73958d2bc2bdf8c4bdcd4b65;hp=23badf92ebe96f77b328c79d081894366ae35e41;hb=9c6d6d935cf5ef946fafec02a33a3d2415ba706f;hpb=9ea866716b5ed90a493776f827ca1867c815d142 diff --git a/t/96multi_create.t b/t/96multi_create.t index 23badf9..4f32e68 100644 --- a/t/96multi_create.t +++ b/t/96multi_create.t @@ -1,14 +1,12 @@ use strict; use warnings; -use Test::More; +use Test::More qw(no_plan); use lib qw(t/lib); use DBICTest; my $schema = DBICTest->init_schema(); -plan tests => 17; - my $cd2 = $schema->resultset('CD')->create({ artist => { name => 'Fred Bloggs' }, title => 'Some CD', @@ -105,10 +103,13 @@ CREATE_RELATED2 :{ } ], + liner_notes => { notes => 'I can haz liner notes?' }, + }); ok( $cd_result && ref $cd_result eq 'DBICTest::CD', "Got Good CD Class"); ok( $cd_result->title eq "TestOneCD2", "Got Expected Title"); + ok( $cd_result->notes eq 'I can haz liner notes?', 'Liner notes'); my $tracks = $cd_result->tracks;