X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Ftime-hires.t;h=db35b955a55dd13769782b362142b46488c8333d;hb=6119b5d3eb13acf0c1d8ca5a1242fa7a3750a4cf;hp=cc741e766943a9d270a7cc8ddd35699d16044db6;hpb=bf91b999b25fa75a3ef7a327742929592a2e7e9c;p=p5sagit%2Fp5-mst-13.2.git diff --git a/t/lib/time-hires.t b/t/lib/time-hires.t index cc741e7..db35b95 100644 --- a/t/lib/time-hires.t +++ b/t/lib/time-hires.t @@ -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"; }