[Http-webtest-commits] CVS: HTTP-WebTest/t 01-api.t,1.6,1.7

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

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

Modified Files:
	01-api.t 
Log Message:
Now $wt->run_wtscript may accept string with tests


Index: 01-api.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/01-api.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** 01-api.t	21 Feb 2002 01:02:10 -0000	1.6
--- 01-api.t	7 Jun 2002 08:57:50 -0000	1.7
***************
*** 16,20 ****
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 13 }
  
  # init test
--- 16,20 ----
  use vars qw($HOSTNAME $PORT $URL);
  
! BEGIN { plan tests => 14 }
  
  # init test
***************
*** 97,101 ****
  }
  
! # 12-13: test num_fail and num_succeed
  {
      my $tests = [ { url => abs_url($URL, '/test-file1') },
--- 97,123 ----
  }
  
! # 12: run inlined wtscript
! {
!     my $output = '';
! 
!     $WEBTEST->run_wtscript(<<WTSCRIPT, { output_ref => \$output });
! text_forbid = ( FAILED TEST )
! 
! test_name = Some name here
!     url = ${URL}test-file1
!     regex_require = ( TEST TEST )
! end_test
! 
! test_name = Another name
!     url = ${URL}no-such-file
! end_test
! WTSCRIPT
! 
!     canonical_output(server_url => $URL, output_ref => \$output);
!     compare_output(output_ref => \$output,
! 		   check_file => 't/test.out/run-wtscript');
! }
! 
! # 13-14: test num_fail and num_succeed
  {
      my $tests = [ { url => abs_url($URL, '/test-file1') },