Make sure that redefining role metaclass does not affect other classes

diff --git a/t/030_roles/038_role_metaclass.t b/t/030_roles/038_role_metaclass.t
index bb9c0c2..dd57b37 100644 (file)
--- a/t/030_roles/038_role_metaclass.t
+++ b/t/030_roles/038_role_metaclass.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More tests => 2;
 use Moose ();
 
 BEGIN {
@@ -26,9 +26,15 @@ BEGIN {
     use Moose::Role;
 
     no Moose::Role;
+
+    package MyOtherRole;
+    use Moose::Role;
+
+    no Moose::Role;
 };
 
 isa_ok( MyRole->meta, 'My::Meta::Role' );
+isa_ok( MyOtherRole->meta, 'Moose::Meta::Role' );
 
 # my $role = MyRole->meta->create_anon_role;
 # is( $role->test_serial, 1, "default value for the serial attribute" );