t/52cycle.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use lib qw(t/lib);
   6
   7 BEGIN {
   8   eval { require Test::Memory::Cycle; require Devel::Cycle };
   9   if ($@ or Devel::Cycle->VERSION < 1.10) {
  10     plan skip_all => "leak test needs Test::Memory::Cycle and Devel::Cycle >= 1.10";
  11   } else {
  12     plan tests => 1;
  13   }
  14 }
  15
  16 use DBICTest;
  17 use DBICTest::Schema;
  18
  19 import Test::Memory::Cycle;
  20
  21 my $s = DBICTest::Schema->clone;
  22
  23 memory_cycle_ok($s, 'No cycles in schema');