Update gnulib files.
[gnutls.git] / tests / certificate_set_x509_crl.c
blob4d3dd282ca0891c9dd19c31ac0f1b7dc6100e739
1 /*
2 * Copyright (C) 2006, 2007, 2010 Free Software Foundation, Inc.
4 * Author: Simon Josefsson
6 * This file is part of GNUTLS.
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.
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.
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
23 #ifdef HAVE_CONFIG_H
24 # include <config.h>
25 #endif
27 #include <stdio.h>
28 #include <stdlib.h>
29 #include <string.h>
30 #include <gnutls/gnutls.h>
31 #include <gnutls/x509.h>
33 static char crl[] =
34 "-----BEGIN X509 CRL-----\n"
35 "MIIB9DCCAV8CAQEwCwYJKoZIhvcNAQEFMIIBCDEXMBUGA1UEChMOVmVyaVNpZ24s\n"
36 "IEluYy4xHzAdBgNVBAsTFlZlcmlTaWduIFRydXN0IE5ldHdvcmsxRjBEBgNVBAsT\n"
37 "PXd3dy52ZXJpc2lnbi5jb20vcmVwb3NpdG9yeS9SUEEgSW5jb3JwLiBieSBSZWYu\n"
38 "LExJQUIuTFREKGMpOTgxHjAcBgNVBAsTFVBlcnNvbmEgTm90IFZhbGlkYXRlZDEm\n"
39 "MCQGA1UECxMdRGlnaXRhbCBJRCBDbGFzcyAxIC0gTmV0c2NhcGUxGDAWBgNVBAMU\n"
40 "D1NpbW9uIEpvc2Vmc3NvbjEiMCAGCSqGSIb3DQEJARYTc2ltb25Aam9zZWZzc29u\n"
41 "Lm9yZxcNMDYxMjI3MDgwMjM0WhcNMDcwMjA3MDgwMjM1WjAjMCECEC4QNwPfRoWd\n"
42 "elUNpllhhTgXDTA2MTIyNzA4MDIzNFowCwYJKoZIhvcNAQEFA4GBAD0zX+J2hkcc\n"
43 "Nbrq1Dn5IKL8nXLgPGcHv1I/le1MNo9t1ohGQxB5HnFUkRPAY82fR6Epor4aHgVy\n"
44 "b+5y+neKN9Kn2mPF4iiun+a4o26CjJ0pArojCL1p8T0yyi9Xxvyc/ezaZ98HiIyP\n"
45 "c3DGMNR+oUmSjKZ0jIhAYmeLxaPHfQwR\n" "-----END X509 CRL-----\n";
47 /* Test regression of bug reported by Max Kellermann <max@duempel.org>
48 in Message-ID: <20061211075202.GA1517@roonstrasse.net> to the
49 gnutls-dev@gnupg.org list. */
51 int
52 main (void)
54 int rc;
55 gnutls_certificate_credentials_t crt;
56 gnutls_datum_t crldatum = { crl, strlen (crl) };
57 gnutls_x509_crl_t crl;
59 rc = gnutls_global_init ();
60 if (rc)
62 printf ("gnutls_global_init rc %d: %s\n", rc, gnutls_strerror (rc));
63 return 1;
66 rc = gnutls_certificate_allocate_credentials (&crt);
67 if (rc)
69 printf ("gnutls_certificate_allocate_credentials rc %d: %s\n",
70 rc, gnutls_strerror (rc));
71 return 1;
74 rc = gnutls_certificate_set_x509_crl_mem (crt, &crldatum,
75 GNUTLS_X509_FMT_PEM);
76 if (rc != 1)
78 printf ("gnutls_certificate_set_x509_crl_mem num %d\n", rc);
79 return 1;
82 rc = gnutls_x509_crl_init (&crl);
83 if (rc)
85 printf ("gnutls_x509_crl_init rc %d: %s\n", rc, gnutls_strerror (rc));
86 return 1;
89 rc = gnutls_x509_crl_import (crl, &crldatum, GNUTLS_X509_FMT_PEM);
90 if (rc)
92 printf ("gnutls_x509_crl_import rc %d: %s\n", rc, gnutls_strerror (rc));
93 return 1;
96 rc = gnutls_certificate_set_x509_crl (crt, &crl, 1);
97 if (rc)
99 printf ("gnutls_certificate_set_x509_crl rc %d: %s\n",
100 rc, gnutls_strerror (rc));
101 return 1;
104 gnutls_x509_crl_deinit (crl);
106 gnutls_certificate_free_credentials (crt);
108 gnutls_global_deinit ();
110 return 0;