perl/perl_skip_flaky_tests_powerpc.patch

94 lines
2.6 KiB
Diff

--- cpan/Memoize/t/expmod_t.t.orig 2023-05-26 01:05:34.000000000 +0000
+++ cpan/Memoize/t/expmod_t.t 2023-07-19 14:04:47.663312737 +0000
@@ -1,4 +1,7 @@
use strict; use warnings;
+
+use Test::More skip_all => "ppc workers are too busy";
+
use Memoize;
use Memoize::Expire;
--- dist/Time-HiRes/t/alarm.t.orig 2023-07-19 13:59:43.995753782 +0000
+++ dist/Time-HiRes/t/alarm.t 2023-07-19 14:00:51.687655436 +0000
@@ -1,6 +1,6 @@
use strict;
-use Test::More tests => 10;
+use Test::More skip_all => "ppc workers are too busy";
BEGIN { push @INC, '.' }
use t::Watchdog;
--- dist/Time-HiRes/t/clock.t.orig 2023-07-19 13:59:43.995753782 +0000
+++ dist/Time-HiRes/t/clock.t 2023-07-19 14:00:51.687655436 +0000
@@ -1,6 +1,6 @@
use strict;
-use Test::More tests => 5;
+use Test::More skip_all => "ppc workers are too busy";
BEGIN { push @INC, '.' }
use t::Watchdog;
--- dist/Time-HiRes/t/nanosleep.t.orig 2020-12-28 16:57:44.000000000 +0000
+++ dist/Time-HiRes/t/nanosleep.t 2023-07-19 14:00:51.687655436 +0000
@@ -8,7 +8,7 @@ BEGIN {
}
}
-use Test::More tests => 4;
+use Test::More skip_all => "ppc workers are too busy";
BEGIN { push @INC, '.' }
use t::Watchdog;
--- dist/Time-HiRes/t/usleep.t.orig 2023-07-19 13:59:43.995753782 +0000
+++ dist/Time-HiRes/t/usleep.t 2023-07-19 14:00:51.687655436 +0000
@@ -8,7 +8,7 @@ BEGIN {
}
}
-use Test::More tests => 6;
+use Test::More skip_all => "ppc workers are too busy";
BEGIN { push @INC, '.' }
use t::Watchdog;
--- t/op/alarm.t.orig 2022-05-28 15:29:53.000000000 +0000
+++ t/op/alarm.t 2023-07-19 14:00:51.687655436 +0000
@@ -11,6 +11,7 @@ use Config;
if ( !$Config{d_alarm} ) {
skip_all("alarm() not implemented on this platform");
}
+skip_all("ppc workers are too busy");
plan tests => 5;
my $Perl = which_perl();
--- t/op/sigsystem.t.orig 2019-02-18 09:59:23.000000000 +0000
+++ t/op/sigsystem.t 2023-07-19 14:00:51.687655436 +0000
@@ -11,6 +11,7 @@ use strict;
use constant TRUE => ($^X, '-e', 'exit 0');
use Data::Dumper;
+skip_all("ppc workers are too busy");
plan tests => 4;
SKIP: {
--- t/op/sselect.t.orig 2023-05-26 01:05:34.000000000 +0000
+++ t/op/sselect.t 2023-07-19 14:02:28.583514670 +0000
@@ -13,6 +13,8 @@ BEGIN {
skip_all("Win32 miniperl has no socket select")
if $^O eq "MSWin32" && is_miniperl();
+skip_all("ppc workers are too busy");
+
plan (23);
my $blank = "";
--- t/op/stat.t.orig 2022-05-28 15:29:53.000000000 +0000
+++ t/op/stat.t 2023-07-19 14:00:51.687655436 +0000
@@ -9,6 +9,7 @@ BEGIN {
use strict;
use warnings;
use Config;
+skip_all("ppc workers are too busy");
my ($Null, $Curdir);
if(eval {require File::Spec; 1}) {