http-webtest-commits

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

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

Modified Files:
	02-generic.t 
Log Message:
Added tests for redirects


Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 02-generic.t	12 Feb 2002 13:09:18 -0000	1.4
--- 02-generic.t	15 Feb 2002 10:39:49 -0000	1.5
***************
*** 18,22 ****
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 17 }
  
  # init tests
--- 18,22 ----
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 18 }
  
  # init tests
***************
*** 374,377 ****
--- 374,393 ----
  }
  
+ # 18: test handling of redirects
+ {
+     my $tests = [ { url => abs_url($URL, '/redirect'),
+ 		    method => 'get',
+ 		    text_require => [ 'abcde' ], },
+ 		  { url => abs_url($URL, '/redirect'),
+ 		    method => 'post',
+ 		    text_require => [ 'abcde' ], },
+ 		];
+ 
+     check_webtest(webtest => $WEBTEST,
+ 		  server_url => $URL,
+ 		  tests => $tests,
+ 		  check_file => 't/test.out/redirect');
+ }
+ 
  # try to stop server even we have been crashed
  END { stop_webserver($PID) if defined $PID }
***************
*** 463,466 ****
--- 479,489 ----
  	$response->header(Content_Type => 'text/plain');
  	$response->content($content);
+ 
+ 	# send it to browser
+ 	$connect->send_response($response);
+     } elsif($path eq '/redirect') {
+ 	# create response object
+ 	my $response = new HTTP::Response(RC_FOUND);
+ 	$response->header(Location => '/test-file1');
  
  	# send it to browser