perl-5.16.2/cpan/Time-HiRes/t/tv_interval.t

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;