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