1
0
mirror of https://github.com/postgres/postgres.git synced 2025-09-02 04:21:28 +03:00

Add missing $Test::Builder::Level settings

One of these was accidentally removed by c50624c.  The others are
added by analogy.

Discussion: https://www.postgresql.org/message-id/ae1143fb-455c-c80f-ed66-78d45bd93303@enterprisedb.com
This commit is contained in:
Peter Eisentraut
2021-09-23 22:49:20 +02:00
parent 88b0ae15bc
commit 73aa5e0caf
4 changed files with 8 additions and 0 deletions

View File

@@ -42,6 +42,8 @@ sub reset_pg_hba
# named parameters are passed to connect_ok/fails as-is.
sub test_role
{
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ($node, $role, $method, $expected_res, %params) = @_;
my $status_string = 'failed';
$status_string = 'success' if ($expected_res eq 0);

View File

@@ -36,6 +36,8 @@ sub reset_pg_hba
# Test access for a single role, useful to wrap all tests into one.
sub test_login
{
local $Test::Builder::Level = $Test::Builder::Level + 1;
my $node = shift;
my $role = shift;
my $password = shift;