[Http-webtest-commits] CVS: HTTP-WebTest/t simple.wt,1.7,1.8 06-parser.t,1.12,1.13

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

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

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


Index: simple.wt
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/simple.wt,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** simple.wt	15 May 2002 19:26:26 -0000	1.7
--- simple.wt	6 Jun 2002 18:27:44 -0000	1.8
***************
*** 34,37 ****
--- 34,38 ----
                        "more" => tests and fun
                        abcdef 1234 => " a b c d ' e f "
+ 	              "$undefined"
                      )
      auth = ( name => value )

Index: 06-parser.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/06-parser.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** 06-parser.t	15 May 2002 19:26:26 -0000	1.12
--- 06-parser.t	6 Jun 2002 18:27:44 -0000	1.13
***************
*** 13,19 ****
  require 't/utils.pl';
  
! BEGIN { plan tests => 58 }
  
! # 1-50: check parsed wt script (which contains all variants of
  # supported syntax)
  {
--- 13,19 ----
  require 't/utils.pl';
  
! BEGIN { plan tests => 59 }
  
! # 1-51: check parsed wt script (which contains all variants of
  # supported syntax)
  {
***************
*** 48,52 ****
      ok($tests->[0]{regex_require}[10]() eq 'AAA');
      ok($tests->[0]{url} eq 'www.dot.com');
!     ok(@{$tests->[0]{regex_forbid}} == 6);
      ok($tests->[0]{regex_forbid}[0] eq 'More = tests');
      ok($tests->[0]{regex_forbid}[1] eq 'Some @#$%^&* chars');
--- 48,52 ----
      ok($tests->[0]{regex_require}[10]() eq 'AAA');
      ok($tests->[0]{url} eq 'www.dot.com');
!     ok(@{$tests->[0]{regex_forbid}} == 7);
      ok($tests->[0]{regex_forbid}[0] eq 'More = tests');
      ok($tests->[0]{regex_forbid}[1] eq 'Some @#$%^&* chars');
***************
*** 55,58 ****
--- 55,59 ----
      ok($tests->[0]{regex_forbid}[4] eq 'abcdef 1234');
      ok($tests->[0]{regex_forbid}[5] eq ' a b c d \' e f ');
+     ok($tests->[0]{regex_forbid}[6]() eq '');
      ok($tests->[0]{ignore_case} eq 'yes');
      ok($tests->[0]{show_cookies} eq 'yes');
***************
*** 86,90 ****
  }
  
! # 51-58: check error handling for borked wtscript files
  parse_error_check(wtscript   => 't/borked1.wt',
  		  check_file => 't/test.out/borked1.err');
--- 87,91 ----
  }
  
! # 52-59: check error handling for borked wtscript files
  parse_error_check(wtscript   => 't/borked1.wt',
  		  check_file => 't/test.out/borked1.err');