From 5a71964a832febfee23cedc3bb354049d6ca78a7 Mon Sep 17 00:00:00 2001 From: Michael Paquier Date: Tue, 6 Apr 2021 13:23:57 +0900 Subject: [PATCH] Fix some issues with SSL and Kerberos tests The recent refactoring done in c50624c accidentally broke a portion of the kerberos tests checking after a query, so add its functionality back. Some inactive SSL tests had their arguments in an incorrect order, which would cause them to fail if they were to run. Author: Jacob Champion Discussion: https://postgr.es/m/4f5b0b3dc0b6fe9ae6a34886b4d4000f61eb567e.camel@vmware.com --- src/test/kerberos/t/001_auth.pl | 11 ++++++----- src/test/ssl/t/001_ssltests.pl | 8 ++++---- 2 files changed, 10 insertions(+), 9 deletions(-) diff --git a/src/test/kerberos/t/001_auth.pl b/src/test/kerberos/t/001_auth.pl index de52a66785..8db1829460 100644 --- a/src/test/kerberos/t/001_auth.pl +++ b/src/test/kerberos/t/001_auth.pl @@ -20,7 +20,7 @@ use Time::HiRes qw(usleep); if ($ENV{with_gssapi} eq 'yes') { - plan tests => 30; + plan tests => 32; } else { @@ -196,7 +196,7 @@ sub test_access $node->connect_ok( $connstr, $test_name, sql => $query, - expected_stdout => qr/t/); + expected_stdout => qr/^t$/); } else { @@ -227,9 +227,10 @@ sub test_query my $connstr = $node->connstr('postgres') . " user=$role host=$host hostaddr=$hostaddr $gssencmode"; - my ($stdoutres, $stderrres); - - $node->connect_ok($connstr, $test_name, $query, $expected); + $node->connect_ok( + $connstr, $test_name, + sql => $query, + expected_stdout => $expected); return; } diff --git a/src/test/ssl/t/001_ssltests.pl b/src/test/ssl/t/001_ssltests.pl index 21865ac30f..0decbe7177 100644 --- a/src/test/ssl/t/001_ssltests.pl +++ b/src/test/ssl/t/001_ssltests.pl @@ -459,17 +459,17 @@ TODO: # correct client cert in encrypted PEM with empty password $node->connect_fails( "$common_connstr user=ssltestuser sslcert=ssl/client.crt sslkey=ssl/client-encrypted-pem_tmp.key sslpassword=''", + "certificate authorization fails with correct client cert and empty password in encrypted PEM format", expected_stderr => - qr!\Qprivate key file "ssl/client-encrypted-pem_tmp.key": processing error\E!, - "certificate authorization fails with correct client cert and empty password in encrypted PEM format" + qr!\Qprivate key file "ssl/client-encrypted-pem_tmp.key": processing error\E! ); # correct client cert in encrypted PEM with no password $node->connect_fails( "$common_connstr user=ssltestuser sslcert=ssl/client.crt sslkey=ssl/client-encrypted-pem_tmp.key", + "certificate authorization fails with correct client cert and no password in encrypted PEM format", expected_stderr => - qr!\Qprivate key file "ssl/client-encrypted-pem_tmp.key": processing error\E!, - "certificate authorization fails with correct client cert and no password in encrypted PEM format" + qr!\Qprivate key file "ssl/client-encrypted-pem_tmp.key": processing error\E! ); }