X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F014_create_anon.t;fp=t%2F010_basics%2F014_create_anon.t;h=abae25e4e0452b83f49b069d1559d7798ea8e9e1;hb=6475f69defb20a02b6559bddf870a0821f28ac20;hp=6e681d00e489833cb10fa289c7b0099ffeb4a673;hpb=6d5a627396f91b2dce25a7b6e5c5dbe6b67f2d95;p=gitmo%2FMouse.git

diff --git a/t/010_basics/014_create_anon.t b/t/010_basics/014_create_anon.t
index 6e681d0..abae25e 100755
--- a/t/010_basics/014_create_anon.t
+++ b/t/010_basics/014_create_anon.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More;
 
 use Mouse::Meta::Class;
 
@@ -70,3 +70,18 @@ use Mouse::Meta::Class;
 
     ok $class_and_bar->name->bar_role_applied;
 }
+
+# This tests that a cached metaclass can be reinitialized and still retain its
+# metaclass object.
+{
+    my $name = Mouse::Meta::Class->create_anon_class(
+        superclasses => ['Class'],
+        cache        => 1,
+    )->name;
+
+    $name->meta->reinitialize( $name );
+
+    can_ok( $name, 'meta' );
+}
+
+done_testing;