http-webtest-commits

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

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

Modified Files:
	02-generic.t 
Log Message:
Added tests for test parameter 'http-headers'


Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** 02-generic.t	11 May 2002 18:47:49 -0000	1.8
--- 02-generic.t	12 May 2002 13:36:59 -0000	1.9
***************
*** 18,22 ****
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 23 }
  
  # init tests
--- 18,22 ----
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 24 }
  
  # init tests
***************
*** 440,443 ****
--- 440,459 ----
  		  tests => $tests,
  		  check_file => 't/test.out/content-type');
+ }
+ 
+ # 24: test 'http_headers' param
+ {
+     my $tests = [ { url => abs_url($URL, '/show-headers'),
+ 		    http_headers => [ Accept => 'text/plain, text/html' ],
+ 		    text_require => [ 'Accept: text/plain, text/html' ] },
+ 		  { url => abs_url($URL, '/show-headers'),
+ 		    http_headers => [ User_Agent => 'Override User-Agent' ],
+ 		    text_require => [ 'User-Agent: Override User-Agent' ] },
+ 		];
+ 
+     check_webtest(webtest => $WEBTEST,
+ 		  server_url => $URL,
+ 		  tests => $tests,
+ 		  check_file => 't/test.out/http-headers');
  }