11 my $schema = DBICTest->init_schema();
16 my $artist = $schema->resultset ('Artist')->search ({}, { rows => 1})->single, # braindead sqlite
18 $schema->storage->debug (1);
19 my $cd = $schema->resultset ('CD')->create ({
21 title => 'Get in order',
30 lives_ok (sub { $cd->delete}, "Cascade delete on ordered has_many doesn't bomb");