X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2F021_role_composite_exclusion.t;h=322cd0a3049babc51b5d198882f33dbe0779bb29;hb=53a4d826caec4b82f5b23e0bc0a4e8e2f44243b9;hp=4a1cad69385baf31148ab870ae3b0763e2fb54e6;hpb=28412c0b280c30cfd1eac1579b9f5953b5e1850e;p=gitmo%2FMoose.git

diff --git a/t/030_roles/021_role_composite_exclusion.t b/t/030_roles/021_role_composite_exclusion.t
index 4a1cad6..322cd0a 100644
--- a/t/030_roles/021_role_composite_exclusion.t
+++ b/t/030_roles/021_role_composite_exclusion.t
@@ -3,33 +3,30 @@
 use strict;
 use warnings;
 
-use Test::More tests => 15;
+use Test::More;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');
-    use_ok('Moose::Meta::Role::Application::RoleSummation');    
-    use_ok('Moose::Meta::Role::Composite');
-}
+use Moose::Meta::Role::Application::RoleSummation;
+use Moose::Meta::Role::Composite;
 
 {
     package Role::Foo;
     use Moose::Role;
-    
+
     package Role::Bar;
     use Moose::Role;
-    
+
     package Role::ExcludesFoo;
     use Moose::Role;
     excludes 'Role::Foo';
-    
+
     package Role::DoesExcludesFoo;
     use Moose::Role;
-    with 'Role::ExcludesFoo';  
-    
+    with 'Role::ExcludesFoo';
+
     package Role::DoesFoo;
     use Moose::Role;
-    with 'Role::Foo';    
+    with 'Role::Foo';
 }
 
 ok(Role::ExcludesFoo->meta->excludes_role('Role::Foo'), '... got the right exclusions');
@@ -58,10 +55,10 @@ dies_ok {
     isa_ok($c, 'Moose::Meta::Role::Composite');
 
     is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name');
-    
+
     lives_ok {
         Moose::Meta::Role::Application::RoleSummation->new->apply($c);
-    } '... this lives as expected';    
+    } '... this lives as expected';
 }
 
 # test no conflicts w/exclusion
@@ -69,18 +66,18 @@ dies_ok {
     my $c = Moose::Meta::Role::Composite->new(
         roles => [
             Role::Bar->meta,
-            Role::ExcludesFoo->meta,            
+            Role::ExcludesFoo->meta,
         ]
     );
     isa_ok($c, 'Moose::Meta::Role::Composite');
 
     is($c->name, 'Role::Bar|Role::ExcludesFoo', '... got the composite role name');
-    
+
     lives_ok {
         Moose::Meta::Role::Application::RoleSummation->new->apply($c);
-    } '... this lives as expected';    
-    
-    is_deeply([$c->get_excluded_roles_list], ['Role::Foo'], '... has excluded roles');    
+    } '... this lives as expected';
+
+    is_deeply([$c->get_excluded_roles_list], ['Role::Foo'], '... has excluded roles');
 }
 
 
@@ -94,19 +91,19 @@ dies_ok {
             ]
         )
     );
-    
+
 } '... this fails as expected';
 
 # test conflict with an "inherited" exclusion of an "inherited" role
 dies_ok {
     Moose::Meta::Role::Application::RoleSummation->new->apply(
-        Moose::Meta::Role::Composite->new(        
+        Moose::Meta::Role::Composite->new(
             roles => [
-                Role::DoesFoo->meta,            
+                Role::DoesFoo->meta,
                 Role::DoesExcludesFoo->meta,
             ]
         )
     );
 } '... this fails as expected';
 
-
+done_testing;