From: Fuji, Goro Date: Mon, 27 Sep 2010 13:01:18 +0000 (+0900) Subject: Fix failng tests X-Git-Tag: 0.76~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=7c41989df01acc060a2d29a42935673265d559a6 Fix failng tests --- diff --git a/Moose-t-failing/030_roles/024_role_composition_methods.t b/Moose-t-failing/030_roles/024_role_composition_methods.t index c214bae..afc0a6c 100644 --- a/Moose-t-failing/030_roles/024_role_composition_methods.t +++ b/Moose-t-failing/030_roles/024_role_composition_methods.t @@ -7,10 +7,9 @@ use strict; use warnings; use Test::More; -$TODO = q{Mouse is not yet completed}; use Test::Exception; -use Mouse::Meta::Role::Application; +#use Mouse::Meta::Role::Application::RoleSummation; use Mouse::Meta::Role::Composite; { @@ -54,7 +53,7 @@ use Mouse::Meta::Role::Composite; 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 succeeds as expected'; is_deeply( @@ -77,7 +76,7 @@ use Mouse::Meta::Role::Composite; is($c->name, 'Role::Foo|Role::FooConflict', '... got the composite role name'); lives_ok { - Mouse::Meta::Role::Application->new->apply($c); + Mouse::Meta::Role::Application::RoleSummation->new->apply($c); } '... this succeeds as expected'; is_deeply( @@ -108,7 +107,7 @@ use Mouse::Meta::Role::Composite; is($c->name, 'Role::Foo|Role::Bar|Role::FooConflict|Role::BarConflict', '... got the composite role name'); lives_ok { - Mouse::Meta::Role::Application->new->apply($c); + Mouse::Meta::Role::Application::RoleSummation->new->apply($c); } '... this succeeds as expected'; is_deeply( @@ -137,7 +136,7 @@ use Mouse::Meta::Role::Composite; is($c->name, 'Role::Foo|Role::AnotherFooConflict', '... got the composite role name'); lives_ok { - Mouse::Meta::Role::Application->new->apply($c); + Mouse::Meta::Role::Application::RoleSummation->new->apply($c); } '... this succeeds as expected'; is_deeply(