[Http-webtest-commits] CVS: HTTP-WebTest/t 02-generic.t,1.7,1.8

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

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

Modified Files:
	02-generic.t 
Log Message:
Added test for Content-Type header value in POST requests


Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** 02-generic.t	16 Feb 2002 00:36:35 -0000	1.7
--- 02-generic.t	11 May 2002 18:47:49 -0000	1.8
***************
*** 18,22 ****
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 22 }
  
  # init tests
--- 18,22 ----
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 23 }
  
  # init tests
***************
*** 427,430 ****
--- 427,445 ----
  }
  
+ # 23: test if we are setting content type header correctly for POST
+ # requests
+ {
+     my $tests = [ { url => abs_url($URL, '/show-headers'),
+ 		    method => 'post',
+ 		    text_require => [ 'Content-Type: ' .
+ 				      'application/x-www-form-urlencoded' ] },
+ 		];
+ 
+     check_webtest(webtest => $WEBTEST,
+ 		  server_url => $URL,
+ 		  tests => $tests,
+ 		  check_file => 't/test.out/content-type');
+ }
+ 
  # try to stop server even we have been crashed
  END { stop_webserver($PID) if defined $PID }
***************
*** 501,504 ****
--- 516,529 ----
  	    }
  	}
+ 
+ 	# create response object
+ 	my $response = new HTTP::Response(RC_OK);
+ 	$response->header(Content_Type => 'text/plain');
+ 	$response->content($content);
+ 
+ 	# send it to browser
+ 	$connect->send_response($response);
+     } elsif($path eq '/show-headers') {
+ 	my $content = $request->headers_as_string;
  
  	# create response object