1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
10 my $schema = DBICTest->init_schema();
13 my $cd = $schema->resultset('CD')->first;
14 my $track = $schema->resultset('Track')->new_result({
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');