Revert autogenerated tests. Tests should not changed radically.

[gitmo/Mouse.git] / t / 030_roles / failing / 021_role_composite_exclusion.t

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 (file)
--- 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;
+