summary refs log tree commit diff
path: root/t/10_private_method.t
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-02-14 18:00:33 +0100
committerfranck cuny <franck@lumberjaph.net>2010-02-14 18:00:33 +0100
commit81aab6d1a8fdd1334792bffd703d35a81771e772 (patch)
treefa9782f995401cbb2b8bdb4c6cc5d9ef2ed84002 /t/10_private_method.t
parentPOD and confess (diff)
downloadmoosex-privacy-81aab6d1a8fdd1334792bffd703d35a81771e772.tar.gz
update tests
Diffstat (limited to 't/10_private_method.t')
-rw-r--r--t/10_private_method.t26
1 files changed, 2 insertions, 24 deletions
diff --git a/t/10_private_method.t b/t/10_private_method.t
index dabc8c9..b2f3056 100644
--- a/t/10_private_method.t
+++ b/t/10_private_method.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 9;
+use Test::More tests => 7;
 use Test::Exception;
 
 {
@@ -10,7 +10,7 @@ use Test::Exception;
     use Moose;
     use MooseX::Privacy;
 
-    private_method 'bar' => sub {
+    private_method bar => sub {
         my $self = shift;
         return 'baz';
     };
@@ -31,16 +31,6 @@ use Test::Exception;
         return 'foobar' . $str;
     };
 
-    sub add_public_method {
-        my $self = shift;
-        $self->meta->add_method(
-            'public_foo',
-            sub {
-                $self->private_meta_method;
-            }
-        );
-    }
-
 }
 
 {
@@ -68,15 +58,3 @@ dies_ok { $bar->newbar() } "... can't call bar, method is private";
 is scalar @{ $foo->meta->local_private_methods }, 2,
     '... got two privates method';
 
-my $private_method = Class::MOP::Method->wrap(
-    sub { return 23 },
-    name         => 'private_meta_method',
-    package_name => 'Foo'
-);
-
-$foo->meta->add_private_method($private_method);
-
-dies_ok { $foo->private_meta_method } '... can\'t call the private method';
-
-$foo->add_public_method;
-is $foo->public_foo, 23, '... call private method via public method';