Skip to content
Snippets Groups Projects
Commit 2bc04747 authored by Noah Misch's avatar Noah Misch
Browse files

MSYS: Skip src/test/recovery/t/017_shm.pl.

Commit 947a3501 relied on a feature
available in v11 and later, so back-patching it to v10 and v9.6 was
invalid.  In those branches, revert it and skip the test on msys.

Discussion: https://postgr.es/m/GrdLgAdUK9FdyZg8VIcTDKVOkys122ZINEb3CjjoySfGj2KyPiMKTh1zqtRp0TAD7FJ27G-OBB3eplxIB5GhcQH5o8zzGZfp0MuJaXJxVxk=@yesql.se
parent 61c0962d
No related branches found
No related tags found
No related merge requests found
...@@ -734,9 +734,7 @@ sub kill9 ...@@ -734,9 +734,7 @@ sub kill9
my $name = $self->name; my $name = $self->name;
return unless defined $self->{_pid}; return unless defined $self->{_pid};
print "### Killing node \"$name\" using signal 9\n"; print "### Killing node \"$name\" using signal 9\n";
# kill(9, ...) fails under msys Perl 5.8.8, so fall back on pg_ctl. kill(9, $self->{_pid}) or BAIL_OUT("kill(9, $self->{_pid}) failed");
kill(9, $self->{_pid})
or TestLib::system_or_bail('pg_ctl', 'kill', 'KILL', $self->{_pid});
$self->{_pid} = undef; $self->{_pid} = undef;
return; return;
} }
......
...@@ -9,7 +9,14 @@ use Test::More; ...@@ -9,7 +9,14 @@ use Test::More;
use TestLib; use TestLib;
use Time::HiRes qw(usleep); use Time::HiRes qw(usleep);
if ($^O eq 'msys')
{
plan skip_all => 'missing SIGKILL implementation';
}
else
{
plan tests => 5; plan tests => 5;
}
my $tempdir = TestLib::tempdir; my $tempdir = TestLib::tempdir;
my $port; my $port;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment