In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/65dd9533e90d8e1ea84c091ff43133132c667a1c?hp=1178d2cf03fa59bca77887516dd7d996bb17357c>
- Log ----------------------------------------------------------------- commit 65dd9533e90d8e1ea84c091ff43133132c667a1c Author: David Mitchell <[email protected]> Date: Mon Jul 21 16:02:23 2014 +0100 cpan/Time-HiRes/t/itimer.t: better diagnostics This test is failing some smokes. Add better diagnostics to see what's going on. Since this is a CPAN-first module, this commit either needs backing out at some point, or merging upstream. ----------------------------------------------------------------------- Summary of changes: cpan/Time-HiRes/t/itimer.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/cpan/Time-HiRes/t/itimer.t b/cpan/Time-HiRes/t/itimer.t index a9ef80d..24374cd 100644 --- a/cpan/Time-HiRes/t/itimer.t +++ b/cpan/Time-HiRes/t/itimer.t @@ -43,7 +43,8 @@ note "setitimer: ", join(" ", # 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; +ok defined $virt && abs($virt / 0.5) - 1 < $limit + or diag "virt=" . (defined $virt ? $virt : 'undef'); note "getitimer: ", join(" ", Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL)); @@ -57,7 +58,8 @@ note "getitimer: ", join(" ", Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL)); $virt = Time::HiRes::getitimer(&Time::HiRes::ITIMER_VIRTUAL); -ok defined $virt && $virt == 0; +note "at end, i=$i"; +is($virt, 0, "time left should be zero"); $SIG{VTALRM} = 'DEFAULT'; -- Perl5 Master Repository
