postgres.git / summary / log / commit / refs

commit    782480fe757f9bbce8d6224585a02172c2c408bb
Author:   Michael Paquier <michael@paquier.xyz>
Date:     Tue Sep 21 23:43:45 2021 +0000

    Fix places in TestLib.pm in need of adaptation to the output of Msys perl
    
    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 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm
index 727469bc686..71a500564a4 100644
--- a/src/test/perl/TestLib.pm
+++ b/src/test/perl/TestLib.pm
@@ -381,6 +381,7 @@ sub command_like
 	my $result = IPC::Run::run $cmd, '>', \$stdout, '2>', \$stderr;
 	ok($result, "$test_name: exit code 0");
 	is($stderr, '', "$test_name: no stderr");
+	$stdout =~ s/\r\n/\n/g if $Config{osname} eq 'msys';
 	like($stdout, $expected_stdout, "$test_name: matches");
 }
 
@@ -410,6 +411,7 @@ sub command_fails_like
 	print("# Running: " . join(" ", @{$cmd}) . "\n");
 	my $result = IPC::Run::run $cmd, '>', \$stdout, '2>', \$stderr;
 	ok(!$result, "$test_name: exit code not 0");
+	$stderr =~ s/\r\n/\n/g if $Config{osname} eq 'msys';
 	like($stderr, $expected_stderr, "$test_name: matches");
 }
 


[parent: 923b7efc2598]