[Bast-commits] r4998 - Devel-Declare/1.000/trunk/t

[rhesa at dev.catalyst.perl.org]

Author: rhesa
Date: 2008-10-26 17:28:34 +0000 (Sun, 26 Oct 2008)
New Revision: 4998

Modified:
   Devel-Declare/1.000/trunk/t/method-installer-runtime.t
Log:
prevent warnings in t/method-installer-runtime.t

Modified: Devel-Declare/1.000/trunk/t/method-installer-runtime.t
===================================================================
--- Devel-Declare/1.000/trunk/t/method-installer-runtime.t	2008-10-26 17:11:49 UTC (rev 4997)
+++ Devel-Declare/1.000/trunk/t/method-installer-runtime.t	2008-10-26 17:28:34 UTC (rev 4998)
@@ -3,8 +3,12 @@
 
 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 @@
 
 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.