From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 25 Nov 2001 23:43:30 +0000 (+0000)
Subject: Can't do subsecond alarms without ualarm; and break out
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c7f7de79b29dbf9dc4dad160031670476cc2ac71;p=p5sagit%2Fp5-mst-13.2.git

Can't do subsecond alarms without ualarm; and break out
early if alarms do not seem to be coming in as expected.

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

diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t
index ad0dcc3..2046fed 100644
--- a/ext/Time/HiRes/HiRes.t
+++ b/ext/Time/HiRes/HiRes.t
@@ -146,14 +146,15 @@ if (!$have_time) {
 
 unless (defined &Time::HiRes::gettimeofday
 	&& defined &Time::HiRes::ualarm
-	&& defined &Time::HiRes::usleep) {
+	&& defined &Time::HiRes::usleep
+	&& $Config{d_ualarm}) {
     for (15..17) {
 	print "ok $_ # skipped\n";
     }
 } else {
     use Time::HiRes qw (time alarm sleep);
 
-    my ($f, $r, $i);
+    my ($f, $r, $i, $not);
 
     $f = time; 
     print "# time...$f\n";
@@ -169,18 +170,31 @@ unless (defined &Time::HiRes::gettimeofday
     while ($i > 0)
     {
 	alarm(0.3);
-	select (undef, undef, undef, 10);
-	print "# Select returned! $i ", Time::HiRes::tv_interval ($r), "\n";
+	select (undef, undef, undef, 3);
+	my $ival = Time::HiRes::tv_interval ($r);
+	print "# Select returned! $i $ival\n";
+	my $exp = 0.3 * (5 - $i);
+	if (abs($ival/$exp) - 1 > 0.1) {
+	    $not = "$exp sleep took $ival";
+	    last;
+	}
     }
 
     sub tick
     {
 	$i--;
-	print "# Tick! $i ", Time::HiRes::tv_interval ($r), "\n";
+	my $ival = Time::HiRes::tv_interval ($r);
+	print "# Tick! $i $ival\n";
+	my $exp = 0.3 * (5 - $i);
+	if (abs($ival/$exp) - 1 > 0.1) {
+	    $not = "$exp sleep took $ival";
+	    $i = 0;
+	}
     }
+
     alarm(0); # can't cancel usig %SIG
 
-    print "ok 17\n";
+    print $not ? "not ok 17 # $not\n" : "ok 17\n";
 }
 
 unless (defined &Time::HiRes::setitimer