Time-HiRes/t/alarm.t

7 BEGIN { require_ok "Time::HiRes"; }
20     defined &Time::HiRes::gettimeofday &&
21     defined &Time::HiRes::ualarm &&
22     defined &Time::HiRes::usleep &&
35     $r = [Time::HiRes::gettimeofday()];
62             Time::HiRes::alarm(0.3);
64             my $ival = Time::HiRes::tv_interval ($r);
94         my $ival = Time::HiRes::tv_interval ($r);
112         Time::HiRes::alarm(0); # can't cancel usig %SIG
120     skip "no ualarm", 1 unless &Time::HiRes::d_ualarm;
121     eval { Time::HiRes::alarm(-3) };
130     skip "no ualarm", 1 unless &Time::HiRes::d_ualarm;
142          my $t0 = Time::HiRes::time();
144          my $t1 = Time::HiRes::time();
161     # Time::HiRes, behind the curtains the libc getitimer() or
178         printf("# Alarm $a - %s\n", Time::HiRes::time());
179         Time::HiRes::alarm(0) if $a >= $A; # Disarm the alarm.
183     Time::HiRes::alarm($T, $T);  # Arm the alarm.
195         Time::HiRes::alarm(0.1);
196         my $t0 = Time::HiRes::time();
197         1 while Time::HiRes::time() - $t0 <= 1;
203         Time::HiRes::alarm(1.1);
204         my $t0 = Time::HiRes::time();
205         1 while Time::HiRes::time() - $t0 <= 2;
212         my $got = Time::HiRes::alarm(2.7);
215         my $t0 = Time::HiRes::time();
216         1 while Time::HiRes::time() - $t0 <= 1;
218         $got = Time::HiRes::alarm(0);
223         $got = Time::HiRes::alarm(0);