[Http-webtest-commits] HTTP-WebTest/t 05-report.t,1.10,1.11

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest/t
In directory sc8-pr-cvs1:/tmp/cvs-serv20897/t

Modified Files:
	05-report.t 
Log Message:
New versions of LWP add Client-Peer header in all responses what
breaks one of tests in self-testing suite. This test is fixed so it
should pass ok with both new and old versions of LWP.  Thanks to
Johannes la Poutre for bug report.


Index: 05-report.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/05-report.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** 05-report.t	22 Dec 2002 21:25:49 -0000	1.10
--- 05-report.t	2 Jan 2003 21:32:32 -0000	1.11
***************
*** 141,147 ****
  
      my $out_filter = sub {
! 	$_[0] =~ s/: .*?GMT/: SOMEDAY/g;
  	$_[0] =~ s|Server: libwww-perl-daemon/[\w\.]*|Server: libwww-perl-daemon/NN|g;
  	$_[0] =~ s|User-Agent: HTTP-WebTest/[\w\.]*|User-Agent: HTTP-WebTest/NN|g;
      };
  
--- 141,148 ----
  
      my $out_filter = sub {
! 	$_[0] =~ s|: .*?GMT|: SOMEDAY|g;
  	$_[0] =~ s|Server: libwww-perl-daemon/[\w\.]*|Server: libwww-perl-daemon/NN|g;
  	$_[0] =~ s|User-Agent: HTTP-WebTest/[\w\.]*|User-Agent: HTTP-WebTest/NN|g;
+         $_[0] =~ s|Client-.*?: .*?\n||g;
      };