X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbugs%2Fmemory_leaks.t;h=1dba48387c8d4c3e0143586285771f806efeb41d;hb=8fada38ce9cfdffba60142dbf99b2a02707b2da2;hp=49b3690eede52adf6db9085fe99ef75bded0d508;hpb=bf46ee52709c38edc600f24ceb3a334d2c90965e;p=gitmo%2FMoose.git

diff --git a/t/bugs/memory_leaks.t b/t/bugs/memory_leaks.t
index 49b3690..1dba483 100644
--- a/t/bugs/memory_leaks.t
+++ b/t/bugs/memory_leaks.t
@@ -2,7 +2,8 @@ use strict;
 use warnings;
 
 use Test::Requires {
-    'Test::LeakTrace' => '0.01',
+    'Test::LeakTrace'     => '0.01',
+    'Test::Memory::Cycle' => '0',
 };
 
 use Test::More;
@@ -15,7 +16,8 @@ use Moose::Util qw( apply_all_roles );
     use Moose::Role;
     sub myname { "I'm a role" }
 }
-
+use Data::Dumper ();
+my $o = Data::Dumper->can('_dump'); *Data::Dumper::_dump = sub { Scalar::Util::isweak($_[1]) ? 'WEAK<'.&$o.'>' : &$o };
 no_leaks_ok(
     sub {
         Moose::Meta::Class->create_anon_class->new_object;
@@ -74,4 +76,18 @@ no_leaks_ok(
     'making an anon class immutable is leak-free'
 );
 
+{
+    my $meta3 = Class::MOP::Class->create('MyClass3');
+    memory_cycle_ok( $meta3, 'named metaclass object is cycle-free' );
+    memory_cycle_ok( $meta3->new_object, 'MyClass3 object is cycle-free' );
+
+    my $anon = Class::MOP::Class->create_anon_class;
+    memory_cycle_ok($anon, 'anon metaclass object is cycle-free' );
+    memory_cycle_ok( $anon->new_object, 'object from anon metaclass is cycle-free' );
+
+    $anon->make_immutable;
+    memory_cycle_ok($anon, 'immutable anon metaclass object is cycle-free' );
+    memory_cycle_ok( $anon->new_object, 'object from immutable anon metaclass is cycle-free' );
+}
+
 done_testing;