[Http-webtest-commits] HTTP-WebTest/t 06-parser.t,1.20,1.21

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

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

Modified Files:
	06-parser.t 
Log Message:
More tests for wtscript writting


Index: 06-parser.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/06-parser.t,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** 06-parser.t	25 Jan 2003 17:48:05 -0000	1.20
--- 06-parser.t	25 Jan 2003 18:02:05 -0000	1.21
***************
*** 122,126 ****
  		  check_file => 't/test.out/borked8.err');
  
! # 69: test writing wtscript for single test
  {
      my @params = ( xxx => 'yyy',
--- 122,126 ----
  		  check_file => 't/test.out/borked8.err');
  
! # 69-70: test writing wtscript for single test
  {
      my @params = ( xxx => 'yyy',
***************
*** 131,134 ****
--- 131,142 ----
      compare_output(check_file => 't/test.out/write_params',
                     output_ref => \$output);
+ 
+     # crash test - parse wtscript, generate, parse wtscript and
+     # compare results
+     my ($tests1, $opts1) = HTTP::WebTest::Parser->parse($output);
+     my $output1 = HTTP::WebTest::Parser->write_test([ %{$tests1->[0]} ]);
+     my ($tests2, $opts2) = HTTP::WebTest::Parser->parse($output1);
+     is_deeply([$tests1, $opts1],
+               [$tests2, $opts2]);
  }