[Bast-commits] r6557 - in DBIx-Class/0.08/trunk: . t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-09 11:12:46 +0000 (Tue, 09 Jun 2009)
New Revision: 6557

Modified:
   DBIx-Class/0.08/trunk/Makefile.PL
   DBIx-Class/0.08/trunk/t/52cycle.t
Log:
Require a recent bugfixed Devel::Cycle

Modified: DBIx-Class/0.08/trunk/Makefile.PL
===================================================================
--- DBIx-Class/0.08/trunk/Makefile.PL	2009-06-09 10:20:34 UTC (rev 6556)
+++ DBIx-Class/0.08/trunk/Makefile.PL	2009-06-09 11:12:46 UTC (rev 6557)
@@ -71,6 +71,7 @@
 
   # t/52cycle.t
   'Test::Memory::Cycle'       => 0,
+  'Devel::Cycle'              => 1.10,
 
   # t/60core.t
   'DateTime::Format::MySQL'   => 0,

Modified: DBIx-Class/0.08/trunk/t/52cycle.t
===================================================================
--- DBIx-Class/0.08/trunk/t/52cycle.t	2009-06-09 10:20:34 UTC (rev 6556)
+++ DBIx-Class/0.08/trunk/t/52cycle.t	2009-06-09 11:12:46 UTC (rev 6557)
@@ -5,9 +5,9 @@
 use lib qw(t/lib);
 
 BEGIN {
-  eval { require Test::Memory::Cycle };
-  if ($@) {
-    plan skip_all => "leak test needs Test::Memory::Cycle";
+  eval { require Test::Memory::Cycle; require Devel::Cycle };
+  if ($@ or Devel::Cycle->VERSION < 1.10) {
+    plan skip_all => "leak test needs Test::Memory::Cycle and Devel::Cycle >= 1.10";
   } else {
     plan tests => 1;
   }