+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::Warn;
use Test::Exception;
-use lib 't/lib';
+
use DBICTest;
my $schema = DBICTest->init_schema();
$schema->_unregister_source('CD');
-warnings_like {
+warnings_exist {
+ my $s = $schema;
lives_ok {
- $_->delete for $schema->resultset('Artist')->all;
+ $_->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