Commit e536a268 authored by Peter Eisentraut's avatar Peter Eisentraut

Add missing $Test::Builder::Level settings

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

Discussion: https://www.postgresql.org/message-id/ae1143fb-455c-c80f-ed66-78d45bd93303@enterprisedb.com
parent 7186f071
...@@ -42,6 +42,8 @@ sub reset_pg_hba ...@@ -42,6 +42,8 @@ sub reset_pg_hba
# named parameters are passed to connect_ok/fails as-is. # named parameters are passed to connect_ok/fails as-is.
sub test_role sub test_role
{ {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ($node, $role, $method, $expected_res, %params) = @_; my ($node, $role, $method, $expected_res, %params) = @_;
my $status_string = 'failed'; my $status_string = 'failed';
$status_string = 'success' if ($expected_res eq 0); $status_string = 'success' if ($expected_res eq 0);
......
...@@ -36,6 +36,8 @@ sub reset_pg_hba ...@@ -36,6 +36,8 @@ sub reset_pg_hba
# Test access for a single role, useful to wrap all tests into one. # Test access for a single role, useful to wrap all tests into one.
sub test_login sub test_login
{ {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my $node = shift; my $node = shift;
my $role = shift; my $role = shift;
my $password = shift; my $password = shift;
......
...@@ -185,6 +185,8 @@ note "running tests"; ...@@ -185,6 +185,8 @@ note "running tests";
# Test connection success or failure, and if success, that query returns true. # Test connection success or failure, and if success, that query returns true.
sub test_access sub test_access
{ {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ($node, $role, $query, $expected_res, $gssencmode, $test_name, my ($node, $role, $query, $expected_res, $gssencmode, $test_name,
@expect_log_msgs) @expect_log_msgs)
= @_; = @_;
......
...@@ -166,6 +166,8 @@ note "running tests"; ...@@ -166,6 +166,8 @@ note "running tests";
sub test_access sub test_access
{ {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ($node, $role, $expected_res, $test_name, %params) = @_; my ($node, $role, $expected_res, $test_name, %params) = @_;
my $connstr = "user=$role"; my $connstr = "user=$role";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment