Time-HiRes/t/ualarm.t

4     require Time::HiRes;
5     unless(&Time::HiRes::d_ualarm) {
23     $tick = 0; Time::HiRes::ualarm(10_000); while ($tick == 0) { }
25     $tick = 0; Time::HiRes::ualarm(10_000); while ($tick == 0) { }
31     $tick = 0; Time::HiRes::ualarm(10_000, 10_000); while ($tick < 3) { }
33     Time::HiRes::ualarm(0);
37 eval { Time::HiRes::ualarm(-4) };
62         my $t0 = Time::HiRes::time();
65         Time::HiRes::ualarm($n); 1 while $alarmed == 0;
66         my $t1 = Time::HiRes::time();
78         Time::HiRes::sleep($nap);
87     my $t0 = Time::HiRes::time();
88     my $got0 = Time::HiRes::ualarm(500_000);
93         $t1 = Time::HiRes::time();
95     my $got1 = Time::HiRes::ualarm(0);
109     my $got2 = Time::HiRes::ualarm(0);