[Http-webtest-commits] CVS: HTTP-WebTest/t 06-parser.t,1.1.1.1,1.2 01-api.t,1.3,1.4

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

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

Modified Files:
	06-parser.t 01-api.t 
Log Message:
Names of tests specified in wtscript files was ignored. It is fixed
now.


Index: 06-parser.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/06-parser.t,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** 06-parser.t	2002/01/24 12:26:10	1.1.1.1
--- 06-parser.t	2002/01/28 09:49:55	1.2
***************
*** 23,27 ****
  
      # check $tests
!     ok($tests->[0]{name} eq 'Some name here');
      ok($tests->[0]{auth}[0] eq 'name');
      ok($tests->[0]{auth}[1] eq 'value');
--- 23,27 ----
  
      # check $tests
!     ok($tests->[0]{test_name} eq 'Some name here');
      ok($tests->[0]{auth}[0] eq 'name');
      ok($tests->[0]{auth}[1] eq 'value');
***************
*** 35,39 ****
      ok($tests->[0]{regex_forbid}[4] eq 'abcdef 1234');
      ok($tests->[0]{regex_forbid}[5] eq ' a b c d \' e f ');
!     ok($tests->[1]{name} eq 'Another name');
      ok($tests->[1]{url} eq 'www.tiv.net');
      ok($tests->[1]{cookie}[0][0] eq '0');
--- 35,39 ----
      ok($tests->[0]{regex_forbid}[4] eq 'abcdef 1234');
      ok($tests->[0]{regex_forbid}[5] eq ' a b c d \' e f ');
!     ok($tests->[1]{test_name} eq 'Another name');
      ok($tests->[1]{url} eq 'www.tiv.net');
      ok($tests->[1]{cookie}[0][0] eq '0');

Index: 01-api.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/01-api.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 01-api.t	2002/01/28 07:11:05	1.3
--- 01-api.t	2002/01/28 09:49:56	1.4
***************
*** 147,151 ****
  
      my ($tests, $opts) = $WEBTEST->parse($data);
!     ok($tests->[0]{name} eq 'Some name here');
      ok($opts->{text_require}[0] eq 'Require some');
  }
--- 147,151 ----
  
      my ($tests, $opts) = $WEBTEST->parse($data);
!     ok($tests->[0]{test_name} eq 'Some name here');
      ok($opts->{text_require}[0] eq 'Require some');
  }