[Http-webtest-commits] HTTP-WebTest/t HelloWorld.pm,1.1.1.1,1.2 02-generic.t,1.21,1.22 01-api.t,1.11,1.12

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

Update of /cvsroot/http-webtest/HTTP-WebTest/t
In directory sc8-pr-cvs1:/tmp/cvs-serv27485/t

Modified Files:
	HelloWorld.pm 02-generic.t 01-api.t 
Log Message:
Renamed all last_xxx methods to current_xxx since the latest naming
schema makes more sense for them.


Index: HelloWorld.pm
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/HelloWorld.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** HelloWorld.pm	24 Jan 2002 12:26:18 -0000	1.1.1.1
--- HelloWorld.pm	12 Dec 2002 23:22:07 -0000	1.2
***************
*** 10,14 ****
      my $self = shift;
  
!     my $path = $self->webtest->last_request->uri->path;
  
      my $ok = $path eq '/hello';
--- 10,14 ----
      my $self = shift;
  
!     my $path = $self->webtest->current_request->uri->path;
  
      my $ok = $path eq '/hello';

Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** 02-generic.t	12 Dec 2002 21:43:12 -0000	1.21
--- 02-generic.t	12 Dec 2002 23:22:08 -0000	1.22
***************
*** 606,610 ****
  
  	# insert a new test after the current test
! 	splice @{$webtest->tests}, $webtest->last_test_num + 1,
  	       0, $webtest->convert_tests({ url => abs_url($URL, '/status-forbidden') });
  
--- 606,610 ----
  
  	# insert a new test after the current test
! 	splice @{$webtest->tests}, $webtest->current_test_num + 1,
  	       0, $webtest->convert_tests({ url => abs_url($URL, '/status-forbidden') });
  

Index: 01-api.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/01-api.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** 01-api.t	12 Dec 2002 21:43:12 -0000	1.11
--- 01-api.t	12 Dec 2002 23:22:09 -0000	1.12
***************
*** 47,52 ****
      my $test = { url => $url };
      $WEBTEST->run_test($test);
!     my $request = $WEBTEST->last_request;
!     my $response = $WEBTEST->last_response;
      ok($request->uri eq $url);
      ok($response->is_success);
--- 47,52 ----
      my $test = { url => $url };
      $WEBTEST->run_test($test);
!     my $request = $WEBTEST->current_request;
!     my $response = $WEBTEST->current_response;
      ok($request->uri eq $url);
      ok($response->is_success);
***************
*** 128,132 ****
  }
  
! # 15: test last_test after running $WEBTEST->run_tests
  {
      my $tests = [ { url => abs_url($URL, '/test-file1') },
--- 128,132 ----
  }
  
! # 15: test current_test after running $WEBTEST->run_tests
  {
      my $tests = [ { url => abs_url($URL, '/test-file1') },
***************
*** 136,140 ****
  
      $WEBTEST->run_tests($tests, { output_ref => \$output });
!     ok($WEBTEST->last_test->request->uri eq abs_url($URL, '/doesnt-exist'));
  }
  
--- 136,140 ----
  
      $WEBTEST->run_tests($tests, { output_ref => \$output });
!     ok($WEBTEST->current_test->request->uri eq abs_url($URL, '/doesnt-exist'));
  }