Update of /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin
In directory sc8-pr-cvs1:/tmp/cvs-serv22881/lib/HTTP/WebTest/Plugin
Modified Files:
SetRequest.pm
Log Message:
Added 'timeout' test parameter
Index: SetRequest.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/Plugin/SetRequest.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** SetRequest.pm 24 Sep 2002 21:12:06 -0000 1.17
--- SetRequest.pm 18 Nov 2002 08:40:27 -0000 1.18
***************
*** 183,186 ****
--- 183,194 ----
C<yes>
+ =head2 timeout
+
+ Set the timeout value in seconds.
+
+ =head3 Default value
+
+ C<180>
+
=cut
***************
*** 195,199 ****
http_headers hashlist
user_agent scalar
! handle_redirects yesno);
}
--- 203,208 ----
http_headers hashlist
user_agent scalar
! handle_redirects yesno
! timeout scalar);
}
***************
*** 209,213 ****
$self->validate_params(qw(url relative_urls method params
auth proxies pauth
! http_headers user_agent));
# get various params we handle
--- 218,223 ----
$self->validate_params(qw(url relative_urls method params
auth proxies pauth
! http_headers user_agent
! handle_redirects timeout));
# get various params we handle
***************
*** 222,226 ****
--- 232,241 ----
my $ua_name = $self->test_param('user_agent');
my $handle_redirects = $self->yesno_test_param('handle_redirects', 1);
+ my $timeout = $self->test_param('timeout', 180);
+ # set LWP's timeout
+ $self->webtest->user_agent->timeout($timeout);
+
+ # normalize uri
if(defined $url) {
if($relative_urls) {
|
