use strict;
use Test::More 0.82 tests => 2;
BEGIN { require_ok "Time::HiRes"; }
my $f = Time::HiRes::tv_interval [5, 100_000], [10, 500_000];
ok abs($f - 5.4) < 0.001 or note $f;
1;
use strict;
use Test::More 0.82 tests => 2;
BEGIN { require_ok "Time::HiRes"; }
my $f = Time::HiRes::tv_interval [5, 100_000], [10, 500_000];
ok abs($f - 5.4) < 0.001 or note $f;
1;