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; };