X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F021_role_composite_exclusion.t;fp=t-failing%2F030_roles%2F021_role_composite_exclusion.t;h=c8b6f6b8689f3850a0cc7267837b01cf62d2901e;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=e58faf35926a6d01f464c2ec0f781900b9ff2b45;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git

diff --git a/t-failing/030_roles/021_role_composite_exclusion.t b/t/030_roles/failing/021_role_composite_exclusion.t
similarity index 81%
rename from t-failing/030_roles/021_role_composite_exclusion.t
rename to t/030_roles/failing/021_role_composite_exclusion.t
index e58faf3..c8b6f6b 100644
--- a/t-failing/030_roles/021_role_composite_exclusion.t
+++ b/t/030_roles/failing/021_role_composite_exclusion.t
@@ -1,16 +1,12 @@
 #!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More;
-$TODO = q{Mouse is not yet completed};
+use Test::More tests => 12;
 use Test::Exception;
 
-use Mouse::Meta::Role::Application;
+#use Mouse::Meta::Role::Application::RoleSummation;
 use Mouse::Meta::Role::Composite;
 
 {
@@ -38,7 +34,7 @@ ok(Role::DoesExcludesFoo->meta->excludes_role('Role::Foo'), '... got the right e
 
 # test simple exclusion
 dies_ok {
-    Mouse::Meta::Role::Application->new->apply(
+    Mouse::Meta::Role::Application::RoleSummation->new->apply(
         Mouse::Meta::Role::Composite->new(
             roles => [
                 Role::Foo->meta,
@@ -61,7 +57,7 @@ dies_ok {
     is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name');
 
     lives_ok {
-        Mouse::Meta::Role::Application->new->apply($c);
+        Mouse::Meta::Role::Application::RoleSummation->new->apply($c);
     } '... this lives as expected';
 }
 
@@ -78,7 +74,7 @@ dies_ok {
     is($c->name, 'Role::Bar|Role::ExcludesFoo', '... got the composite role name');
 
     lives_ok {
-        Mouse::Meta::Role::Application->new->apply($c);
+        Mouse::Meta::Role::Application::RoleSummation->new->apply($c);
     } '... this lives as expected';
 
     is_deeply([$c->get_excluded_roles_list], ['Role::Foo'], '... has excluded roles');
@@ -87,7 +83,7 @@ dies_ok {
 
 # test conflict with an "inherited" exclusion
 dies_ok {
-    Mouse::Meta::Role::Application->new->apply(
+    Mouse::Meta::Role::Application::RoleSummation->new->apply(
         Mouse::Meta::Role::Composite->new(
             roles => [
                 Role::Foo->meta,
@@ -100,7 +96,7 @@ dies_ok {
 
 # test conflict with an "inherited" exclusion of an "inherited" role
 dies_ok {
-    Mouse::Meta::Role::Application->new->apply(
+    Mouse::Meta::Role::Application::RoleSummation->new->apply(
         Mouse::Meta::Role::Composite->new(
             roles => [
                 Role::DoesFoo->meta,
@@ -110,4 +106,4 @@ dies_ok {
     );
 } '... this fails as expected';
 
-done_testing;
+