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 (file)
--- 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";