From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 21 Apr 2013 07:08:07 +0000 (+0200)
Subject: Silence pesky Devel::Cycle warning in leak test on 5.12+
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85aaaac84f71d621eac78434ec7a23daa4c08b9d;p=dbsrgits%2FDBIx-Class-Historic.git

Silence pesky Devel::Cycle warning in leak test on 5.12+
---

diff --git a/t/52leaks.t b/t/52leaks.t
index f1d11af..4bc48ab 100644
--- a/t/52leaks.t
+++ b/t/52leaks.t
@@ -302,7 +302,15 @@ my @compose_ns_classes;
 
   SKIP: {
     if ( DBIx::Class::Optional::Dependencies->req_ok_for ('test_leaks') ) {
-      Test::Memory::Cycle::memory_cycle_ok ($base_collection, 'No cycles in the object collection')
+      my @w;
+      local $SIG{__WARN__} = sub { $_[0] =~ /\QUnhandled type: REGEXP/ ? push @w, @_ : warn @_ };
+
+      Test::Memory::Cycle::memory_cycle_ok ($base_collection, 'No cycles in the object collection');
+
+      if ( $] > 5.011 ) {
+        local $TODO = 'Silence warning due to RT56681';
+        is (@w, 0, 'No Devel::Cycle emitted warnings');
+      }
     }
     else {
       skip 'Circular ref test needs ' .  DBIx::Class::Optional::Dependencies->req_missing_for ('test_leaks'), 1;