Refactor MethodInstaller::Simple.

[p5sagit/Devel-Declare.git] / t / method-installer-runtime.t

diff --git a/t/method-installer-runtime.t b/t/method-installer-runtime.t
index 59375e0..e7c0683 100644 (file)
--- a/t/method-installer-runtime.t
+++ b/t/method-installer-runtime.t
@@ -1,10 +1,13 @@
 
 use strict;
 
-use Test::More tests => 3;
+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',
@@ -12,17 +15,9 @@ BEGIN {
   );
 }
 
-is eval { foo() } , undef;
-like $@, qr/subroutine &main::foo/;
+ok(!main->can('foo'), 'foo() not installed yet');
 
-method foo { 1 }
+method foo { }
 
-is foo(), 1;
+ok(main->can('foo'), 'foo() installed at runtime');
 
-__END__
-1..2
-Use of uninitialized value $inject in concatenation (.) or string at /opt/perl/lib/site_perl/5.10.0/i686-linux/Devel/Declare/MethodInstaller/Simple.pm line 81.
-ok 1
-ok 2
-ok 3
-# Looks like you planned 2 tests but ran 3.