Modify tests

Remove cluster-cleanup at start.
Extract PGXC_CTL_HOME from ENV.

diff --git a/contrib/pgxc_ctl/t/005_pgxc_ctl_minimal.pl b/contrib/pgxc_ctl/t/005_pgxc_ctl_minimal.pl
index fc0804c821ec6f3f92a2a57219921f268a6948a0..217a02db5d03a41aa0cd41ae206f1e0ccfd9ef91 100755 (executable)
--- a/contrib/pgxc_ctl/t/005_pgxc_ctl_minimal.pl
+++ b/contrib/pgxc_ctl/t/005_pgxc_ctl_minimal.pl
@@ -5,17 +5,15 @@ use Config;
 use TestLib;
 use Test::More tests => 6;
 
-program_help_ok('pgxc_ctl');
-program_version_ok('pgxc_ctl');
-
 my $dataDirRoot="~/DATA/pgxl/nodes/";
-my $pgxcCtlRoot="~/pgxc_ctl/";
-
+my $PGXC_CTL_HOME=$ENV{'PGXC_CTL_HOME'};
 
-system_or_bail 'pgxc_ctl', 'clean', 'all' ;
 #delete related dirs for cleanup
-my $result = system("rm -rf $dataDirRoot");
-my $result = system("rm -rf $pgxcCtlRoot");
+system("rm -rf $dataDirRoot");
+system("rm -rf $PGXC_CTL_HOME");
+
+program_help_ok('pgxc_ctl');
+program_version_ok('pgxc_ctl');
 
 system_or_bail 'pgxc_ctl', 'prepare', 'minimal' ;
 
@@ -27,5 +25,5 @@ system_or_bail 'pgxc_ctl', 'monitor', 'all' ;
 system_or_bail 'pgxc_ctl', 'clean', 'all' ;
 
 #delete related dirs for cleanup
-my $result = system("rm -rf $dataDirRoot");
-my $result = system("rm -rf $pgxcCtlRoot");
+system("rm -rf $dataDirRoot");
+system("rm -rf $PGXC_CTL_HOME");

diff --git a/contrib/pgxc_ctl/t/010_pgxc_ctl.pl b/contrib/pgxc_ctl/t/010_pgxc_ctl.pl
index ebdaa2af2bb3dbd5e669c9ff269fcd99d7785431..ae853dd2acdf0bd7f8044d11f5a3195e207e2ad7 100755 (executable)
--- a/contrib/pgxc_ctl/t/010_pgxc_ctl.pl
+++ b/contrib/pgxc_ctl/t/010_pgxc_ctl.pl
@@ -3,7 +3,14 @@ use warnings;
 use Cwd;
 use Config;
 use TestLib;
-use Test::More tests => 13;
+use Test::More tests => 6;
+
+my $dataDirRoot="~/DATA/pgxl/nodes/";
+my $PGXC_CTL_HOME=$ENV{'PGXC_CTL_HOME'};
+
+#delete related dirs for cleanup
+system("rm -rf $dataDirRoot");
+system("rm -rf $PGXC_CTL_HOME");
 
 program_help_ok('pgxc_ctl');
 program_version_ok('pgxc_ctl');
@@ -15,13 +22,6 @@ my $COORD3_HOST = "localhost";
 my $DN1_HOST = "localhost";
 my $DN2_HOST = "localhost";
 my $DN3_HOST = "localhost";
-my $dataDirRoot="~/DATA/pgxl/nodes";
-my $pgxcCtlRoot="~/pgxc_ctl/";
-
-system_or_bail 'pgxc_ctl', 'clean', 'all' ;
-#delete related dirs for cleanup
-my $result = system("rm -rf $dataDirRoot");
-my $result = system("rm -rf $pgxcCtlRoot");
 
 system_or_bail 'pgxc_ctl', 'prepare', 'config', 'empty' ;
 
@@ -65,5 +65,5 @@ system_or_bail 'pgxc_ctl', 'clean', 'all' ;
 
 
 #delete related dirs for cleanup
-my $result = system("rm -rf $dataDirRoot");
-my $result = system("rm -rf $pgxcCtlRoot");
+system("rm -rf $dataDirRoot");
+system("rm -rf $PGXC_CTL_HOME");