mirror of
https://github.com/postgres/postgres.git
synced 2025-05-11 05:41:32 +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:
parent
88b0ae15bc
commit
73aa5e0caf
@ -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);
|
||||
|
@ -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;
|
||||
|
@ -185,6 +185,8 @@ note "running tests";
|
||||
# Test connection success or failure, and if success, that query returns true.
|
||||
sub test_access
|
||||
{
|
||||
local $Test::Builder::Level = $Test::Builder::Level + 1;
|
||||
|
||||
my ($node, $role, $query, $expected_res, $gssencmode, $test_name,
|
||||
@expect_log_msgs)
|
||||
= @_;
|
||||
|
@ -166,6 +166,8 @@ note "running tests";
|
||||
|
||||
sub test_access
|
||||
{
|
||||
local $Test::Builder::Level = $Test::Builder::Level + 1;
|
||||
|
||||
my ($node, $role, $expected_res, $test_name, %params) = @_;
|
||||
my $connstr = "user=$role";
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user