1 files changed, 10 insertions, 0 deletions
diff --git a/cpan/Time-HiRes/t/tv_interval.t b/cpan/Time-HiRes/t/tv_interval.t
new file mode 100644
index 0000000000..bffcf39ec1
--- /dev/null
+++ b/cpan/Time-HiRes/t/tv_interval.t
@@ -0,0 +1,10 @@
+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;