xref: /freebsd/crypto/heimdal/lib/asn1/check-common.c (revision 1e413cf93298b5b97441a21d9a50fdcd0ee9945e)
1 /*
2  * Copyright (c) 1999 - 2003 Kungliga Tekniska H�gskolan
3  * (Royal Institute of Technology, Stockholm, Sweden).
4  * All rights reserved.
5  *
6  * Redistribution and use in source and binary forms, with or without
7  * modification, are permitted provided that the following conditions
8  * are met:
9  *
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  *
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  *
17  * 3. Neither the name of the Institute nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  */
33 
34 #ifdef HAVE_CONFIG_H
35 #include <config.h>
36 #endif
37 #include <stdio.h>
38 #include <string.h>
39 #include <err.h>
40 #include <roken.h>
41 
42 #include "check-common.h"
43 
44 RCSID("$Id: check-common.c,v 1.1 2003/01/23 10:21:36 lha Exp $");
45 
46 static void
47 print_bytes (unsigned const char *buf, size_t len)
48 {
49     int i;
50 
51     for (i = 0; i < len; ++i)
52 	printf ("%02x ", buf[i]);
53 }
54 
55 int
56 generic_test (const struct test_case *tests,
57 	      unsigned ntests,
58 	      size_t data_size,
59 	      int (*encode)(unsigned char *, size_t, void *, size_t *),
60 	      int (*length)(void *),
61 	      int (*decode)(unsigned char *, size_t, void *, size_t *),
62 	      int (*cmp)(void *a, void *b))
63 {
64     unsigned char buf[4711];
65     int i;
66     int failures = 0;
67     void *val = malloc (data_size);
68 
69     if (data_size != 0 && val == NULL)
70 	err (1, "malloc");
71 
72     for (i = 0; i < ntests; ++i) {
73 	int ret;
74 	size_t sz, consumed_sz, length_sz;
75 	unsigned char *beg;
76 
77 	ret = (*encode) (buf + sizeof(buf) - 1, sizeof(buf),
78 			 tests[i].val, &sz);
79 	beg = buf + sizeof(buf) - sz;
80 	if (ret != 0) {
81 	    printf ("encoding of %s failed\n", tests[i].name);
82 	    ++failures;
83 	}
84 	if (sz != tests[i].byte_len) {
85 	    printf ("encoding of %s has wrong len (%lu != %lu)\n",
86 		    tests[i].name,
87 		    (unsigned long)sz, (unsigned long)tests[i].byte_len);
88 	    ++failures;
89 	}
90 
91 	length_sz = (*length) (tests[i].val);
92 	if (sz != length_sz) {
93 	    printf ("length for %s is bad (%lu != %lu)\n",
94 		    tests[i].name, (unsigned long)length_sz, (unsigned long)sz);
95 	    ++failures;
96 	}
97 
98 	if (memcmp (beg, tests[i].bytes, tests[i].byte_len) != 0) {
99 	    printf ("encoding of %s has bad bytes:\n"
100 		    "correct: ", tests[i].name);
101 	    print_bytes (tests[i].bytes, tests[i].byte_len);
102 	    printf ("\nactual:  ");
103 	    print_bytes (beg, sz);
104 	    printf ("\n");
105 	    ++failures;
106 	}
107 	ret = (*decode) (beg, sz, val, &consumed_sz);
108 	if (ret != 0) {
109 	    printf ("decoding of %s failed\n", tests[i].name);
110 	    ++failures;
111 	}
112 	if (sz != consumed_sz) {
113 	    printf ("different length decoding %s (%ld != %ld)\n",
114 		    tests[i].name,
115 		    (unsigned long)sz, (unsigned long)consumed_sz);
116 	    ++failures;
117 	}
118 	if ((*cmp)(val, tests[i].val) != 0) {
119 	    printf ("%s: comparison failed\n", tests[i].name);
120 	    ++failures;
121 	}
122     }
123     free (val);
124     return failures;
125 }
126