This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade Parse::CPAN::Meta from version 1.4417 to 1.4421
[perl5.git] / dist / Time-HiRes / t / itimer.t
CommitLineData
90e44bf6
Z
1use strict;
2
3sub has_symbol {
4 my $symbol = shift;
5 eval "use Time::HiRes qw($symbol)";
6 return 0 unless $@ eq '';
7 eval "my \$a = $symbol";
8 return $@ eq '';
9}
10
11use Config;
12
13BEGIN {
14 require Time::HiRes;
15 unless(defined &Time::HiRes::setitimer
16 && defined &Time::HiRes::getitimer
17 && has_symbol('ITIMER_VIRTUAL')
18 && $Config{sig_name} =~ m/\bVTALRM\b/
19 && $^O ne 'nto' # nto: QNX 6 has the API but no implementation
20 && $^O ne 'haiku' # haiku: has the API but no implementation
858dcda5 21 && $^O ne 'gnu' # GNU/Hurd: has the API but no implementation
90e44bf6
Z
22 ) {
23 require Test::More;
24 Test::More::plan(skip_all => "no itimer");
25 }
26}
27
28use Test::More 0.82 tests => 2;
29use t::Watchdog;
30
31my $limit = 0.25; # 25% is acceptable slosh for testing timers
32
33my $i = 3;
34my $r = [Time::HiRes::gettimeofday()];
35
36$SIG{VTALRM} = sub {
37 $i ? $i-- : Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0);
38 note "Tick! $i ", Time::HiRes::tv_interval($r);
39};
40
41note "setitimer: ", join(" ",
42 Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0.5, 0.4));
43
44# Assume interval timer granularity of $limit * 0.5 seconds. Too bold?
45my $virt = Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL);
120b53f9
RS
46ok(defined $virt && abs($virt / 0.5) - 1 < $limit,
47 "ITIMER_VIRTUAL defined with sufficient granularity")
48 or diag "virt=" . (defined $virt ? $virt : 'undef');
90e44bf6
Z
49
50note "getitimer: ", join(" ",
51 Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL));
52
53while (Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL)) {
54 my $j;
55 for (1..1000) { $j++ } # Can't be unbreakable, must test getitimer().
56}
57
58note "getitimer: ", join(" ",
59 Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL));
60
61$virt = Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL);
120b53f9
RS
62note "at end, i=$i";
63is($virt, 0, "time left should be zero");
90e44bf6
Z
64
65$SIG{VTALRM} = 'DEFAULT';
66
671;