[Http-webtest-commits] CVS: HTTP-WebTest/lib/HTTP/WebTest API.pm,1.2,1.3

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

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

Modified Files:
	API.pm 
Log Message:
Now HTTP::WebTest do validates global test parameters.


Index: API.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/API.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** API.pm	2002/01/28 06:32:02	1.2
--- API.pm	2002/01/28 07:11:05	1.3
***************
*** 103,106 ****
--- 103,119 ----
      $self->_global_test_params($params);
  
+     # validate global test parameters
+     my %checks = $self->validate_params($params);
+     # be sure that checks are sorted by param name
+     my @broken = grep { not $_->ok } map $checks{$_}, sort keys %checks;
+ 
+     # is is hard to report errors nicely (i.e. via report plugins)
+     # here because plugins are not initialized yet. Just die right now
+     # if there are any bad global test parameters
+     if(@broken) {
+ 	my $die = join "\n", 'HTTP::WebTest:', map $_->comment, @broken;
+ 	die $die;
+     }
+ 
      # start tests hook
      for my $plugin (@{$self->plugins}) {