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

diff --git a/t/bugs/memory_leaks.t b/t/bugs/memory_leaks.t
index 1dba483..d9ddc84 100644
--- a/t/bugs/memory_leaks.t
+++ b/t/bugs/memory_leaks.t
@@ -77,17 +77,20 @@ no_leaks_ok(
 );
 
 {
-    my $meta3 = Class::MOP::Class->create('MyClass3');
+    my $meta3 = Moose::Meta::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' );
+    my $anon_class = Moose::Meta::Class->create_anon_class;
+    memory_cycle_ok($anon_class, 'anon metaclass object is cycle-free' );
+    memory_cycle_ok( $anon_class->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' );
+    $anon_class->make_immutable;
+    memory_cycle_ok($anon_class, 'immutable anon metaclass object is cycle-free' );
+    memory_cycle_ok( $anon_class->new_object, 'object from immutable anon metaclass is cycle-free' );
+
+    my $anon_role = Moose::Meta::Role->create_anon_role;
+    memory_cycle_ok($anon_role, 'anon role meta object is cycle-free' );
 }
 
 done_testing;