From 5cff3c2c66ef8cc2f5047db74e6c7c1e3824feb5 Mon Sep 17 00:00:00 2001 From: "Michael G. Schwern" Date: Sun, 9 Dec 2001 20:21:03 -0500 Subject: Bad touch Message-ID: <20011210062103.GC1770@blackrider> p4raw-id: //depot/perl@13599 --- lib/ExtUtils/Command.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/ExtUtils/Command.t b/lib/ExtUtils/Command.t index 3a25bffe4b..7115bea503 100644 --- a/lib/ExtUtils/Command.t +++ b/lib/ExtUtils/Command.t @@ -85,10 +85,14 @@ BEGIN { my ($now) = time; utime ($now, $now, $ARGV[0]); + sleep 2; # Just checking modify time stamp, access time stamp is set - # to the beginning of the day in Win95 - is( (stat($ARGV[0]))[9], $now, 'checking modify time stamp' ); + # to the beginning of the day in Win95. + # There's a small chance of a 1 second flutter here. + my $stamp = (stat($ARGV[0]))[9]; + ok( abs($now - $stamp) <= 1, 'checking modify time stamp' ) || + print "# mtime == $stamp, should be $now\n"; # change a file to read-only @ARGV = ( 0600, 'ecmdfile' ); -- cgit v1.2.1