[Http-webtest-commits] HTTP-WebTest/t 02-generic.t,1.24,1.25

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

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

Modified Files:
	02-generic.t 
Log Message:
Fix buggy 'timeout' parameter test


Index: 02-generic.t
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/t/02-generic.t,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** 02-generic.t	22 Dec 2002 21:25:50 -0000	1.24
--- 02-generic.t	3 Jan 2003 22:21:12 -0000	1.25
***************
*** 652,658 ****
      my $out_filter = sub {
          $_[0] =~ s|( Response \s+ time \s+ \( \s+ )
!                    ( \d+ \. ) ( \d+ )
                     ( \s+ \) )
!                    |"$1$2" . ('0' x length($3)) . "$4"|xge;
      };
  
--- 652,658 ----
      my $out_filter = sub {
          $_[0] =~ s|( Response \s+ time \s+ \( \s+ )
!                    ( \d+ \. \d+ )
                     ( \s+ \) )
!                    |"$1" . sprintf('%.2f', int $2 + 0.25) . "$3"|xge;
      };