]> git.ipfire.org Git - thirdparty/postgresql.git/commitdiff
Fix places in TestLib.pm in need of adaptation to the output of Msys perl
authorMichael Paquier <michael@paquier.xyz>
Tue, 21 Sep 2021 23:43:57 +0000 (08:43 +0900)
committerMichael Paquier <michael@paquier.xyz>
Tue, 21 Sep 2021 23:43:57 +0000 (08:43 +0900)
Contrary to the output of native perl, Msys perl generates outputs with
CRLFs characters.  There are already places in the TAP code where CRLFs
(\r\n) are automatically converted to LF (\n) on Msys, but we missed a
couple of places when running commands and using their output for
comparison, that would lead to failures.

This problem has been found thanks to the test added in 5adb067 using
TestLib::command_checks_all(), but after a closer look more code paths
were missing a filter.

This is backpatched all the way down to prevent any surprises if a new
test is introduced in stable branches.

Reviewed-by: Andrew Dunstan, Álvaro Herrera
Discussion: https://postgr.es/m/1252480.1631829409@sss.pgh.pa.us
Backpatch-through: 9.6

src/test/perl/TestLib.pm

index 35c4732b9e45f3eea04f0194179dfb674923816e..151c7a4cce506198159247a9caaadcd4cafcd24a 100644 (file)
@@ -356,6 +356,7 @@ sub command_like
        my $result = IPC::Run::run $cmd, '>', \$stdout, '2>', \$stderr;
        ok($result, "@$cmd exit code 0");
        is($stderr, '', "@$cmd no stderr");
+       $stdout =~ s/\r\n/\n/g if $Config{osname} eq 'msys';
        like($stdout, $expected_stdout, "$test_name: matches");
 }