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