Merge branch 'master' into topic/constructor_rewrite

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

diff --git a/t/delete/cascade_missing.t b/t/delete/cascade_missing.t
new file mode 100644 (file)
index 0000000..03de883
--- /dev/null
+++ b/t/delete/cascade_missing.t
@@ -0,0 +1,28 @@
+use strict;
+use warnings;
+
+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 {
+  my $s = $schema;
+  lives_ok {
+    $_->delete for $s->resultset('Artist')->all;
+  } 'delete on rows with dangling rels lives';
+} [
+  # 12 == 3 artists * failed cascades:
+  #   cds
+  #   cds_unordered
+  #   cds_very_very_very_long_relationship_name
+  (qr/skipping cascad/i) x 9
+], 'got warnings about cascading deletes';
+
+done_testing;
+