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]);
}
|
