X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F400-define-role.t;h=47ac4eef101efc49271ea3bcc1c981f9ce7237ca;hp=14414632f8707275b08169469830d4a1a66ba2f5;hb=ff6870694bb440c13826e0f0fa25e760247fd24e;hpb=8c0a77aa50dc0fef958845e65f2b5b87a9239024 diff --git a/t/400-define-role.t b/t/400-define-role.t index 1441463..47ac4ee 100644 --- a/t/400-define-role.t +++ b/t/400-define-role.t @@ -18,7 +18,7 @@ throws_ok { extends 'Role::Parent'; no Mouse::Role; -} qr/Roles do not currently support 'extends'/; +} qr/Roles do not support 'extends'/; lives_ok { package Role; @@ -93,11 +93,10 @@ lives_ok { ::is(blessed($obj), "Impromptu::Class"); }; -our $TODO = 'skip'; -throws_ok { +lives_ok{ package Class; use Mouse; with 'Role', 'Other::Role'; -} qr/Mouse::Role only supports 'with' on individual roles at a time/; +};