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");
|