regcomp.c: Rename a variable

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

diff --git a/t/op/sleep.t b/t/op/sleep.t
old mode 100755 (executable)
new mode 100644 (file)
index 07cdb82..d0ed917
--- a/t/op/sleep.t
+++ b/t/op/sleep.t
@@ -1,8 +1,22 @@
 #!./perl
 
-# $RCSfile: sleep.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:23 $
+BEGIN {
+    chdir 't' if -d 't';
+    require "./test.pl";
+    set_up_inc( qw(. ../lib) );
+}
 
-print "1..1\n";
+plan( tests => 4 );
 
-$x = sleep 2;
-if ($x >= 2 && $x <= 10) {print "ok 1\n";} else {print "not ok 1 $x\n";}
+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' );