http-webtest-commits

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

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

Modified Files:
	01-api.t 
Log Message:
Updated


Index: 01-api.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/01-api.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** 01-api.t	7 Jun 2002 08:57:50 -0000	1.7
--- 01-api.t	18 Oct 2002 21:02:44 -0000	1.8
***************
*** 16,20 ****
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 14 }
  
  # init test
--- 16,20 ----
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 15 }
  
  # init test
***************
*** 130,133 ****
--- 130,144 ----
      ok($WEBTEST->num_fail == 2);
      ok($WEBTEST->num_succeed == 1);
+ }
+ 
+ # 15: test last_test after running $WEBTEST->run_tests
+ {
+     my $tests = [ { url => abs_url($URL, '/test-file1') },
+ 		  { url => abs_url($URL, '/doesnt-exist') } ];
+ 
+     my $output = '';
+ 
+     $WEBTEST->run_tests($tests, { output_ref => \$output });
+     ok($WEBTEST->last_test->request->uri eq abs_url($URL, '/doesnt-exist'));
  }