Commit | Line | Data |
a917fb06 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | |
5 | use lib qw(t/lib); |
6 | |
7 | BEGIN { |
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 | |
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'); |