perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: modperl-2.0/t/hooks cleanup2.t
Date Fri, 06 Jun 2003 03:45:53 GMT
randyk      2003/06/05 20:45:53

  Modified:    t/hooks  cleanup2.t
  Log:
  Reviewed by:	stas
  Adjust size of file on Win32 to take into account crlf differences.
  
  Revision  Changes    Path
  1.2       +5 -1      modperl-2.0/t/hooks/cleanup2.t
  
  Index: cleanup2.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/cleanup2.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- cleanup2.t	30 May 2003 02:09:57 -0000	1.1
  +++ cleanup2.t	6 Jun 2003 03:45:52 -0000	1.2
  @@ -4,9 +4,13 @@
   use Apache::Test;
   use Apache::TestUtil;
   use Apache::TestRequest;
  +use Apache::TestConfig;
   
   use File::Spec::Functions qw(catfile catdir);
   
  +use constant SIZE => Apache::TestConfig::WIN32 ? 14 : 10;
  +use constant TRIES => 20;
  +
   my $vars = Apache::Test::config->{vars};
   my $dir  = catdir $vars->{documentroot}, "hooks";
   my $file = catfile $dir, "cleanup2";
  @@ -35,7 +39,7 @@
       # and remove in the file. (wait 0.25 .. 5 sec)
       my $t = 0;
       select undef, undef, undef, 0.25
  -        while -e $file && -s _ == 10 || $t++ == 20;
  +        while -e $file && -s _ == SIZE || $t++ == TRIES;
   
       if (-e $file) {
           t_debug("$file wasn't removed by the cleanup phase");
  
  
  

Mime
View raw message