From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 15 Apr 2001 19:31:01 +0000 (+0000)
Subject: Test also the scalar aspect of getitimer().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c41c9bfb7f60b33ff8b2ffe4f079a27b25ff8ad;p=p5sagit%2Fp5-mst-13.2.git

Test also the scalar aspect of getitimer().

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

diff --git a/t/lib/time-hires.t b/t/lib/time-hires.t
index 1e68acf..b74375b 100644
--- a/t/lib/time-hires.t
+++ b/t/lib/time-hires.t
@@ -194,12 +194,12 @@ unless (defined &Time::HiRes::setitimer
 	print "# Tick! $i ", Time::HiRes::tv_interval($r), "\n";
     };	
 
-    print "# setitimer: ", join(" ", setitimer(ITIMER_VIRTUAL, 3, 0.5)), "\n";
+    print "# setitimer: ", join(" ", setitimer(ITIMER_VIRTUAL, 1, 0.5)), "\n";
 
     print "# getitimer: ", join(" ", getitimer(ITIMER_VIRTUAL)), "\n";
 
-    while ($i) {
-	my $j; $j++ for 1..1000;
+    while (getitimer(ITIMER_VIRTUAL)) {
+	my $j; $j++ for 1..1000; # Can't be unbreakable, must test getitimer().
     }
 
     print "# getitimer: ", join(" ", getitimer(ITIMER_VIRTUAL)), "\n";