1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
13 my $schema = DBICTest->init_schema();
14 $schema->_unregister_source('CD');
19 $_->delete for $s->resultset('Artist')->all;
20 } 'delete on rows with dangling rels lives';
22 # 9 == 3 artists * failed cascades:
25 # cds_very_very_very_long_relationship_name
26 (qr/skipping cascad/i) x 9
27 ], 'got warnings about cascading deletes';