my $schema = DBICTest->init_schema();
$schema->_unregister_source('CD');
-warnings_like {
+warnings_exist {
my $s = $schema;
lives_ok {
$_->delete for $s->resultset('Artist')->all;
} 'delete on rows with dangling rels lives';
} [
- # 12 == 3 artists * failed cascades:
+ # 9 == 3 artists * failed cascades:
# cds
# cds_unordered
# cds_very_very_very_long_relationship_name