Introduce GOVERNANCE document and empty RESOLUTIONS file.

[dbsrgits/DBIx-Class.git] / t / delete / cascade_missing.t

diff --git a/t/delete/cascade_missing.t b/t/delete/cascade_missing.t
index 03de883..54270e8 100644 (file)
--- 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,19 +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 $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