8 my $schema = DBICTest->init_schema();
11 my $cd = $schema->resultset('CD')->first;
12 my $track = $schema->resultset('Track')->new_result({
14 title => 'Multicreate rocks',
16 artist => $cd->artist,
18 title => 'Disemboweling MultiCreate',
22 isa_ok ($track, 'DBICTest::Track', 'Main Track object created');
26 ok(1, 'created track');
28 is($track->title, 'Multicreate rocks', 'Correct Track title');
30 my $single = $track->cd_single;
32 ok($single->cdid, 'Got cdid');