Skip to content
Snippets Groups Projects
Commit ff85fc8d authored by Andrew Dunstan's avatar Andrew Dunstan
Browse files

Remove carriage returns from certain tap test output under Msys

These were causing spurious test failures.
parent 2834855c
No related branches found
No related tags found
No related merge requests found
...@@ -226,6 +226,7 @@ sub psql ...@@ -226,6 +226,7 @@ sub psql
print("# Running SQL command: $sql\n"); print("# Running SQL command: $sql\n");
run [ 'psql', '-X', '-A', '-t', '-q', '-d', $dbname, '-f', '-' ], '<', \$sql, '>', \$stdout, '2>', \$stderr or die; run [ 'psql', '-X', '-A', '-t', '-q', '-d', $dbname, '-f', '-' ], '<', \$sql, '>', \$stdout, '2>', \$stderr or die;
chomp $stdout; chomp $stdout;
$stdout =~ s/\r//g if $Config{osname} eq 'msys';
return $stdout; return $stdout;
} }
...@@ -242,7 +243,9 @@ sub slurp_file ...@@ -242,7 +243,9 @@ sub slurp_file
{ {
local $/; local $/;
local @ARGV = @_; local @ARGV = @_;
<> my $contents = <>;
$contents =~ s/\r//g if $Config{osname} eq 'msys';
return $contents;
} }
sub system_or_bail sub system_or_bail
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment