http-webtest-commits

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

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

Modified Files:
	05-report.t 
Log Message:
Refactor header washing code into $HEADER_FILTER


Index: 05-report.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/05-report.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** 05-report.t	3 Jan 2003 22:32:32 -0000	1.12
--- 05-report.t	24 Mar 2003 11:21:16 -0000	1.13
***************
*** 23,26 ****
--- 23,33 ----
  my $COOKIE_TEST = { url => abs_url($URL, '/set-cookie-c1-v1') };
  my $COOKIE_FILTER = sub { $_[0] =~ s/expires=.*?GMT/expires=SOMEDAY/;};
+ my $HEADER_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;
+     };
  
  # 1: test fh_out parameter
***************
*** 139,146 ****
  
      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;
      };
  
--- 146,150 ----
  
      my $out_filter = sub {
!         $HEADER_FILTER->($_[0]);
      };
  
***************
*** 164,170 ****
  
      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;
          $COOKIE_FILTER->($_[0]);
      };
--- 168,172 ----
  
      my $out_filter = sub {
!         $HEADER_FILTER->($_[0]);
          $COOKIE_FILTER->($_[0]);
      };