httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject svn commit: r148841 - /httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm
Date Fri, 28 Jan 2005 02:43:12 GMT
Author: geoff
Date: Thu Jan 27 18:43:10 2005
New Revision: 148841

URL: http://svn.apache.org/viewcvs?view=rev&rev=148841
Log:
fix diag() and other verbose outputs

Modified:
   httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm

Modified: httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm
Url: http://svn.apache.org/viewcvs/httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm?view=diff&rev=148841&p1=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm&r1=148840&p2=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm&r2=148841
==============================================================================
--- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm	(original)
+++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm	Thu Jan 27 18:43:10
2005
@@ -33,6 +33,16 @@
   Test::Harness->VERSION(2.38);
   push @ISA, qw(Test::Harness::Straps);
   $Test::Harness::Strap = __PACKAGE__->new;
+
+  # yes, this is ugly, ugly, ugly
+  $Test::Harness::Strap->{callback} = sub {
+    my($self, $line, $type, $totals) = @_;
+    print $line if $Test::Harness::Verbose;
+                                                                                        
                                    
+    my $meth = *Handlers{$type};
+    $meth->($self, $line, $type, $totals) if $meth;
+  };
+
   1;
 };
 

Mime
View raw message