adding method exclusion

[gitmo/Moose.git] / t / 030_roles / 020_role_composite.t

diff --git a/t/030_roles/020_role_composite.t b/t/030_roles/020_role_composite.t
index 38e8307..ae6d88c 100644 (file)
--- a/t/030_roles/020_role_composite.t
+++ b/t/030_roles/020_role_composite.t
@@ -41,6 +41,13 @@ BEGIN {
         Role::Baz->meta,        
     ], '... got the right roles');
     
+    ok($c->does_role($_), '... our composite does the role ' . $_)
+        for qw(
+            Role::Foo
+            Role::Bar
+            Role::Baz            
+        );
+    
     lives_ok {
         Moose::Meta::Role::Application::RoleSummation->new->apply($c);
     } '... this composed okay';