/*
 * Copyright (C) 2011-2012 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 = {
  (void*)cert_with_aia_data, sizeof (cert_with_aia_data)
};

void
doit (void)
{
  gnutls_x509_crt_t crt;
  int ret;
  gnutls_datum_t data;
  unsigned 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);
  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_x509_crt_deinit (crt);

  gnutls_global_deinit ();

}