sub mc_diag { diag (@_) if $ENV{DBIC_MULTICREATE_DEBUG} };
-plan tests => 26;
-
my $schema = DBICTest->init_schema();
mc_diag (<<'DG');
my $cd_title = "Test $type cd";
my $artist_names = [ map { "Artist via $type $_" } (1, 2) ];
- my $someartist = $artist_rs->next;
+ my $someartist = $artist_rs->search({}, { rows => 1 })->next;
lives_ok (sub {
my $cd = $schema->resultset('CD')->create ({
}, "multilevel $type with a PK == FK in the $type/has_many table ok");
}
-1;
+done_testing;