Added gnutls_x509_crt_get_authority_info_access.

2 files changed, 238 insertions, 1 deletions

diff --git a/tests/Makefile.am b/tests/Makefile.am
index 40ab5b5603..63ae6653c9 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -64,7 +64,7 @@ ctests = simple gc set_pkcs12_cred certder certuniqueid mpi		\
 	init_roundtrip pkcs12_s2k_pem dn2 mini-eagain			\
 	nul-in-x509-names x509_altname pkcs12_encode mini-x509		\
 	mini-x509-rehandshake rng-fork mini-eagain-dtls cipher-test	\
-	x509cert x509cert-tl #gendh
+	x509cert x509cert-tl infoaccess #gendh
 
 if ENABLE_OPENSSL
 ctests +=  openssl
diff --git a/tests/infoaccess.c b/tests/infoaccess.c
new file mode 100644
index 0000000000..242b33411c
--- /dev/null
+++ b/tests/infoaccess.c
@@ -0,0 +1,237 @@
+/*
+ * Copyright (C) 2011 Free Software Foundation, Inc.
+ *
+ * Author: Simon Josefsson
+ *
+ * This file is part of GnuTLS.
+ *
+ * GnuTLS is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * GnuTLS is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GnuTLS; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <gnutls/gnutls.h>
+#include <gnutls/x509.h>
+
+#include "utils.h"
+
+static char cert_with_aia_data[] =
+  "-----BEGIN CERTIFICATE-----\n"
+  "MIIF0DCCBLigAwIBAgIEOrZQizANBgkqhkiG9w0BAQUFADB/MQswCQYDVQQGEwJC\n"
+  "TTEZMBcGA1UEChMQUXVvVmFkaXMgTGltaXRlZDElMCMGA1UECxMcUm9vdCBDZXJ0\n"
+  "aWZpY2F0aW9uIEF1dGhvcml0eTEuMCwGA1UEAxMlUXVvVmFkaXMgUm9vdCBDZXJ0\n"
+  "aWZpY2F0aW9uIEF1dGhvcml0eTAeFw0wMTAzMTkxODMzMzNaFw0yMTAzMTcxODMz\n"
+  "MzNaMH8xCzAJBgNVBAYTAkJNMRkwFwYDVQQKExBRdW9WYWRpcyBMaW1pdGVkMSUw\n"
+  "IwYDVQQLExxSb290IENlcnRpZmljYXRpb24gQXV0aG9yaXR5MS4wLAYDVQQDEyVR\n"
+  "dW9WYWRpcyBSb290IENlcnRpZmljYXRpb24gQXV0aG9yaXR5MIIBIjANBgkqhkiG\n"
+  "9w0BAQEFAAOCAQ8AMIIBCgKCAQEAv2G1lVO6V/z68mcLOhrfEYBklbTRvM16z/Yp\n"
+  "li4kVEAkOPcahdxYTMukJ0KX0J+DisPkBgNbAKVRHnAEdOLB1Dqr1607BxgFjv2D\n"
+  "rOpm2RgbaIr1VxqYuvXtdj182d6UajtLF8HVj71lODqV0D1VNk7feVcxKh7YWWVJ\n"
+  "WCCYfqtffp/p1k3sg3Spx2zY7ilKhSoGFPlU5tPaZQeLYzcS19Dsw3sgQUSj7cug\n"
+  "F+FxZc4dZjH3dgEZyH0DWLaVSR2mEiboxgx24ONmy+pdpibu5cxfvWenAScOospU\n"
+  "xbF6lR1xHkopigPcakXBpBlebzbNw6Kwt/5cOOJSvPhEQ+aQuwIDAQABo4ICUjCC\n"
+  "Ak4wPQYIKwYBBQUHAQEEMTAvMC0GCCsGAQUFBzABhiFodHRwczovL29jc3AucXVv\n"
+  "dmFkaXNvZmZzaG9yZS5jb20wDwYDVR0TAQH/BAUwAwEB/zCCARoGA1UdIASCAREw\n"
+  "ggENMIIBCQYJKwYBBAG+WAABMIH7MIHUBggrBgEFBQcCAjCBxxqBxFJlbGlhbmNl\n"
+  "IG9uIHRoZSBRdW9WYWRpcyBSb290IENlcnRpZmljYXRlIGJ5IGFueSBwYXJ0eSBh\n"
+  "c3N1bWVzIGFjY2VwdGFuY2Ugb2YgdGhlIHRoZW4gYXBwbGljYWJsZSBzdGFuZGFy\n"
+  "ZCB0ZXJtcyBhbmQgY29uZGl0aW9ucyBvZiB1c2UsIGNlcnRpZmljYXRpb24gcHJh\n"
+  "Y3RpY2VzLCBhbmQgdGhlIFF1b1ZhZGlzIENlcnRpZmljYXRlIFBvbGljeS4wIgYI\n"
+  "KwYBBQUHAgEWFmh0dHA6Ly93d3cucXVvdmFkaXMuYm0wHQYDVR0OBBYEFItLbe3T\n"
+  "KbkGGew5Oanwl4Rqy+/fMIGuBgNVHSMEgaYwgaOAFItLbe3TKbkGGew5Oanwl4Rq\n"
+  "y+/foYGEpIGBMH8xCzAJBgNVBAYTAkJNMRkwFwYDVQQKExBRdW9WYWRpcyBMaW1p\n"
+  "dGVkMSUwIwYDVQQLExxSb290IENlcnRpZmljYXRpb24gQXV0aG9yaXR5MS4wLAYD\n"
+  "VQQDEyVRdW9WYWRpcyBSb290IENlcnRpZmljYXRpb24gQXV0aG9yaXR5ggQ6tlCL\n"
+  "MA4GA1UdDwEB/wQEAwIBBjANBgkqhkiG9w0BAQUFAAOCAQEAitQUtf70mpKnGdSk\n"
+  "fnIYj9lofFIk3WdvOXrEql494liwTXCYhGHoG+NpGA7O+0dQoE7/8CQfvbLO9Sf8\n"
+  "7C9TqnN7Az10buYWnuulLsS/VidQK2K6vkscPFVcQR0kvoIgR13VRH56FmjffU1R\n"
+  "cHhXHTMe/QKZnAzNCgVPx7uOpHX6Sm2xgI4JVrmcGmD+XcHXetwReNDWXcG31a0y\n"
+  "mQM6isxUJTkxgXsTIlG6Rmyhu576BGxJJnSP0nPrzDCi5upZIof4l/UO/erMkqQW\n"
+  "xFIY6iHOsfHmhIHluqmGKPJDWl0Snawe2ajlCmqnf6CHKc/yiU3U7MXi5nrQNiOK\n"
+  "SnQ2+Q==\n"
+  "-----END CERTIFICATE-----\n";
+
+const gnutls_datum_t cert_with_aia = {
+  cert_with_aia_data, sizeof (cert_with_aia_data)
+};
+
+void
+doit (void)
+{
+  gnutls_x509_crt_t crt;
+  int ret;
+  gnutls_datum_t data;
+  int critical;
+
+  ret = gnutls_global_init ();
+  if (ret < 0)
+    {
+      fail ("gnutls_global_init\n");
+      exit (1);
+    }
+
+  ret = gnutls_x509_crt_init (&crt);
+  if (ret != 0)
+    {
+      fail ("gnutls_x509_crt_init\n");
+      exit (1);
+    }
+
+  ret = gnutls_x509_crt_import (crt, &cert_with_aia, GNUTLS_X509_FMT_PEM);
+  if (ret < 0)
+    {
+      fail ("gnutls_x509_crt_import\n");
+      exit (1);
+    }
+
+  /* test null input */
+  ret = gnutls_x509_crt_get_authority_info_access (NULL, 0, 0, NULL, NULL);
+  if (ret != GNUTLS_E_INVALID_REQUEST)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access null input\n");
+      exit (1);
+    }
+
+  /* test unused enum */
+  ret = gnutls_x509_crt_get_authority_info_access (crt, 0, 44, NULL, NULL);
+  if (ret != GNUTLS_E_INVALID_REQUEST)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access insane input\n");
+      exit (1);
+    }
+
+  /* test basic query with null output */
+  ret = gnutls_x509_crt_get_authority_info_access
+    (crt, 0, GNUTLS_IA_ACCESSMETHOD_OID, NULL, NULL);
+  if (ret < 0)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access "
+	    "GNUTLS_IA_ACCESSMETHOD_OID null output critical\n");
+      exit (1);
+    }
+
+  /* test same as previous but also check that critical flag is
+     correct */
+  ret = gnutls_x509_crt_get_authority_info_access
+    (crt, 0, GNUTLS_IA_ACCESSMETHOD_OID, NULL, &critical);
+  if (ret < 0)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access "
+	    "GNUTLS_IA_ACCESSMETHOD_OID null output\n");
+      exit (1);
+    }
+
+  if (critical != 0)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access "
+	    "critical failed: %d\n", critical);
+      exit (1);
+    }
+
+  /* basic query of another type */
+  ret = gnutls_x509_crt_get_authority_info_access
+    (crt, 0, GNUTLS_IA_ACCESSLOCATION_GENERALNAME_TYPE, NULL, NULL);
+  if (ret < 0)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access "
+	    "GNUTLS_IA_ACCESSLOCATION_GENERALNAME_TYPE null output\n");
+      exit (1);
+    }
+
+  /* basic query of another type, with out-of-bound sequence */
+  ret = gnutls_x509_crt_get_authority_info_access
+    (crt, 1, GNUTLS_IA_ACCESSLOCATION_GENERALNAME_TYPE, NULL, NULL);
+  if (ret != GNUTLS_E_REQUESTED_DATA_NOT_AVAILABLE)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access "
+	    "GNUTLS_IA_ACCESSLOCATION_GENERALNAME_TYPE out-of-bounds\n");
+      exit (1);
+    }
+
+  /* basic query and check output value */
+  ret = gnutls_x509_crt_get_authority_info_access
+    (crt, 0, GNUTLS_IA_ACCESSMETHOD_OID, &data, NULL);
+  if (ret < 0)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access "
+	    "GNUTLS_IA_ACCESSMETHOD_OID\n");
+      exit (1);
+    }
+
+  if (memcmp ("1.3.6.1.5.5.7.48.1", data.data, data.size) != 0)
+    {
+      fail ("memcmp OCSP OID failed\n");
+      exit (1);
+    }
+  gnutls_free (data.data);
+
+  /* basic query of another type and check output value */
+  ret = gnutls_x509_crt_get_authority_info_access
+    (crt, 0, GNUTLS_IA_ACCESSLOCATION_GENERALNAME_TYPE, &data, NULL);
+  if (ret < 0)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access "
+	    "GNUTLS_IA_ACCESSLOCATION_GENERALNAME_TYPE\n");
+      exit (1);
+    }
+
+  if (memcmp ("uniformResourceIdentifier", data.data, data.size) != 0)
+    {
+      fail ("memcmp URI failed\n");
+      exit (1);
+    }
+  gnutls_free (data.data);
+
+  /* specific query */
+  ret = gnutls_x509_crt_get_authority_info_access
+    (crt, 0, GNUTLS_IA_URI, &data, NULL);
+  if (ret < 0)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access GNUTLS_IA_URI\n");
+      exit (1);
+    }
+
+  if (memcmp ("https://ocsp.quovadisoffshore.com", data.data, data.size) != 0)
+    {
+      fail ("memcmp URI value failed\n");
+      exit (1);
+    }
+  gnutls_free (data.data);
+
+  /* even more specific query */
+  ret = gnutls_x509_crt_get_authority_info_access
+    (crt, 0, GNUTLS_IA_OCSP_URI, &data, NULL);
+  printf ("ret %d\n", ret);
+  if (ret < 0)
+    {
+      fail ("gnutls_x509_crt_get_authority_info_access GNUTLS_IA_OCSP_URI\n");
+      exit (1);
+    }
+
+  if (memcmp ("https://ocsp.quovadisoffshore.com", data.data, data.size) != 0)
+    {
+      fail ("memcmp URI value failed\n");
+      exit (1);
+    }
+  gnutls_free (data.data);
+
+  gnutls_global_deinit ();
+
+}