[Http-webtest-commits] CVS: HTTP-WebTest/t 06-parser.t,1.10,1.11

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

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

Modified Files:
	06-parser.t 
Log Message:
Oops, I've disabled wrong test


Index: 06-parser.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/06-parser.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** 06-parser.t	12 Feb 2002 13:07:58 -0000	1.10
--- 06-parser.t	12 Feb 2002 13:17:13 -0000	1.11
***************
*** 93,105 ****
  parse_error_check(wtscript   => 't/borked4.wt',
  		  check_file => 't/test.out/borked4.err');
! if($] >= 5.006) {
!     parse_error_check(wtscript   => 't/borked5.wt',
! 		      check_file => 't/test.out/borked5.err');
! } else {
!     skip('skip: test is skipped because it triggers Perl bug', 1);
! }
  parse_error_check(wtscript   => 't/borked6.wt',
  		  check_file => 't/test.out/borked6.err');
! {
      my $out_filter = sub {
  	$_[0] =~ s/\(eval \d+\)/(eval NN)/;
--- 93,101 ----
  parse_error_check(wtscript   => 't/borked4.wt',
  		  check_file => 't/test.out/borked4.err');
! parse_error_check(wtscript   => 't/borked5.wt',
! 		  check_file => 't/test.out/borked5.err');
  parse_error_check(wtscript   => 't/borked6.wt',
  		  check_file => 't/test.out/borked6.err');
! if($] >= 5.006) {
      my $out_filter = sub {
  	$_[0] =~ s/\(eval \d+\)/(eval NN)/;
***************
*** 108,111 ****
--- 104,109 ----
  		      check_file => 't/test.out/borked7.err',
  		      out_filter => $out_filter);
+ } else {
+     skip('skip: test is skipped because it triggers Perl bug', 1);
  }
  parse_error_check(wtscript   => 't/borked8.wt',