http-webtest-commits

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

Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin
In directory usw-pr-cvs1:/tmp/cvs-serv2432/lib/HTTP/WebTest/Plugin

Modified Files:
	SetRequest.pm 
Log Message:
Added test parameter handle_redirects


Index: SetRequest.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/SetRequest.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** SetRequest.pm	24 Jul 2002 22:18:36 -0000	1.13
--- SetRequest.pm	17 Aug 2002 10:26:18 -0000	1.14
***************
*** 149,163 ****
  where C<NN> is version number of HTTP-WebTest.
  
  =cut
  
  sub param_types {
!     return q(url          uri
! 	     method       scalar('^(?:GET|POST)$')
!  	     params       hashlist
! 	     auth         list('scalar','scalar')
! 	     proxies      hashlist
! 	     pauth        list('scalar','scalar')
! 	     http_headers hashlist
!              user_agent   scalar);
  }
  
--- 149,178 ----
  where C<NN> is version number of HTTP-WebTest.
  
+ =head2 handle_redirects
+ 
+ If set to C<yes> then HTTP-WebTest automatically follows redirects.
+ It means that you never see HTTP responses with status codes 301 and
+ 302.  This feature is disabled if this test parameter is set to C<no>.
+ 
+ =head3 Allowed values
+ 
+ C<yes>, C<no>
+ 
+ =head3 Default value
+ 
+ C<yes>
+ 
  =cut
  
  sub param_types {
!     return q(url              uri
! 	     method           scalar('^(?:GET|POST)$')
!  	     params           hashlist
! 	     auth             list('scalar','scalar')
! 	     proxies          hashlist
! 	     pauth            list('scalar','scalar')
! 	     http_headers     hashlist
!              user_agent       scalar
!              handle_redirects yesno);
  }
  
***************
*** 176,187 ****
  
      # get various params we handle
!     my $url     = $self->test_param('url');
!     my $method  = $self->test_param('method');
!     my $params  = $self->test_param('params');
!     my $auth    = $self->test_param('auth');
!     my $proxies = $self->test_param('proxies');
!     my $pauth   = $self->test_param('pauth');
!     my $headers = $self->test_param('http_headers');
!     my $ua_name = $self->test_param('user_agent');
  
      # fix broken url
--- 191,203 ----
  
      # get various params we handle
!     my $url              = $self->test_param('url');
!     my $method           = $self->test_param('method');
!     my $params           = $self->test_param('params');
!     my $auth             = $self->test_param('auth');
!     my $proxies          = $self->test_param('proxies');
!     my $pauth            = $self->test_param('pauth');
!     my $headers          = $self->test_param('http_headers');
!     my $ua_name          = $self->test_param('user_agent');
!     my $handle_redirects = $self->yesno_test_param('handle_redirects', 1);
  
      # fix broken url
***************
*** 239,242 ****
--- 255,265 ----
  	unless defined $ua_name;
      $user_agent->agent($ua_name);
+ 
+     # define if requests are redirectable
+     if($handle_redirects) {
+ 	$user_agent->requests_redirectable([qw(GET POST)]);
+     } else {
+ 	$user_agent->requests_redirectable([]);
+     }
  }