[libmoosex-semiaffordanceaccessor-perl] 04/12: Load order _does_ matter, and this is the case for all MX modules

Intrigeri intrigeri at moszumanska.debian.org
Thu Aug 28 15:44:22 UTC 2014


This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag v0.06
in repository libmoosex-semiaffordanceaccessor-perl.

commit 94eaef8961a7deb80b0ed0fa6f5f5619e9c6bbd2
Author: Dave Rolsky <autarch at urth.org>
Date:   Wed Jul 14 14:03:10 2010 -0500

    Load order _does_ matter, and this is the case for all MX modules
---
 t/basic.t | 17 -----------------
 1 file changed, 17 deletions(-)

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' );

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-semiaffordanceaccessor-perl.git



More information about the Pkg-perl-cvs-commits mailing list