This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl-current/t/time-hires.t
authorJohn Peacock <jpeacock@rowman.com>
Fri, 11 May 2001 14:09:41 +0000 (10:09 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 16 May 2001 12:37:57 +0000 (12:37 +0000)
Message-ID: <3AFC2AE5.5E787E54@rowman.com>

p4raw-id: //depot/perl@10118

t/lib/time-hires.t

index cc741e7..db35b95 100644 (file)
@@ -132,7 +132,7 @@ else {
 {
  my $t = time();
  my $tf = Time::HiRes::time();
- ok 14, ($tf >= $t) && (($tf - $t) <= 1),
+ ok 14, (abs($tf - $t) <= 1),
   "time $t differs from Time::HiRes::time $tf";
 }