From: Andy Lester <andy@petdance.com>
Date: Mon, 9 Aug 2004 00:11:51 +0000 (-0500)
Subject: Patch for t/op/sleep.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=642c4ad7e6ff8efaa5b06b11273bd071b3f3f7f8;p=p5sagit%2Fp5-mst-13.2.git

Patch for t/op/sleep.t
Message-ID: <20040809051151.GA13872@petdance.com>

p4raw-id: //depot/perl@23206
---

diff --git a/t/op/sleep.t b/t/op/sleep.t
index 5f6c4c0..c2684ad 100755
--- a/t/op/sleep.t
+++ b/t/op/sleep.t
@@ -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' );