svn commit: r209802 - in /perl/Apache-Test/trunk: Changes lib/Apache/Test.pm

[ge...@apache.org]

Author: geoff
Date: Fri Jul  8 07:53:05 2005
New Revision: 209802

URL: http://svn.apache.org/viewcvs?rev=209802&view=rev
Log:
update -withtestmore action to properly work with newer versions
of Test::Builder

Modified:
    perl/Apache-Test/trunk/Changes
    perl/Apache-Test/trunk/lib/Apache/Test.pm

Modified: perl/Apache-Test/trunk/Changes
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/Changes?rev=209802&r1=209801&r2=209802&view=diff
==============================================================================
--- perl/Apache-Test/trunk/Changes (original)
+++ perl/Apache-Test/trunk/Changes Fri Jul  8 07:53:05 2005
@@ -8,6 +8,9 @@
 
 =item 1.26-dev
 
+update -withtestmore action to properly work with newer versions
+of Test::Builder [Geoffrey Young]
+
 
 
 =item 1.25 - June 17, 2005

Modified: perl/Apache-Test/trunk/lib/Apache/Test.pm
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/lib/Apache/Test.pm?rev=209802&r1=209801&r2=209802&view=diff
==============================================================================
--- perl/Apache-Test/trunk/lib/Apache/Test.pm (original)
+++ perl/Apache-Test/trunk/lib/Apache/Test.pm Fri Jul  8 07:53:05 2005
@@ -132,17 +132,19 @@
 #so Perl's Test.pm can be run inside mod_perl
 sub test_pm_refresh {
     if (@testmore) {
-        Test::Builder->reset;
+        my $builder = Test::Builder->new;
 
-        Test::Builder->output(\*STDOUT);
-        Test::Builder->todo_output(\*STDOUT);
+        $builder->reset;
+
+        $builder->output(\*STDOUT);
+        $builder->todo_output(\*STDOUT);
 
         # this is STDOUT because Test::More seems to put 
         # most of the stuff we want on STDERR, so it ends
         # up in the error_log instead of where the user can
         # see it.   consider leaving it alone based on
         # later user reports.
-        Test::Builder->failure_output(\*STDOUT);
+        $builder->failure_output(\*STDOUT);
     }
     else {
         $Test::TESTOUT = \*STDOUT;