X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbasic.t;h=520561c0882c968d1dfbdf6625b805aa358337d4;hb=2c4a430d7f427eb12dedaa1f444d5c29f3e1b32a;hp=dc5c65fd7d04f84c95f09e8364bf18b04cd7f163;hpb=080d1e6df9e616302eb2294b6767a5676cba8c82;p=gitmo%2FMooseX-SemiAffordanceAccessor.git diff --git a/t/basic.t b/t/basic.t index dc5c65f..520561c 100644 --- a/t/basic.t +++ b/t/basic.t @@ -68,20 +68,4 @@ ok( SAA3->can('set_it'), 'SAA3->set_it does exist' ); ok( !SAA4->can('bare'), 'SAA4->bare does not exist' ); ok( !SAA4->can('set_bare'), 'SAA4->set_bare does not exist' ); -{ - package SAA::Role; - use Moose::Role; - use MooseX::SemiAffordanceAccessor; - has foo => (is => 'rw'); -} - -{ - package SAA::WithRole; - use Moose; - with 'SAA::Role'; -} - -ok( SAA::WithRole->can('foo'), "roles work" ); -ok( SAA::WithRole->can('set_foo'), "roles work" ); - done_testing();