stas2003/12/31 11:07:26
Modified:t/filter/TestFilter in_error.pm
Log:
add the "*** The following error entry is expected and it is harmless ***"
banner to the expected error logs
Revision ChangesPath
1.3 +3 -0 modperl-2.0/t/filter/TestFilter/in_error.pm
Index: in_error.pm
===
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/in_error.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- in_error.pm 23 Dec 2003 04:08:22 - 1.2
+++ in_error.pm 31 Dec 2003 19:07:26 - 1.3
@@ -14,6 +14,7 @@
use APR::Table ();
use Apache::TestTrace;
+use Apache::TestUtil;
use Apache::Const -compile => qw(OK);
@@ -22,6 +23,7 @@
debug join '', "-" x 20 , " filter called ", "-" x 20;
+t_server_log_error_is_expected();
die "This filter must die";
return Apache::OK;
@@ -31,6 +33,7 @@
my $r = shift;
my $len = $r->read(my $data, $r->headers_in->{'Content-Length'});
+t_server_log_error_is_expected();
die "failed to read POSTed data: $!" unless defined $len;
debug "read $len bytes [$data]";