VMS: remove name mangling guards around inclusion of internals
[openssl.git] / test / asn1_internal_test.c
1 /*
2  * Copyright 1999-2016 The OpenSSL Project Authors. All Rights Reserved.
3  *
4  * Licensed under the OpenSSL license (the "License").  You may not use
5  * this file except in compliance with the License.  You can obtain a copy
6  * in the file LICENSE in the source distribution or at
7  * https://www.openssl.org/source/license.html
8  */
9
10 /* Internal tests for the asn1 module */
11
12 #include <stdio.h>
13 #include <string.h>
14
15 #include <openssl/asn1.h>
16 #include <openssl/evp.h>
17 #include <openssl/objects.h>
18 #include "test_main.h"
19 #include "testutil.h"
20 #include "e_os.h"
21
22 /**********************************************************************
23  *
24  * Test of a_strnid's tbl_standard
25  *
26  ***/
27
28 #include "../crypto/asn1/tbl_standard.h"
29
30 static int test_tbl_standard()
31 {
32     const ASN1_STRING_TABLE *tmp;
33     int last_nid = -1;
34     size_t i;
35
36     for (tmp = tbl_standard, i = 0; i < OSSL_NELEM(tbl_standard); i++, tmp++) {
37         if (tmp->nid < last_nid) {
38             last_nid = 0;
39             break;
40         }
41         last_nid = tmp->nid;
42     }
43
44     if (last_nid != 0) {
45         fprintf(stderr, "asn1 tbl_standard: Table order OK\n");
46         return 1;
47     }
48
49     for (tmp = tbl_standard, i = 0; i < OSSL_NELEM(tbl_standard); i++, tmp++)
50         fprintf(stderr, "asn1 tbl_standard: Index %" OSSLzu ", NID %d, Name=%s\n",
51                 i, tmp->nid, OBJ_nid2ln(tmp->nid));
52
53     return 0;
54 }
55
56 /**********************************************************************
57  *
58  * Test of ameth_lib's standard_methods
59  *
60  ***/
61
62 #include "internal/asn1_int.h"
63 #include "../crypto/asn1/standard_methods.h"
64
65 static int test_standard_methods()
66 {
67     const EVP_PKEY_ASN1_METHOD **tmp;
68     int last_pkey_id = -1;
69     size_t i;
70
71     for (tmp = standard_methods, i = 0; i < OSSL_NELEM(standard_methods);
72          i++, tmp++) {
73         if ((*tmp)->pkey_id < last_pkey_id) {
74             last_pkey_id = 0;
75             break;
76         }
77         last_pkey_id = (*tmp)->pkey_id;
78     }
79
80     if (last_pkey_id != 0) {
81         fprintf(stderr, "asn1 standard methods: Table order OK\n");
82         return 1;
83     }
84
85     TEST_error("asn1 standard methods out of order");
86     for (tmp = standard_methods, i = 0; i < OSSL_NELEM(standard_methods);
87          i++, tmp++)
88         fprintf(stderr, "asn1 standard methods: Index %" OSSLzu
89                 ", pkey ID %d, Name=%s\n", i, (*tmp)->pkey_id,
90                 OBJ_nid2sn((*tmp)->pkey_id));
91
92     return 0;
93 }
94
95 void register_tests(void)
96 {
97     ADD_TEST(test_tbl_standard);
98     ADD_TEST(test_standard_methods);
99 }