perl-test-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r165206 - /perl/Apache-Test/trunk/lib/Apache/Test.pm
Date Thu, 28 Apr 2005 21:27:40 GMT
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);
 }



Mime
View raw message