This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Bad touch
authorMichael G. Schwern <schwern@pobox.com>
Mon, 10 Dec 2001 01:21:03 +0000 (20:21 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 10 Dec 2001 13:35:57 +0000 (13:35 +0000)
Message-ID: <20011210062103.GC1770@blackrider>

p4raw-id: //depot/perl@13599

lib/ExtUtils/Command.t

index 3a25bff..7115bea 100644 (file)
@@ -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' );