[Http-webtest-commits] CVS: HTTP-WebTest/t simple.wt,1.3,1.4 06-parser.t,1.4,1.5

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

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

Modified Files:
	simple.wt 06-parser.t 
Log Message:
Updated


Index: simple.wt
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/simple.wt,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** simple.wt	8 Feb 2002 14:06:16 -0000	1.3
--- simple.wt	8 Feb 2002 14:28:35 -0000	1.4
***************
*** 21,25 ****
                        'test \''
                        'test $a'
!                       'test @a' )
      regex_forbid =  ( More = tests
                        Some @#$%^&* chars
--- 21,27 ----
                        'test \''
                        'test $a'
!                       'test @a'
!                       "test $a"
!                       "test @a" )
      regex_forbid =  ( More = tests
                        Some @#$%^&* chars

Index: 06-parser.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/06-parser.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 06-parser.t	8 Feb 2002 14:06:16 -0000	1.4
--- 06-parser.t	8 Feb 2002 14:28:35 -0000	1.5
***************
*** 13,19 ****
  require 't/utils.pl';
  
! BEGIN { plan tests => 43 }
  
! # 1-35: check parsing wt script (contain all syntax variants)
  {
      my $filename = shift;
--- 13,19 ----
  require 't/utils.pl';
  
! BEGIN { plan tests => 45 }
  
! # 1-37: check parsing wt script (contain all syntax variants)
  {
      my $filename = shift;
***************
*** 33,36 ****
--- 33,38 ----
      ok($tests->[0]{regex_require}[4] eq 'test $a');
      ok($tests->[0]{regex_require}[5] eq 'test @a');
+     ok($tests->[0]{regex_require}[6] eq 'test $a');
+     ok($tests->[0]{regex_require}[7] eq 'test @a');
      ok($tests->[0]{url} eq 'www.dot.com');
      ok($tests->[0]{regex_forbid}[0] eq 'More = tests');
***************
*** 68,72 ****
  }
  
! # 36-43: check error handling for borked wtscript files
  parse_error_check(wtscript   => 't/borked1.wt',
  		  check_file => 't/test.out/borked1.err');
--- 70,74 ----
  }
  
! # 38-45: check error handling for borked wtscript files
  parse_error_check(wtscript   => 't/borked1.wt',
  		  check_file => 't/test.out/borked1.err');