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