[libclass-virtual-perl] 04/07: Warning about foo and bar only being used once fixed

[dom at earth.li]

This is an automated email from the git hooks/post-receive script.

dom pushed a commit to tag v0.03
in repository libclass-virtual-perl.

commit 5034e5247f1fcf8a9ee4cdbef3c13e85b8949127
Author: Michael G. Schwern <schwern at pobox.com>
Date:   Tue Nov 28 03:11:10 2000 +0000

    Warning about foo and bar only being used once fixed
    
    
    git-svn-id: file:///Users/schwern/tmp/svn/CPAN/Class-Virtual/trunk@2275 8151f2b9-fde8-0310-94fd-f048d12aab9e
---
 t/Virtual.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/Virtual.t b/t/Virtual.t
index 4d6add7..f6bc252 100644
--- a/t/Virtual.t
+++ b/t/Virtual.t
@@ -51,7 +51,7 @@ sub eqarray  {
 }
 
 # Change this to your # of ok() calls + 1
-BEGIN { $Total_tests = 7 }
+BEGIN { $Total_tests = 8 }
 
 my @vmeths = qw(new foo bar this that);
 my $ok;
@@ -81,6 +81,8 @@ use base qw(Test::Virtual);
 *foo = sub { 42 };
 *bar = sub { 23 };
 
+::ok( defined &foo && defined &bar );
+
 ::ok( ::eqarray([sort __PACKAGE__->missing_methods], [sort qw(new this that)]),
       'Subclass handling some methods');
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libclass-virtual-perl.git