[Http-webtest-commits] CVS: HTTP-WebTest/t utils.pl,1.1.1.1,1.2 05-report.t,1.1.1.1,1.2

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

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

Modified Files:
	utils.pl 05-report.t 
Log Message:
Added tests for parameter show_headers


Index: utils.pl
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/utils.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** utils.pl	24 Jan 2002 12:26:11 -0000	1.1.1.1
--- utils.pl	12 Feb 2002 12:47:35 -0000	1.2
***************
*** 102,106 ****
      if(defined $server_url) {
  	my $url = abs_url($server_url, '/')->as_string;
! 	$$output_ref =~ s|( URL: \s+ ) \Q$url\E
                           |$1http://http.web.test/|xg;
      }
--- 102,106 ----
      if(defined $server_url) {
  	my $url = abs_url($server_url, '/')->as_string;
! 	$$output_ref =~ s|\Q$url\E
                           |$1http://http.web.test/|xg;
      }

Index: 05-report.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/05-report.t,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** 05-report.t	24 Jan 2002 12:26:11 -0000	1.1.1.1
--- 05-report.t	12 Feb 2002 12:47:35 -0000	1.2
***************
*** 19,23 ****
  use vars qw($HOSTNAME $PORT $URL $TEST);
  
! BEGIN { plan tests => 10 }
  
  # init tests
--- 19,23 ----
  use vars qw($HOSTNAME $PORT $URL $TEST);
  
! BEGIN { plan tests => 11 }
  
  # init tests
***************
*** 156,159 ****
--- 156,183 ----
  		  tests => $tests,
  		  check_file => 't/test.out/test-harness')
+ }
+ 
+ # 11: test show_headers parameter
+ {
+     # remove cookies from cookie jar - it affects output of report plugin
+     $WEBTEST->reset_user_agent;
+ 
+     my $tests = [ $TEST,
+ 		  { url => abs_url($URL, '/non-existent') } ];
+ 
+     my $opts = { show_headers => 'yes' };
+ 
+     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;
+     };
+ 
+     check_webtest(webtest => $WEBTEST,
+ 		  server_url => $URL,
+ 		  opts => $opts,
+ 		  out_filter => $out_filter,
+ 		  tests => $tests,
+ 		  check_file => 't/test.out/show-headers')
  }