upstream/postgresql
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2026-03-12 05:32:27 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix 003_extrafiles.pl test for the Windows

Browse source 
File::Find converts backslashes to slashes in the newer Perl versions.
See: 414f14df98

So, do the same conversion for Windows before comparing paths. To
support all Perl versions, always convert them on Windows regardless of
the Perl's version.

Author: Nazir Bilal Yavuz <byavuz81@gmail.com>

Backpatch to all live branches
This commit is contained in:
Andrew Dunstan 2024-01-30 17:09:44 -05:00
parent c29022164f
commit e894d1d829
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/bin/pg_rewind/t/003_extrafiles.pl
View file

@ -67,6 +67,19 @@ sub run_test
},
$test_master_datadir);
@paths = sort @paths;
# File::Find converts backslashes to slashes in the newer Perl
# versions. To support all Perl versions, do the same conversion
# for Windows before comparing the paths.
if ($PostgreSQL::Test::Utils::windows_os)
{
for my $filename (@paths)
{
$filename =~ s{\\}{/}g;
}
$test_primary_datadir =~ s{\\}{/}g;
}
is_deeply(
\@paths,
[