diff options
| author | Alvaro Herrera <alvherre@alvh.no-ip.org> | 2016-03-02 17:02:36 -0300 |
|---|---|---|
| committer | Alvaro Herrera <alvherre@alvh.no-ip.org> | 2016-03-02 18:22:45 -0300 |
| commit | cc6077d4d540d821548b704dc6e2f349da736f62 (patch) | |
| tree | ae302fb67528c2d887b17dce582a764beaa9df24 | |
| parent | c8c7c93de8e116d802eddfd8821f8f77588aee00 (diff) | |
| download | postgresql-cc6077d4d540d821548b704dc6e2f349da736f62.tar.gz postgresql-cc6077d4d540d821548b704dc6e2f349da736f62.zip | |
Prefix temp data dirs with the node name
This makes it easier to relate the temporary data dirs to each node in
a test script.
Author: Kyotaro Horiguchi
Reviewed-By: Craig Ringer, Alvaro Herrera
| -rw-r--r-- | src/test/perl/PostgresNode.pm | 2 | ||||
| -rw-r--r-- | src/test/perl/TestLib.pm | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm index a8e6f0c3bbf..4ca7f7780db 100644 --- a/src/test/perl/PostgresNode.pm +++ b/src/test/perl/PostgresNode.pm @@ -115,7 +115,7 @@ sub new my $self = { _port => $pgport, _host => $pghost, - _basedir => TestLib::tempdir, + _basedir => TestLib::tempdir("data_" . $name), _name => $name, _logfile => "$TestLib::log_path/${testname}_${name}.log" }; diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index 564936e5e57..f1b5f8af8a0 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -128,9 +128,11 @@ sub all_tests_passing # sub tempdir { + my ($prefix) = @_; + $prefix = "tmp_test" unless defined $prefix; return File::Temp::tempdir( - 'tmp_testXXXX', - DIR => $tmp_check, + $prefix . '_XXXX', + DIR => $tmp_check, CLEANUP => 1); } |