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 position => 77, # some day me might test this with Ordered
16 title => 'Multicreate rocks',
18 artist => $cd->artist,
20 title => 'Disemboweling MultiCreate',
24 isa_ok ($track, 'DBICTest::Track', 'Main Track object created');
28 ok(1, 'created track');
30 is($track->title, 'Multicreate rocks', 'Correct Track title');
32 my $single = $track->cd_single;
34 ok($single->cdid, 'Got cdid');