]> granicus.if.org Git - postgresql/commitdiff
More fixes to allow pg_rewind tests to run on Msys.
authorAndrew Dunstan <andrew@dunslane.net>
Tue, 11 Aug 2015 12:58:58 +0000 (08:58 -0400)
committerAndrew Dunstan <andrew@dunslane.net>
Tue, 11 Aug 2015 12:58:58 +0000 (08:58 -0400)
src/bin/pg_rewind/RewindTest.pm
src/bin/pg_rewind/t/004_pg_xlog_symlink.pl

index fa6d24b0337fce0ad7fa947df10aeae083590f9a..22e5cae45da21daaa4494c47777dce63496a639d 100644 (file)
@@ -40,6 +40,7 @@ use warnings;
 use TestLib;
 use Test::More;
 
+use Config;
 use File::Copy;
 use File::Path qw(rmtree);
 use IPC::Run qw(run start);
@@ -119,6 +120,7 @@ sub check_query
        }
        else
        {
+               $stdout =~ s/\r//g if $Config{osname} eq 'msys';
                is($stdout, $expected_stdout, "$test_name: query result matches");
        }
 }
@@ -138,6 +140,7 @@ sub poll_query_until
                my $result = run $cmd, '>', \$stdout, '2>', \$stderr;
 
                chomp($stdout);
+               $stdout =~ s/\r//g if $Config{osname} eq 'msys';
                if ($stdout eq "t")
                {
                        return 1;
index 0830b5a330a72f835b8fad0c7d06c68d868c9bcc..c5f72e2e3cde4807c5f1e1d6df5974f6419a750b 100644 (file)
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 use File::Copy;
-use File::Path qw(remove_tree);
+use File::Path qw(rmtree);
 use TestLib;
 use Test::More;
 if ($windows_os)
@@ -25,7 +25,7 @@ sub run_test
 
        my $master_xlogdir = "$tmp_check/xlog_master";
 
-       remove_tree($master_xlogdir);
+       rmtree($master_xlogdir);
        RewindTest::setup_cluster();
 
        # turn pg_xlog into a symlink