diff options
Diffstat (limited to 'ext/Time/HiRes/HiRes.t')
| -rw-r--r-- | ext/Time/HiRes/HiRes.t | 216 |
1 files changed, 216 insertions, 0 deletions
diff --git a/ext/Time/HiRes/HiRes.t b/ext/Time/HiRes/HiRes.t new file mode 100644 index 0000000000..db35b955a5 --- /dev/null +++ b/ext/Time/HiRes/HiRes.t @@ -0,0 +1,216 @@ +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; +} + +BEGIN { $| = 1; print "1..19\n"; } + +END {print "not ok 1\n" unless $loaded;} + +use Time::HiRes qw(tv_interval); + +$loaded = 1; + +print "ok 1\n"; + +use strict; + +my $have_gettimeofday = defined &Time::HiRes::gettimeofday; +my $have_usleep = defined &Time::HiRes::usleep; +my $have_ualarm = defined &Time::HiRes::ualarm; + +import Time::HiRes 'gettimeofday' if $have_gettimeofday; +import Time::HiRes 'usleep' if $have_usleep; +import Time::HiRes 'ualarm' if $have_ualarm; + +use Config; + +sub skip { + map { print "ok $_ (skipped)\n" } @_; +} + +sub ok { + my ($n, $result, @info) = @_; + if ($result) { + print "ok $n\n"; + } + else { + print "not ok $n\n"; + print "# @info\n" if @info; + } +} + +if (!$have_gettimeofday) { + skip 2..6; +} +else { + my @one = gettimeofday(); + ok 2, @one == 2, 'gettimeofday returned ', 0+@one, ' args'; + ok 3, $one[0] > 850_000_000, "@one too small"; + + sleep 1; + + my @two = gettimeofday(); + ok 4, ($two[0] > $one[0] || ($two[0] == $one[0] && $two[1] > $one[1])), + "@two is not greater than @one"; + + my $f = Time::HiRes::time; + ok 5, $f > 850_000_000, "$f too small"; + ok 6, $f - $two[0] < 2, "$f - @two >= 2"; +} + +if (!$have_usleep) { + skip 7..8; +} +else { + my $one = time; + usleep(10_000); + my $two = time; + usleep(10_000); + my $three = time; + ok 7, $one == $two || $two == $three, "slept too long, $one $two $three"; + + if (!$have_gettimeofday) { + skip 8; + } + else { + my $f = Time::HiRes::time; + usleep(500_000); + my $f2 = Time::HiRes::time; + my $d = $f2 - $f; + ok 8, $d > 0.4 && $d < 0.8, "slept $d secs $f to $f2"; + } +} + +# Two-arg tv_interval() is always available. +{ + my $f = tv_interval [5, 100_000], [10, 500_000]; + ok 9, $f == 5.4, $f; +} + +if (!$have_gettimeofday) { + skip 10; +} +else { + my $r = [gettimeofday()]; + my $f = tv_interval $r; + ok 10, $f < 2, $f; +} + +if (!$have_usleep) { + skip 11; +} +else { + my $r = [gettimeofday()]; + #jTime::HiRes::sleep 0.5; + Time::HiRes::sleep( 0.5 ); + my $f = tv_interval $r; + ok 11, $f > 0.4 && $f < 0.8, "slept $f secs"; +} + +if (!$have_ualarm) { + skip 12..13; +} +else { + my $tick = 0; + local $SIG{ALRM} = sub { $tick++ }; + + my $one = time; $tick = 0; ualarm(10_000); sleep until $tick; + my $two = time; $tick = 0; ualarm(10_000); sleep until $tick; + my $three = time; + ok 12, $one == $two || $two == $three, "slept too long, $one $two $three"; + + $tick = 0; + ualarm(10_000, 10_000); + sleep until $tick >= 3; + ok 13, 1; + ualarm(0); +} + +# new test: did we even get close? + +{ + my $t = time(); + my $tf = Time::HiRes::time(); + ok 14, (abs($tf - $t) <= 1), + "time $t differs from Time::HiRes::time $tf"; +} + +unless (defined &Time::HiRes::gettimeofday + && defined &Time::HiRes::ualarm + && defined &Time::HiRes::usleep) { + for (15..17) { + print "ok $_ # skipped\n"; + } +} else { + use Time::HiRes qw (time alarm sleep); + + my ($f, $r, $i); + + print "# time..."; + $f = time; + print "$f\nok 15\n"; + + print "# sleep..."; + $r = [Time::HiRes::gettimeofday]; + sleep (0.5); + print Time::HiRes::tv_interval($r), "\nok 16\n"; + + $r = [Time::HiRes::gettimeofday]; + $i = 5; + $SIG{ALRM} = "tick"; + while ($i) + { + alarm(0.3); + select (undef, undef, undef, 10); + print "# Select returned! $i ", Time::HiRes::tv_interval ($r), "\n"; + } + + sub tick + { + $i--; + print "# Tick! $i ", Time::HiRes::tv_interval ($r), "\n"; + } + $SIG{ALRM} = 'DEFAULT'; + + print "ok 17\n"; +} + +unless (defined &Time::HiRes::setitimer + && defined &Time::HiRes::getitimer + && exists &Time::HiRes::ITIMER_VIRTUAL + && $Config{d_select}) { + for (18..19) { + print "ok $_ # Skip: no virtual interval timers\n"; + } +} else { + use Time::HiRes qw (setitimer getitimer ITIMER_VIRTUAL); + + my $i = 3; + my $r = [Time::HiRes::gettimeofday]; + + $SIG{VTALRM} = sub { + $i ? $i-- : setitimer(ITIMER_VIRTUAL, 0); + print "# Tick! $i ", Time::HiRes::tv_interval($r), "\n"; + }; + + print "# setitimer: ", join(" ", setitimer(ITIMER_VIRTUAL, 0.5, 0.4)), "\n"; + + # Assume interval timer granularity of 0.05 seconds. Too bold? + print "not " unless abs(getitimer(ITIMER_VIRTUAL) / 0.5) - 1 < 0.1; + print "ok 18\n"; + + print "# getitimer: ", join(" ", getitimer(ITIMER_VIRTUAL)), "\n"; + + while (getitimer(ITIMER_VIRTUAL)) { + my $j; $j++ for 1..1000; # Can't be unbreakable, must test getitimer(). + } + + print "# getitimer: ", join(" ", getitimer(ITIMER_VIRTUAL)), "\n"; + + print "not " unless getitimer(ITIMER_VIRTUAL) == 0; + print "ok 19\n"; + + $SIG{VTALRM} = 'DEFAULT'; +} + |