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 a63787af5ec3939d83b14bb9559b621a6ee8abc6 Author: Michael G. Schwern <[email protected]> Date: Fri Feb 9 13:19:15 2001 +0000 Added test to see if we can hit autoloaders. Doesnt work, so I commented it out git-svn-id: file:///Users/schwern/tmp/svn/CPAN/Class-Virtual/trunk@2277 8151f2b9-fde8-0310-94fd-f048d12aab9e --- t/Virtual.t | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/t/Virtual.t b/t/Virtual.t index f6bc252..c258020 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 = 8 } +BEGIN { $Total_tests = 9 } my @vmeths = qw(new foo bar this that); my $ok; @@ -91,3 +91,23 @@ eval { }; $ok = $@ =~ /^Attempt to reset virtual methods/; ::ok( $ok, "Disallow reseting by subclass" ); + + +### This test doesn't work and probably never will. +### +# package Test::That; +# use base qw(Test::Virtual); + +# # Let's see how things work with an autoloader. +# use vars qw($AUTOLOAD); +# sub AUTOLOAD { +# if( $AUTOLOAD =~ /(foo|bar)/ ) { +# return "Yay!"; +# } +# else { +# die "ARrrrrrrrrrrgh!\n"; +# } +# } + +# ::ok( ::eqarray([sort __PACKAGE__->missing_methods], [sort qw(new this that)]), +# 'Autoloaded methods recognized' ); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libclass-virtual-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
