4 use Test::More qw(no_plan);
9 my $schema = DBICTest->init_schema();
12 my $cd = $schema->resultset('CD')->first;
13 my $track = $schema->resultset('Track')->new_result({
15 title => 'Multicreate rocks',
17 artist => $cd->artist,
19 title => 'Disemboweling MultiCreate',
23 isa_ok ($track, 'DBICTest::Track', 'Main Track object created');
27 ok(1, 'created track');
29 is($track->title, 'Multicreate rocks', 'Correct Track title');
31 my $single = $track->cd_single;
33 ok($single->cdid, 'Got cdid');