[libsoup/nacho/server-tls-cert: 4/5] ssl-test: test the peer certificate exists

[Ignacio Casal Quinteiro <icq src gnome org>]

commit 14fdb22933de872d5d8c4c9954823ac40e15b53d
Author: Ignacio Casal Quinteiro <qignacio amazon com>
Date:   Tue Nov 23 16:06:08 2021 +0100

    ssl-test: test the peer certificate exists

 tests/ssl-test.c | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)
---
diff --git a/tests/ssl-test.c b/tests/ssl-test.c
index ecd0e63e..5af9d032 100644
--- a/tests/ssl-test.c
+++ b/tests/ssl-test.c
@@ -162,10 +162,12 @@ do_tls_interaction_test (gconstpointer data)
        GTlsDatabase *tls_db;
        GTlsCertificate *certificate;
        GTlsInteraction *interaction;
+       GUri *peer_uri;
        GError *error = NULL;
 
        SOUP_TEST_SKIP_IF_NO_TLS;
 
+        peer_uri = g_uri_parse_relative (uri, "/check-peer", SOUP_HTTP_URI_FLAGS, NULL);
        session = soup_test_session_new (NULL);
        tls_db = soup_session_get_tls_database (session);
         g_object_set (server, "tls-database", tls_db, "tls-auth-mode", G_TLS_AUTHENTICATION_REQUIRED, NULL);
@@ -197,7 +199,7 @@ do_tls_interaction_test (gconstpointer data)
        g_object_unref (interaction);
 
        /* With a GTlsInteraction */
-       msg = soup_message_new_from_uri ("GET", uri);
+       msg = soup_message_new_from_uri ("GET", peer_uri);
        body = soup_test_session_async_send (session, msg, NULL, &error);
        g_assert_no_error (error);
        soup_test_assert_message_status (msg, SOUP_STATUS_OK);
@@ -210,6 +212,7 @@ do_tls_interaction_test (gconstpointer data)
 
        soup_test_session_abort_unref (session);
        g_object_unref (certificate);
+       g_uri_unref (peer_uri);
 }
 
 static gboolean
@@ -697,6 +700,26 @@ server_handler (SoupServer        *server,
        soup_server_message_set_response (msg, "text/plain",
                                          SOUP_MEMORY_STATIC,
                                          "ok\r\n", 4);
+
+        if (!strcmp (path, "/check-peer")) {
+                GTlsCertificate *certificate;
+                GTlsCertificateFlags flags;
+
+                certificate = soup_server_message_get_tls_peer_certificate (msg);
+                g_assert_nonnull (certificate);
+
+                flags = soup_server_message_get_tls_peer_certificate_errors (msg);
+                g_assert_cmpuint (flags, ==, 0);
+
+                /* Check also the properties are properly working */
+                g_object_get (G_OBJECT (msg),
+                              "tls-peer-certificate", &certificate,
+                              "tls-peer-certificate-errors", &flags,
+                              NULL);
+                g_assert_nonnull (certificate);
+                g_assert_cmpuint (flags, ==, 0);
+                g_object_unref (certificate);
+        }
 }
 
 int