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') },
|
