SHA256
1
0
forked from pool/perl
perl/perl-HiRes.t-timeout.diff

56 lines
2.1 KiB
Diff

--- ./cpan/Time-HiRes/t/alarm.t.orig 2014-01-31 21:55:51.000000000 +0000
+++ ./cpan/Time-HiRes/t/alarm.t 2014-06-02 14:43:54.672025619 +0000
@@ -7,7 +7,7 @@ BEGIN { require_ok "Time::HiRes"; }
use Config;
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
my $xdefine = '';
if (open(XDEFINE, "xdefine")) {
--- ./cpan/Time-HiRes/t/clock.t.orig 2014-01-31 21:55:51.000000000 +0000
+++ ./cpan/Time-HiRes/t/clock.t 2014-06-02 14:43:54.672025619 +0000
@@ -28,7 +28,7 @@ note sprintf "have_clock = %d"
# completes fine with (say) 30% slosh, and fail otherwise. If you do that,
# consider changing over to test.pl at the same time.
# --A.D., Nov 27, 2001
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
SKIP: {
skip "no clock_gettime", 1
--- ./cpan/Time-HiRes/t/itimer.t.orig 2014-01-31 21:55:51.000000000 +0000
+++ ./cpan/Time-HiRes/t/itimer.t 2014-06-02 14:43:54.673025616 +0000
@@ -28,7 +28,7 @@ BEGIN {
use Test::More 0.82 tests => 2;
use t::Watchdog;
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
my $i = 3;
my $r = [Time::HiRes::gettimeofday()];
--- ./cpan/Time-HiRes/t/stat.t.orig 2014-05-26 13:34:19.000000000 +0000
+++ ./cpan/Time-HiRes/t/stat.t 2014-06-02 14:43:54.673025616 +0000
@@ -16,7 +16,7 @@ BEGIN {
use Test::More 0.82 tests => 43;
use t::Watchdog;
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
my @atime;
my @mtime;
--- ./cpan/Time-HiRes/t/usleep.t.orig 2014-01-31 21:55:51.000000000 +0000
+++ ./cpan/Time-HiRes/t/usleep.t 2014-06-02 14:43:54.673025616 +0000
@@ -15,7 +15,7 @@ eval { Time::HiRes::usleep(-2) };
like $@, qr/::usleep\(-2\): negative time not invented yet/,
"negative time error";
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
my $one = CORE::time;
Time::HiRes::usleep(10_000);