#!/usr/bin/perl -w

use strict;
use Test::More tests => 2;

use Time::HiRes::Value;

my $start = Time::HiRes::Value->now();

sleep( 1 );

my $end = Time::HiRes::Value->now();

my $interval = $end - $start;

# Hard to be exact about this interval, but we expect it to be between 0.9 and
# 1.5 seconds
ok( $interval > 0.9, 'Interval is at least 0.9 seconds' );
ok( $interval < 1.5, 'Interval is no more than 1.5 seconds' );