fix test
[dbsrgits/DBIx-Class-Historic.git] / t / 52cycle.t
CommitLineData
a917fb06 1use strict;
2use warnings;
3use Test::More;
4
5use lib qw(t/lib);
6
7BEGIN {
e43797df 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";
a917fb06 11 } else {
12 plan tests => 1;
13 }
14}
15
16use DBICTest;
17use DBICTest::Schema;
18
19import Test::Memory::Cycle;
20
21my $s = DBICTest::Schema->clone;
22
23memory_cycle_ok($s, 'No cycles in schema');