X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fmethod-installer-runtime.t;h=62926b460a771d76e965d79f7d03039c17de2589;hb=8343b16e878b4ba015aea44f095452ded06129a7;hp=c16ea5d453300b7d4def9a7c2efe59c3b7f6614d;hpb=2a7079617d08587bf5d80ec48daac4157f214405;p=p5sagit%2FDevel-Declare.git

diff --git a/t/method-installer-runtime.t b/t/method-installer-runtime.t
index c16ea5d..62926b4 100644
--- a/t/method-installer-runtime.t
+++ b/t/method-installer-runtime.t
@@ -1,14 +1,8 @@
-
 use strict;
-
-use Test::More tests => 3;
-
-use lib 'lib';
+use warnings;
+use Test::More tests => 2;
 use Devel::Declare::MethodInstaller::Simple;
 
-# suppress warnings
-sub Devel::Declare::MethodInstaller::Simple::parse_proto { '' }
-
 BEGIN {
   Devel::Declare::MethodInstaller::Simple->install_methodhandler(
     name => 'method',
@@ -16,10 +10,11 @@ BEGIN {
   );
 }
 
-is eval { foo() } , undef;
-like $@, qr/subroutine &main::foo/;
+ok(!main->can('foo'), 'foo() not installed yet');
 
-method foo { 1 }
+method foo {
+    $_[0]->method
+}
 
-is foo(), 1;
+ok(main->can('foo'), 'foo() installed at runtime');