File perl-HiRes.t-timeout.diff of Package perl (Revision 51773fa86eb17cb35c40f26ea6176f21)
Currently displaying revision 51773fa86eb17cb35c40f26ea6176f21 , Show latest
xxxxxxxxxx
1
--- ./dist/Time-HiRes/t/alarm.t.orig 2017-04-19 13:37:05.000000000 +0000
2
+++ ./dist/Time-HiRes/t/alarm.t 2017-08-30 12:15:18.729183834 +0000
3
4
5
use Config;
6
7
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
8
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
9
10
my $xdefine = '';
11
if (open(XDEFINE, "<", "xdefine")) {
12
--- ./dist/Time-HiRes/t/clock.t.orig 2017-04-19 13:37:05.000000000 +0000
13
+++ ./dist/Time-HiRes/t/clock.t 2017-08-30 12:15:18.729183834 +0000
14
15
# completes fine with (say) 30% slosh, and fail otherwise. If you do that,
16
# consider changing over to test.pl at the same time.
17
# --A.D., Nov 27, 2001
18
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
19
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
20
21
SKIP: {
22
skip "no clock_gettime", 1
23
--- ./dist/Time-HiRes/t/itimer.t.orig 2017-04-19 13:37:05.000000000 +0000
24
+++ ./dist/Time-HiRes/t/itimer.t 2017-08-30 12:15:18.729183834 +0000
25
26
BEGIN { push @INC, '.' }
27
use t::Watchdog;
28
29
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
30
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
31
32
my $i = 3;
33
my $r = [Time::HiRes::gettimeofday()];
34
--- ./dist/Time-HiRes/t/usleep.t.orig 2017-04-19 13:37:05.000000000 +0000
35
+++ ./dist/Time-HiRes/t/usleep.t 2017-08-30 12:15:18.730183834 +0000
36
37
like $@, qr/::usleep\(-2\): negative time not invented yet/,
38
"negative time error";
39
40
-my $limit = 0.25; # 25% is acceptable slosh for testing timers
41
+my $limit = 0.60; # 25% is acceptable slosh for testing timers
42
43
my $one = CORE::time;
44
Time::HiRes::usleep(10_000);
45