You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-commits@perl.apache.org by st...@apache.org on 2005/04/28 23:27:40 UTC
svn commit: r165206 - /perl/Apache-Test/trunk/lib/Apache/Test.pm
Author: stas
Date: Thu Apr 28 14:27:39 2005
New Revision: 165206
URL: http://svn.apache.org/viewcvs?rev=165206&view=rev
Log:
drop Test.pm support, require Test::More (a must if we want to support sub-tests
run by several perl threads, which Test.pm fail to handle since it doesn't maintain
a proper shared counter)
Modified:
perl/Apache-Test/trunk/lib/Apache/Test.pm
Modified: perl/Apache-Test/trunk/lib/Apache/Test.pm
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/lib/Apache/Test.pm?rev=165206&r1=165205&r2=165206&view=diff
==============================================================================
--- perl/Apache-Test/trunk/lib/Apache/Test.pm (original)
+++ perl/Apache-Test/trunk/lib/Apache/Test.pm Thu Apr 28 14:27:39 2005
@@ -56,11 +56,9 @@
sub import {
my $class = shift;
- # once Test::More always Test::More until plan() is called
- if (($_[0] and $_[0] =~ m/^-withtestmore/) || @testmore) {
- # special hoops for Test::More support
+# XXX: we need to bundle Test::More in the distro
- $real_plan = eval {
+ $real_plan = eval {
require Test::More;
@@ -80,15 +78,6 @@
# clean up arguments to export_to_level
shift;
@EXPORT = (@test_more_exports, @Test::More::EXPORT);
- }
- else {
- # the default - Test.pm support
-
- require Test;
- Test->import(qw(ok skip));
- @testmore = (); # reset, just in case.
- $real_plan = \&Test::plan;
- }
$class->export_to_level(1, undef, @_ ? @_ : @EXPORT);
}