X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbasic.t;h=520561c0882c968d1dfbdf6625b805aa358337d4;hb=94eaef8961a7deb80b0ed0fa6f5f5619e9c6bbd2;hp=d67ac5e87aa9f7156613dd2e496e41691ab4ac20;hpb=ce6e6723a1f643742d7b222004a2981185c4b8b4;p=gitmo%2FMooseX-SemiAffordanceAccessor.git diff --git a/t/basic.t b/t/basic.t index d67ac5e..520561c 100644 --- a/t/basic.t +++ b/t/basic.t @@ -17,18 +17,6 @@ use Test::More; package SAA; - use MooseX::SemiAffordanceAccessor; - use Moose; - - has 'thing' => ( is => 'rw' ); - has '_private' => ( is => 'rw' ); -} - -{ - - package SAA2; - - # Make sure load order doesn't matter use Moose; use MooseX::SemiAffordanceAccessor; @@ -69,11 +57,6 @@ ok( SAA->can('set_thing'), 'SAA->set_thing() exists' ); ok( SAA->can('_private'), 'SAA->_private() exists' ); ok( SAA->can('_set_private'), 'SAA->_set_private() exists' ); -ok( SAA2->can('thing'), 'SAA2->thing() exists' ); -ok( SAA2->can('set_thing'), 'SAA2->set_thing() exists' ); -ok( SAA2->can('_private'), 'SAA2->_private() exists' ); -ok( SAA2->can('_set_private'), 'SAA2->_set_private() exists' ); - ok( SAA3->can('ro'), 'SAA3->ro exists' ); ok( !SAA3->can('set_ro'), 'SAA3->set_ro does not exist' ); ok( SAA3->can('thing'), 'SAA3->thing exists' );