database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-07 00:36:50 +03:00
Code Activity

Add PostgreSQL::Test::Cluster::config_data()

Browse Source 
This is useful to grab some configuration information from a node
already set up, and I personally found two cases for it: pg_upgrade and
a test to emulate check_guc.

Author: Michael Paquier
Discussion: https://postgr.es/m/20211129030833.GJ17618@telsasoft.com
Discussion: https://postgr.es/m/YJ8xTmLQkotVLpN5@paquier.xyz
This commit is contained in:
Michael Paquier
2022-02-08 10:35:27 +09:00
parent f1ea98a797
commit ba15f16107
1 changed files with 25 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/test/perl/PostgreSQL/Test/Cluster.pm
View File

@ -327,6 +327,31 @@ sub install_path
=pod =pod
=item $node->config_data($option)
Return a string holding configuration data from pg_config, with $option
being the option switch used with the pg_config command.
=cut
sub config_data
{
my ($self, $option) = @_;
local %ENV = $self->_get_env();
my ($stdout, $stderr);
my $result =
IPC::Run::run [ $self->installed_command('pg_config'), $option ],
'>', \$stdout, '2>', \$stderr
or die "could not execute pg_config";
chomp($stdout);
$stdout =~ s/\r$//;
return $stdout;
}
=pod
=item $node->info() =item $node->info()
Return a string containing human-readable diagnostic information (paths, etc) Return a string containing human-readable diagnostic information (paths, etc)