/[Apache-SVN]/httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm
ViewVC logotype

Diff of /httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

--- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm	2005/01/28 02:31:29	148840
+++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHarnessPHP.pm	2005/01/28 02:43:10	148841
@@ -33,6 +33,16 @@ my $phpclient = eval {
   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;
 };
 

 

infrastructure at apache.org
ViewVC Help
Powered by ViewVC 1.1.26