http-webtest-commits

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

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

Modified Files:
	API.pm 
Log Message:
Throw exception if request url is not set

Index: API.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/API.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** API.pm	4 Mar 2002 14:59:19 -0000	1.8
--- API.pm	24 Mar 2002 11:01:36 -0000	1.9
***************
*** 517,523 ****
      $self->_global_test_params($params);
  
!     # create request (note that actual url is more likely to be
      # set in plugins)
!     my $request = HTTP::Request->new('GET' => 'http://localhost/');
      $self->last_request($request);
  
--- 517,523 ----
      $self->_global_test_params($params);
  
!     # create request (note that actual uri is more likely to be
      # set in plugins)
!     my $request = HTTP::Request->new('GET' => 'http://MISSING_HOSTNAME/');
      $self->last_request($request);
  
***************
*** 527,530 ****
--- 527,535 ----
  	    $plugin->prepare_request;
  	}
+     }
+ 
+     # check if one of plugins did change request uri
+     if($request->uri eq 'http://MISSING_HOSTNAME/') {
+ 	die "HTTP::WebTest: request uri is not set";
      }