#!./perl

# $FreeBSD: stable/2.1/gnu/usr.bin/perl/perl/t/op/sleep.t 50952 1999-09-05 11:54:50Z peter $

print "1..1\n";

$x = sleep 2;
if ($x >= 2 && $x <= 10) {print "ok 1\n";} else {print "not ok 1 $x\n";}
