From: Shawn M Moore <sartak@gmail.com>
Date: Wed, 15 Apr 2009 20:17:17 +0000 (-0400)
Subject: Make sure that redefining role metaclass does not affect other classes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7e636addf94711ccbe68b93045c042f60dce8de;p=gitmo%2FMoose.git

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
--- 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" );