t/op/sleep.t doesn't actually check to see how long it's slept for. The test takes sleep()'s word for it.
I also modernized it to use Test::More and its convenience functions. xoxo, Andy --- t/op/sleep.t.orig 2004-08-08 23:19:54.000000000 -0500 +++ t/op/sleep.t 2004-08-08 23:52:11.000000000 -0500 @@ -1,8 +1,15 @@ #!./perl -# $RCSfile: sleep.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:23 $ +use strict; +use warnings; +use Test::More tests=>4; -print "1..1\n"; +my $start = time; +my $sleep_says = sleep 3; +my $diff = time - $start; -$x = sleep 3; -if ($x >= 2 && $x <= 10) {print "ok 1\n";} else {print "not ok 1 $x\n";} +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' ); -- Andy Lester => [EMAIL PROTECTED] => www.petdance.com => AIM:petdance