http-webtest-commits

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

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

Modified Files:
	02-generic.t 
Log Message:
Updated


Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** 02-generic.t	24 Jul 2002 22:17:47 -0000	1.11
--- 02-generic.t	17 Aug 2002 09:41:07 -0000	1.12
***************
*** 18,22 ****
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 29 }
  
  # init tests
--- 18,22 ----
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 30 }
  
  # init tests
***************
*** 559,562 ****
--- 559,582 ----
  }
  
+ # 30: test 'status_code' test parameter
+ {
+     my $tests = [ { url => abs_url($URL, '/status-code-200') },
+ 		  { url => abs_url($URL, '/status-code-400') },
+ 		  { url => abs_url($URL, '/status-code-200'),
+ 		    status_code => 400 },
+ 		  { url => abs_url($URL, '/status-code-400'),
+ 		    status_code => 400 },
+ 		  { url => abs_url($URL, '/status-code-401'),
+ 		    status_code => 401 },
+ 		  { url => abs_url($URL, '/status-code-401'),
+ 		    status_code => 400 },
+ 		];
+ 
+     check_webtest(webtest => $WEBTEST,
+ 		  server_url => $URL,
+ 		  tests => $tests,
+ 		  check_file => 't/test.out/status-code');
+ }
+ 
  # try to stop server even we have been crashed
  END { stop_webserver($PID) if defined $PID }
***************
*** 583,592 ****
  	$content .= 'Content: <' . $request->content . ">\n";
  
- 	# 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 =~ m|^/sleep-(\d+(?:\.\d+)?)$|) {
--- 603,610 ----
***************
*** 598,602 ****
  	my $value = $2;
  
- 	# create cookie
  	my $cookie = new CGI::Cookie(-name => $name,
  				     -value => $value,
--- 616,619 ----
***************
*** 604,608 ****
  				     -expires => '+1M' );
  
- 	# create response object
  	my $response = new HTTP::Response(RC_OK);
  	$response->header(Content_Type => 'text/plain');
--- 621,624 ----
***************
*** 610,614 ****
  	$response->content('Set cookie test');
  
- 	# send it to browser
  	$connect->send_response($response);
      } elsif($path eq '/show-cookies') {
--- 626,629 ----
***************
*** 634,670 ****
  	}
  
- 	# 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
  	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-agent') {
  	my $content = 'User agent: ' . $request->user_agent;
  
- 	# 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 '/redirect') {
- 	# create response object
  	my $response = new HTTP::Response(RC_FOUND);
  	$response->header(Location => '/test-file1');
  
- 	# send it to browser
  	$connect->send_response($response);
      } elsif($path =~ m|/auth-(\w+)-(\w+)-(\w+)|) {
--- 649,677 ----
***************
*** 682,693 ****
  	} else {
  	    # authorization is either missing or wrong
- 
- 	    # create response object
  	    my $response = new HTTP::Response(RC_UNAUTHORIZED);
  	    $response->header(WWW_Authenticate => "Basic realm=\"$realm\"");
  
- 	    # send it to browser
  	    $connect->send_response($response);
  	}
      } else {
  	$connect->send_error(RC_NOT_FOUND);
--- 689,703 ----
  	} else {
  	    # authorization is either missing or wrong
  	    my $response = new HTTP::Response(RC_UNAUTHORIZED);
  	    $response->header(WWW_Authenticate => "Basic realm=\"$realm\"");
  
  	    $connect->send_response($response);
  	}
+     } elsif($path =~ m|/status-code-(\d+)|) {
+ 	my $status_code = $1;
+ 
+ 	my $response = new HTTP::Response($status_code);
+ 
+ 	$connect->send_response($response);
      } else {
  	$connect->send_error(RC_NOT_FOUND);