[dbsrgits/DBIx-Class.git] / t / 52cycle.t

use strict;
use warnings;
use Test::More;

use lib qw(t/lib);

BEGIN {
  eval { require Test::Memory::Cycle; require Devel::Cycle };
  if ($@ or Devel::Cycle->VERSION < 1.10) {
    plan skip_all => "leak test needs Test::Memory::Cycle and Devel::Cycle >= 1.10";
  } 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');
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');