1 files changed, 63 insertions, 0 deletions
diff --git a/cpan/Time-HiRes/t/itimer.t b/cpan/Time-HiRes/t/itimer.t
new file mode 100644
index 0000000000..7877f6364d
--- /dev/null
+++ b/cpan/Time-HiRes/t/itimer.t
@@ -0,0 +1,63 @@
+use strict;
+
+sub has_symbol {
+    my $symbol = shift;
+    eval "use Time::HiRes qw($symbol)";
+    return 0 unless $@ eq '';
+    eval "my \$a = $symbol";
+    return $@ eq '';
+}
+
+use Config;
+
+BEGIN {
+    require Time::HiRes;
+    unless(defined &Time::HiRes::setitimer
+	    && defined &Time::HiRes::getitimer
+	    && has_symbol('ITIMER_VIRTUAL')
+	    && $Config{sig_name} =~ m/\bVTALRM\b/
+	    && $^O ne 'nto' # nto: QNX 6 has the API but no implementation
+	    && $^O ne 'haiku' # haiku: has the API but no implementation
+    ) {
+	require Test::More;
+	Test::More::plan(skip_all => "no itimer");
+    }
+}
+
+use Test::More 0.82 tests => 2;
+use t::Watchdog;
+
+my $limit = 0.25; # 25% is acceptable slosh for testing timers
+
+my $i = 3;
+my $r = [Time::HiRes::gettimeofday()];
+
+$SIG{VTALRM} = sub {
+    $i ? $i-- : Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0);
+    note "Tick! $i ", Time::HiRes::tv_interval($r);
+};	
+
+note "setitimer: ", join(" ",
+    Time::HiRes::setitimer(&Time::HiRes::ITIMER_VIRTUAL, 0.5, 0.4));
+
+# Assume interval timer granularity of $limit * 0.5 seconds.  Too bold?
+my $virt = Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL);
+ok defined $virt && abs($virt / 0.5) - 1 < $limit;
+
+note "getitimer: ", join(" ",
+    Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL));
+
+while (Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL)) {
+    my $j;
+    for (1..1000) { $j++ } # Can't be unbreakable, must test getitimer().
+}
+
+note "getitimer: ", join(" ",
+    Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL));
+
+$virt = Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL);
+ok defined $virt && $virt == 0;
+
+$SIG{VTALRM} = 'DEFAULT';
+
+1;