Test hex('x...').
[p5sagit/p5-mst-13.2.git] / t / op / sleep.t
old mode 100644 (file)
new mode 100755 (executable)
index c26d397..5f6c4c0
@@ -1,8 +1,8 @@
 #!./perl
 
-# $Header: sleep.t,v 4.0 91/03/20 01:54:34 lwall Locked $
+# $RCSfile: sleep.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:23 $
 
 print "1..1\n";
 
-$x = sleep 2;
+$x = sleep 3;
 if ($x >= 2 && $x <= 10) {print "ok 1\n";} else {print "not ok 1 $x\n";}