Test suite wide leaktesting

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

diff --git a/t/delete/cascade_missing.t b/t/delete/cascade_missing.t
index f5b95a1..03de883 100644 (file)
--- a/t/delete/cascade_missing.t
+++ b/t/delete/cascade_missing.t
@@ -12,8 +12,9 @@ my $schema = DBICTest->init_schema();
 $schema->_unregister_source('CD');
 
 warnings_like {
+  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: