From: Stevan Little Date: Tue, 9 May 2006 21:09:47 +0000 (+0000) Subject: foo X-Git-Tag: 0_09_03~30 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=061a963b14baa1d2aee0887a2c6fe5f558e0aec0;p=gitmo%2FMoose.git foo --- diff --git a/lib/Moose/Meta/Role.pm b/lib/Moose/Meta/Role.pm index ff520b0..5f66c67 100644 --- a/lib/Moose/Meta/Role.pm +++ b/lib/Moose/Meta/Role.pm @@ -10,7 +10,7 @@ use Scalar::Util 'blessed'; use Moose::Meta::Class; -our $VERSION = '0.02'; +our $VERSION = '0.03'; ## Attributes diff --git a/t/044_basic_role_composition.t b/t/044_basic_role_composition.t index ecbdf30..80516ef 100644 --- a/t/044_basic_role_composition.t +++ b/t/044_basic_role_composition.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 60; +use Test::More tests => 62; use Test::Exception; BEGIN { @@ -336,7 +336,7 @@ Role override method conflicts ::throws_ok { with 'Role::Spliff', 'Role::Blunt'; } qr/Two \'override\' methods of the same name encountered/, - '... cannot compose it because we have no superclass'; + '... cannot compose it because we have no superclass'; } ok(My::Test11->meta->has_method('twist'), '... the twist method has been added'); @@ -346,7 +346,6 @@ ok(!My::Test14->meta->has_method('twist'), '... the twist method has not been ad is(My::Test11->twist(), 'My::Test::Base::twist -> Role::Blunt::twist', '... got the right method return'); is(My::Test12->twist(), 'My::Test::Base::twist -> Role::Spliff::twist', '... got the right method return'); - - - +ok(!My::Test13->can('twist'), '... no twist method here at all'); +is(My::Test14->twist(), 'My::Test::Base::twist', '... got the right method return (from superclass)');