File: 52cycle.t

package info (click to toggle)
libdbix-class-perl 0.08010-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 2,052 kB
  • ctags: 1,064
  • sloc: perl: 10,536; sql: 225; makefile: 45
file content (23 lines) | stat: -rwxr-xr-x 366 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
use strict;
use warnings;
use Test::More;

use lib qw(t/lib);

BEGIN {
  eval { require Test::Memory::Cycle };
  if ($@) {
    plan skip_all => "leak test needs Test::Memory::Cycle";
  } else {
    plan tests => 1;
  }
}

use DBICTest;
use DBICTest::Schema;

import Test::Memory::Cycle;

my $s = DBICTest::Schema->clone;

memory_cycle_ok($s, 'No cycles in schema');