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 };
   9   if ($@) {
  10     plan skip_all => "leak test needs Test::Memory::Cycle";
  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');