diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-12-09 20:21:03 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-10 13:35:57 +0000 |
| commit | 5cff3c2c66ef8cc2f5047db74e6c7c1e3824feb5 (patch) | |
| tree | 072469cd864635f8f67ad5719a956dbc59a706d9 /lib | |
| parent | e0889c13e6261d9381fa2d167301b673ce8d52aa (diff) | |
| download | perl-5cff3c2c66ef8cc2f5047db74e6c7c1e3824feb5.tar.gz | |
Bad touch
Message-ID: <20011210062103.GC1770@blackrider>
p4raw-id: //depot/perl@13599
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/Command.t | 8 |
1 files changed, 6 insertions, 2 deletions
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' ); |