From: Dave Rolsky Date: Wed, 14 Jul 2010 19:03:10 +0000 (-0500) Subject: Load order _does_ matter, and this is the case for all MX modules X-Git-Tag: v0.06~8 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94eaef8961a7deb80b0ed0fa6f5f5619e9c6bbd2;p=gitmo%2FMooseX-SemiAffordanceAccessor.git Load order _does_ matter, and this is the case for all MX modules --- 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' );