X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fdelete%2Fcascade_missing.t;h=54270e8a56b82b29d1b52820b6a4f7f6df54009c;hb=aa072cab54f2e6af9a9db82b3cdec0ebb97717cc;hp=f5b95a189d37005e4823b886f461d3b1eddafce5;hpb=51c9ead29aaceabb3603e89cc9790802fbfe89b3;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/delete/cascade_missing.t b/t/delete/cascade_missing.t
index f5b95a1..54270e8 100644
--- a/t/delete/cascade_missing.t
+++ b/t/delete/cascade_missing.t
@@ -1,3 +1,5 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
 use warnings;
 
@@ -5,18 +7,19 @@ use Test::More;
 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