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

diff --git a/src/test/authentication/t/001_password.pl b/src/test/authentication/t/001_password.pl
index 9498c18d7d16dc45af2e8584be84ddc8990be93c..16570a4e2cb4b4c109c8e0ab0446f212cb9772e9 100644 (file)
--- a/src/test/authentication/t/001_password.pl
+++ b/src/test/authentication/t/001_password.pl
@@ -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);

diff --git a/src/test/authentication/t/002_saslprep.pl b/src/test/authentication/t/002_saslprep.pl
index 4799e927dbb9f6de74c064283f18b6617f8655d0..acd379df31666624a3fd1333bedcdc4a2a4b3c04 100644 (file)
--- a/src/test/authentication/t/002_saslprep.pl
+++ b/src/test/authentication/t/002_saslprep.pl
@@ -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;

diff --git a/src/test/kerberos/t/001_auth.pl b/src/test/kerberos/t/001_auth.pl
index 2c81a26ac73da666ccdb2c318bfd7c76eb070d00..c484237d07848ff5e32bdbde93b57686738e2caf 100644 (file)
--- a/src/test/kerberos/t/001_auth.pl
+++ b/src/test/kerberos/t/001_auth.pl
@@ -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)
          = @_;

diff --git a/src/test/ldap/t/001_auth.pl b/src/test/ldap/t/001_auth.pl
index 1d1282f8dca9a16cb5a8cd108002b69d393bcf31..f670bc5e0d52f5d48a1b87fa1fd4d837b4600f5b 100644 (file)
--- a/src/test/ldap/t/001_auth.pl
+++ b/src/test/ldap/t/001_auth.pl
@@ -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";