[perl5.git] / t / op / sleep.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = qw(. ../lib);
}

require "test.pl";
plan( tests => 4 );

use strict;
use warnings;

my $start = time;
my $sleep_says = sleep 3;
my $diff = time - $start;

cmp_ok( $sleep_says, '>=', 2,  'Sleep says it slept at least 2 seconds' );
cmp_ok( $sleep_says, '<=', 10, '... and no more than 10' );

cmp_ok( $diff, '>=', 2,  'Actual time diff is at least 2 seconds' );
cmp_ok( $diff, '<=', 10, '... and no more than 10' );
Commit	Line	Data
8d063cd8 LW	1	#!./perl
8d063cd8 LW	2
f9e4a5e8 SP	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = qw(. ../lib);
	6	}
	7
	8	require "test.pl";
	9	plan( tests => 4 );
	10
642c4ad7 AL	11	use strict;
642c4ad7 AL	12	use warnings;
8d063cd8	13
642c4ad7 AL	14	my $start = time;
	15	my $sleep_says = sleep 3;
	16	my $diff = time - $start;
8d063cd8	17
642c4ad7 AL	18	cmp_ok( $sleep_says, '>=', 2, 'Sleep says it slept at least 2 seconds' );
	19	cmp_ok( $sleep_says, '<=', 10, '... and no more than 10' );
	20
	21	cmp_ok( $diff, '>=', 2, 'Actual time diff is at least 2 seconds' );
	22	cmp_ok( $diff, '<=', 10, '... and no more than 10' );