projects
/
dbsrgits/DBIx-Class-Historic.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
This was dumb - of course I want a copy
[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 };
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');