1use strict; 2 3use Test::More tests => 2; 4 5BEGIN { require_ok "Time::HiRes"; } 6 7my $f = Time::HiRes::tv_interval [5, 100_000], [10, 500_000]; 8ok abs($f - 5.4) < 0.001 or print("# $f\n"); 9 101; 11