1#!/usr/bin/perl -w
2
3use strict;
4use Test::More tests => 2;
5
6use Time::HiRes::Value;
7
8my $start = Time::HiRes::Value->now();
9
10sleep( 1 );
11
12my $end = Time::HiRes::Value->now();
13
14my $interval = $end - $start;
15
16# Hard to be exact about this interval, but we expect it to be between 0.9 and
17# 1.5 seconds
18ok( $interval > 0.9, 'Interval is at least 0.9 seconds' );
19ok( $interval < 1.5, 'Interval is no more than 1.5 seconds' );
20