[Http-webtest-commits] HTTP-WebTest/lib/HTTP/WebTest API.pm,1.21,1.22

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

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

Modified Files:
	API.pm 
Log Message:
Allow to modify test queue in runtime


Index: API.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/lib/HTTP/WebTest/API.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** API.pm	17 Aug 2002 10:24:20 -0000	1.21
--- API.pm	24 Sep 2002 20:22:13 -0000	1.22
***************
*** 123,128 ****
      }
  
!     # run all tests
!     for my $i (0 .. @{$self->tests} - 1) {
  	my $test = $self->tests->[$i];
  	$self->last_test_num($i);
--- 123,130 ----
      }
  
!     # run all tests: note that content and length of @{$self->tests}
!     # may change inside the loop so idiomatic "for my $i (...)"
!     # doesn't work here
!     for(my $i = 0; $i < @{$self->tests}; $i ++) {
  	my $test = $self->tests->[$i];
  	$self->last_test_num($i);
***************
*** 532,536 ****
      # convert test to canonic representation
      $test = $self->convert_tests($test);
!     $self->last_test($test);
  
      $self->_global_test_params($params);
--- 534,539 ----
      # convert test to canonic representation
      $test = $self->convert_tests($test);
! 
!     my $save_test = $self->last_test($test);
  
      $self->_global_test_params($params);
***************
*** 576,580 ****
  	}
      }
- 
      $self->last_results(\@results);
  
--- 579,582 ----