When listing all objects of a type, restrict their class to the specified.
[gnutls.git] / tests / certificate_set_x509_crl.c
blobb205860f07f0a25407a9126826ee1b302649ab0d
1 /*
2 * Copyright (C) 2006-2012 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 <stdint.h>
30 #include <string.h>
31 #include <gnutls/gnutls.h>
32 #include <gnutls/x509.h>
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";
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. */
52 int
53 main (void)
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;
60 rc = gnutls_global_init ();
61 if (rc)
63 printf ("gnutls_global_init rc %d: %s\n", rc, gnutls_strerror (rc));
64 return 1;
67 rc = gnutls_certificate_allocate_credentials (&crt);
68 if (rc)
70 printf ("gnutls_certificate_allocate_credentials rc %d: %s\n",
71 rc, gnutls_strerror (rc));
72 return 1;
75 rc = gnutls_certificate_set_x509_crl_mem (crt, &crldatum,
76 GNUTLS_X509_FMT_PEM);
77 if (rc != 1)
79 printf ("gnutls_certificate_set_x509_crl_mem num %d\n", rc);
80 return 1;
83 rc = gnutls_x509_crl_init (&crl);
84 if (rc)
86 printf ("gnutls_x509_crl_init rc %d: %s\n", rc, gnutls_strerror (rc));
87 return 1;
90 rc = gnutls_x509_crl_import (crl, &crldatum, GNUTLS_X509_FMT_PEM);
91 if (rc)
93 printf ("gnutls_x509_crl_import rc %d: %s\n", rc, gnutls_strerror (rc));
94 return 1;
97 rc = gnutls_certificate_set_x509_crl (crt, &crl, 1);
98 if (rc < 0)
100 printf ("gnutls_certificate_set_x509_crl rc %d: %s\n",
101 rc, gnutls_strerror (rc));
102 return 1;
105 gnutls_x509_crl_deinit (crl);
107 gnutls_certificate_free_credentials (crt);
109 gnutls_global_deinit ();
111 return 0;