diff options
| author | Peter Eisentraut <peter@eisentraut.org> | 2021-09-23 22:49:20 +0200 |
|---|---|---|
| committer | Peter Eisentraut <peter@eisentraut.org> | 2021-09-23 23:06:55 +0200 |
| commit | e536a2683439c3dd4ea6d339a878fa4430e3174d (patch) | |
| tree | 42229115d8f149efe2a05767b0be25d5ef330632 /src | |
| parent | 7186f07189baf069c54718315b81e65d87f4c0c1 (diff) | |
| download | postgresql-e536a2683439c3dd4ea6d339a878fa4430e3174d.tar.gz postgresql-e536a2683439c3dd4ea6d339a878fa4430e3174d.zip | |
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
Diffstat (limited to 'src')
| -rw-r--r-- | src/test/authentication/t/001_password.pl | 2 | ||||
| -rw-r--r-- | src/test/authentication/t/002_saslprep.pl | 2 | ||||
| -rw-r--r-- | src/test/kerberos/t/001_auth.pl | 2 | ||||
| -rw-r--r-- | src/test/ldap/t/001_auth.pl | 2 |
4 files changed, 8 insertions, 0 deletions
diff --git a/src/test/authentication/t/001_password.pl b/src/test/authentication/t/001_password.pl index 427a3601987..1296c5307a4 100644 --- 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 f080a0ccbae..5b8b4b28e7f 100644 --- 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 b5594924cae..27c93abe78f 100644 --- 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 0ae14e4c85f..0dfc1f9ee19 100644 --- 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"; |