Imported Upstream version 3.0.21
[platform/upstream/gnutls.git] / tests / certificate_set_x509_crl.c
1 /*
2  * Copyright (C) 2006-2012 Free Software Foundation, Inc.
3  *
4  * Author: Simon Josefsson
5  *
6  * This file is part of GnuTLS.
7  *
8  * GnuTLS is free software; you can redistribute it and/or modify it
9  * under the terms of the GNU General Public License as published by
10  * the Free Software Foundation; either version 3 of the License, or
11  * (at your option) any later version.
12  *
13  * GnuTLS is distributed in the hope that it will be useful, but
14  * WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * General Public License for more details.
17  *
18  * You should have received a copy of the GNU General Public License
19  * along with GnuTLS; if not, write to the Free Software Foundation,
20  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
21  */
22
23 #ifdef HAVE_CONFIG_H
24 #include <config.h>
25 #endif
26
27 #include <stdio.h>
28 #include <stdlib.h>
29 #include <stdint.h>
30 #include <string.h>
31 #include <gnutls/gnutls.h>
32 #include <gnutls/x509.h>
33
34 static char crl[] =
35   "-----BEGIN X509 CRL-----\n"
36   "MIIB9DCCAV8CAQEwCwYJKoZIhvcNAQEFMIIBCDEXMBUGA1UEChMOVmVyaVNpZ24s\n"
37   "IEluYy4xHzAdBgNVBAsTFlZlcmlTaWduIFRydXN0IE5ldHdvcmsxRjBEBgNVBAsT\n"
38   "PXd3dy52ZXJpc2lnbi5jb20vcmVwb3NpdG9yeS9SUEEgSW5jb3JwLiBieSBSZWYu\n"
39   "LExJQUIuTFREKGMpOTgxHjAcBgNVBAsTFVBlcnNvbmEgTm90IFZhbGlkYXRlZDEm\n"
40   "MCQGA1UECxMdRGlnaXRhbCBJRCBDbGFzcyAxIC0gTmV0c2NhcGUxGDAWBgNVBAMU\n"
41   "D1NpbW9uIEpvc2Vmc3NvbjEiMCAGCSqGSIb3DQEJARYTc2ltb25Aam9zZWZzc29u\n"
42   "Lm9yZxcNMDYxMjI3MDgwMjM0WhcNMDcwMjA3MDgwMjM1WjAjMCECEC4QNwPfRoWd\n"
43   "elUNpllhhTgXDTA2MTIyNzA4MDIzNFowCwYJKoZIhvcNAQEFA4GBAD0zX+J2hkcc\n"
44   "Nbrq1Dn5IKL8nXLgPGcHv1I/le1MNo9t1ohGQxB5HnFUkRPAY82fR6Epor4aHgVy\n"
45   "b+5y+neKN9Kn2mPF4iiun+a4o26CjJ0pArojCL1p8T0yyi9Xxvyc/ezaZ98HiIyP\n"
46   "c3DGMNR+oUmSjKZ0jIhAYmeLxaPHfQwR\n" "-----END X509 CRL-----\n";
47
48 /* Test regression of bug reported by Max Kellermann <max@duempel.org>
49    in Message-ID: <20061211075202.GA1517@roonstrasse.net> to the
50    gnutls-dev@gnupg.org list. */
51
52 int
53 main (void)
54 {
55   int rc;
56   gnutls_certificate_credentials_t crt;
57   gnutls_datum_t crldatum = { (uint8_t*)crl, strlen (crl) };
58   gnutls_x509_crl_t crl;
59
60   rc = gnutls_global_init ();
61   if (rc)
62     {
63       printf ("gnutls_global_init rc %d: %s\n", rc, gnutls_strerror (rc));
64       return 1;
65     }
66
67   rc = gnutls_certificate_allocate_credentials (&crt);
68   if (rc)
69     {
70       printf ("gnutls_certificate_allocate_credentials rc %d: %s\n",
71               rc, gnutls_strerror (rc));
72       return 1;
73     }
74
75   rc = gnutls_certificate_set_x509_crl_mem (crt, &crldatum,
76                                             GNUTLS_X509_FMT_PEM);
77   if (rc != 1)
78     {
79       printf ("gnutls_certificate_set_x509_crl_mem num %d\n", rc);
80       return 1;
81     }
82
83   rc = gnutls_x509_crl_init (&crl);
84   if (rc)
85     {
86       printf ("gnutls_x509_crl_init rc %d: %s\n", rc, gnutls_strerror (rc));
87       return 1;
88     }
89
90   rc = gnutls_x509_crl_import (crl, &crldatum, GNUTLS_X509_FMT_PEM);
91   if (rc)
92     {
93       printf ("gnutls_x509_crl_import rc %d: %s\n", rc, gnutls_strerror (rc));
94       return 1;
95     }
96
97   rc = gnutls_certificate_set_x509_crl (crt, &crl, 1);
98   if (rc < 0)
99     {
100       printf ("gnutls_certificate_set_x509_crl rc %d: %s\n",
101               rc, gnutls_strerror (rc));
102       return 1;
103     }
104
105   gnutls_x509_crl_deinit (crl);
106
107   gnutls_certificate_free_credentials (crt);
108
109   gnutls_global_deinit ();
110
111   return 0;
112 }