cvs commit: modperl-2.0/t/filter/TestFilter in_error.pm

[stas]

stas        2003/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  Changes    Path
  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 -0000      1.2
  +++ in_error.pm       31 Dec 2003 19:07:26 -0000      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]";