prevent warnings in t/method-installer-runtime.t
Rhesa Rozendaal [Sun, 26 Oct 2008 17:28:34 +0000 (17:28 +0000)]
t/method-installer-runtime.t

index 59375e0..c16ea5d 100644 (file)
@@ -3,8 +3,12 @@ use strict;
 
 use Test::More tests => 3;
 
+use lib 'lib';
 use Devel::Declare::MethodInstaller::Simple;
 
+# suppress warnings
+sub Devel::Declare::MethodInstaller::Simple::parse_proto { '' }
+
 BEGIN {
   Devel::Declare::MethodInstaller::Simple->install_methodhandler(
     name => 'method',
@@ -19,10 +23,3 @@ method foo { 1 }
 
 is foo(), 1;
 
-__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.