MSSQL GUID support
[dbsrgits/DBIx-Class-Historic.git] / 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');