110820c8d1183bbef3f158248bbd6fe3ac6855dc
[oweals/openssl.git] / test / params_api_test.c
1 /*
2  * Copyright 2019-2020 The OpenSSL Project Authors. All Rights Reserved.
3  * Copyright (c) 2019, Oracle and/or its affiliates.  All rights reserved.
4  *
5  * Licensed under the Apache License 2.0 (the "License").  You may not use
6  * this file except in compliance with the License.  You can obtain a copy
7  * in the file LICENSE in the source distribution or at
8  * https://www.openssl.org/source/license.html
9  */
10
11 #include <string.h>
12 #include "testutil.h"
13 #include "internal/nelem.h"
14 #include "ossl_test_endian.h"
15 #include <openssl/params.h>
16 #include <openssl/bn.h>
17
18 /* The maximum size of the static buffers used to test most things */
19 #define MAX_LEN 20
20
21 static void swap_copy(unsigned char *out, const void *in, size_t len)
22 {
23     size_t j;
24
25     for (j = 0; j < len; j++)
26         out[j] = ((unsigned char *)in)[len - j - 1];
27 }
28
29 /*
30  * A memory copy that converts the native byte ordering either to or from
31  * little endian format.
32  *
33  * On a little endian machine copying either is just a memcpy(3), on a
34  * big endian machine copying from native to or from little endian involves
35  * byte reversal.
36  */
37 static void le_copy(unsigned char *out, const void *in, size_t len)
38 {
39     DECLARE_IS_ENDIAN;
40
41     if (IS_LITTLE_ENDIAN)
42         memcpy(out, in, len);
43     else
44         swap_copy(out, in, len);
45 }
46
47 static const struct {
48     size_t len;
49     unsigned char value[MAX_LEN];
50 } raw_values[] = {
51     { 4, { 0x38, 0x27, 0xbf, 0x3b } },
52     { 4, { 0x9f, 0x26, 0x48, 0x22 } },
53     { 8, { 0x59, 0xb2, 0x1a, 0xe9, 0x2a, 0xd8, 0x46, 0x40 } },
54     { 8, { 0xb4, 0xae, 0xbd, 0xb4, 0xdd, 0x04, 0xb1, 0x4c } },
55     { 16, { 0x61, 0xe8, 0x7e, 0x31, 0xe9, 0x33, 0x83, 0x3d,
56             0x87, 0x99, 0xc7, 0xd8, 0x5d, 0xa9, 0x8b, 0x42 } },
57     { 16, { 0xee, 0x6e, 0x8b, 0xc3, 0xec, 0xcf, 0x37, 0xcc,
58             0x89, 0x67, 0xf2, 0x68, 0x33, 0xa0, 0x14, 0xb0 } },
59 };
60
61 static int test_param_type_extra(OSSL_PARAM *param, const unsigned char *cmp,
62                                  size_t width)
63 {
64     int32_t i32;
65     int64_t i64;
66     size_t s, sz;
67     unsigned char buf[MAX_LEN];
68     const int bit32 = param->data_size == sizeof(int32_t);
69     const int sizet = bit32 && sizeof(size_t) > sizeof(int32_t);
70     const int signd = param->data_type == OSSL_PARAM_INTEGER;
71
72     /*
73      * Set the unmodified sentinal directly because there is no param array
74      * for these tests.
75      */
76     param->return_size = OSSL_PARAM_UNMODIFIED;
77     if (signd) {
78         if ((bit32 && !TEST_true(OSSL_PARAM_get_int32(param, &i32)))
79             || !TEST_true(OSSL_PARAM_get_int64(param, &i64)))
80             return 0;
81     } else {
82         if ((bit32
83              && !TEST_true(OSSL_PARAM_get_uint32(param, (uint32_t *)&i32)))
84             || !TEST_true(OSSL_PARAM_get_uint64(param, (uint64_t *)&i64))
85             || (sizet && !TEST_true(OSSL_PARAM_get_size_t(param, &s))))
86             return 0;
87     }
88     if (!TEST_false(OSSL_PARAM_modified(param)))
89         return 0;
90
91     /* Check signed types */
92     if (bit32) {
93         le_copy(buf, &i32, sizeof(i32));
94         sz = sizeof(i32) < width ? sizeof(i32) : width;
95         if (!TEST_mem_eq(buf, sz, cmp, sz))
96             return 0;
97     }
98     le_copy(buf, &i64, sizeof(i64));
99         sz = sizeof(i64) < width ? sizeof(i64) : width;
100     if (!TEST_mem_eq(buf, sz, cmp, sz))
101         return 0;
102     if (sizet && !signd) {
103         le_copy(buf, &s, sizeof(s));
104         sz = sizeof(s) < width ? sizeof(s) : width;
105         if (!TEST_mem_eq(buf, sz, cmp, sz))
106             return 0;
107     }
108
109     /* Check a widening write if possible */
110     if (sizeof(size_t) > width) {
111         if (signd) {
112             if (!TEST_true(OSSL_PARAM_set_int32(param, 12345))
113                 || !TEST_true(OSSL_PARAM_get_int64(param, &i64))
114                 || !TEST_size_t_eq((size_t)i64, 12345))
115                 return 0;
116         } else {
117             if (!TEST_true(OSSL_PARAM_set_uint32(param, 12345))
118                 || !TEST_true(OSSL_PARAM_get_uint64(param, (uint64_t *)&i64))
119                 || !TEST_size_t_eq((size_t)i64, 12345))
120                 return 0;
121         }
122         if (!TEST_true(OSSL_PARAM_modified(param)))
123             return 0;
124     }
125     return 1;
126 }
127
128 /*
129  * The test cases for each of the bastic integral types are similar.
130  * For each type, a param of that type is set and an attempt to read it
131  * get is made.  Finally, the above function is called to verify that
132  * the params can be read as other types.
133  *
134  * All the real work is done via byte buffers which are converted to machine
135  * byte order and to little endian for comparisons.  Narrower values are best
136  * compared using little endian because their values and positions don't
137  * change.
138  */
139
140 static int test_param_int(int n)
141 {
142     int in, out;
143     unsigned char buf[MAX_LEN], cmp[sizeof(int)];
144     const size_t len = raw_values[n].len >= sizeof(int) ?
145                        sizeof(int) : raw_values[n].len;
146     OSSL_PARAM param = OSSL_PARAM_int("a", NULL);
147
148     memset(buf, 0, sizeof(buf));
149     le_copy(buf, raw_values[n].value, sizeof(in));
150     memcpy(&in, buf, sizeof(in));
151     param.data = &out;
152     if (!TEST_true(OSSL_PARAM_set_int(&param, in)))
153         return 0;
154     le_copy(cmp, &out, sizeof(out));
155     if (!TEST_mem_eq(cmp, len, raw_values[n].value, len))
156         return 0;
157     in = 0;
158     if (!TEST_true(OSSL_PARAM_get_int(&param, &in)))
159         return 0;
160     le_copy(cmp, &in, sizeof(in));
161     if (!TEST_mem_eq(cmp, sizeof(in), raw_values[n].value, sizeof(in)))
162         return 0;
163     param.data = &out;
164     return test_param_type_extra(&param, raw_values[n].value, sizeof(int));
165 }
166
167 static int test_param_long(int n)
168 {
169     long int in, out;
170     unsigned char buf[MAX_LEN], cmp[sizeof(long int)];
171     const size_t len = raw_values[n].len >= sizeof(long int)
172                        ? sizeof(long int) : raw_values[n].len;
173     OSSL_PARAM param = OSSL_PARAM_long("a", NULL);
174
175     memset(buf, 0, sizeof(buf));
176     le_copy(buf, raw_values[n].value, sizeof(in));
177     memcpy(&in, buf, sizeof(in));
178     param.data = &out;
179     if (!TEST_true(OSSL_PARAM_set_long(&param, in)))
180         return 0;
181     le_copy(cmp, &out, sizeof(out));
182     if (!TEST_mem_eq(cmp, len, raw_values[n].value, len))
183         return 0;
184     in = 0;
185     if (!TEST_true(OSSL_PARAM_get_long(&param, &in)))
186         return 0;
187     le_copy(cmp, &in, sizeof(in));
188     if (!TEST_mem_eq(cmp, sizeof(in), raw_values[n].value, sizeof(in)))
189         return 0;
190     param.data = &out;
191     return test_param_type_extra(&param, raw_values[n].value, sizeof(long int));
192 }
193
194 static int test_param_uint(int n)
195 {
196     unsigned int in, out;
197     unsigned char buf[MAX_LEN], cmp[sizeof(unsigned int)];
198     const size_t len = raw_values[n].len >= sizeof(unsigned int) ? sizeof(unsigned int) : raw_values[n].len;
199     OSSL_PARAM param = OSSL_PARAM_uint("a", NULL);
200
201     memset(buf, 0, sizeof(buf));
202     le_copy(buf, raw_values[n].value, sizeof(in));
203     memcpy(&in, buf, sizeof(in));
204     param.data = &out;
205     if (!TEST_true(OSSL_PARAM_set_uint(&param, in)))
206         return 0;
207     le_copy(cmp, &out, sizeof(out));
208     if (!TEST_mem_eq(cmp, len, raw_values[n].value, len))
209         return 0;
210     in = 0;
211     if (!TEST_true(OSSL_PARAM_get_uint(&param, &in)))
212         return 0;
213     le_copy(cmp, &in, sizeof(in));
214     if (!TEST_mem_eq(cmp, sizeof(in), raw_values[n].value, sizeof(in)))
215         return 0;
216     param.data = &out;
217     return test_param_type_extra(&param, raw_values[n].value, sizeof(unsigned int));
218 }
219
220 static int test_param_ulong(int n)
221 {
222     unsigned long int in, out;
223     unsigned char buf[MAX_LEN], cmp[sizeof(unsigned long int)];
224     const size_t len = raw_values[n].len >= sizeof(unsigned long int)
225                        ? sizeof(unsigned long int) : raw_values[n].len;
226     OSSL_PARAM param = OSSL_PARAM_ulong("a", NULL);
227
228     memset(buf, 0, sizeof(buf));
229     le_copy(buf, raw_values[n].value, sizeof(in));
230     memcpy(&in, buf, sizeof(in));
231     param.data = &out;
232     if (!TEST_true(OSSL_PARAM_set_ulong(&param, in)))
233         return 0;
234     le_copy(cmp, &out, sizeof(out));
235     if (!TEST_mem_eq(cmp, len, raw_values[n].value, len))
236         return 0;
237     in = 0;
238     if (!TEST_true(OSSL_PARAM_get_ulong(&param, &in)))
239         return 0;
240     le_copy(cmp, &in, sizeof(in));
241     if (!TEST_mem_eq(cmp, sizeof(in), raw_values[n].value, sizeof(in)))
242         return 0;
243     param.data = &out;
244     return test_param_type_extra(&param, raw_values[n].value, sizeof(unsigned long int));
245 }
246
247 static int test_param_int32(int n)
248 {
249     int32_t in, out;
250     unsigned char buf[MAX_LEN], cmp[sizeof(int32_t)];
251     const size_t len = raw_values[n].len >= sizeof(int32_t)
252                        ? sizeof(int32_t) : raw_values[n].len;
253     OSSL_PARAM param = OSSL_PARAM_int32("a", NULL);
254
255     memset(buf, 0, sizeof(buf));
256     le_copy(buf, raw_values[n].value, sizeof(in));
257     memcpy(&in, buf, sizeof(in));
258     param.data = &out;
259     if (!TEST_true(OSSL_PARAM_set_int32(&param, in)))
260         return 0;
261     le_copy(cmp, &out, sizeof(out));
262     if (!TEST_mem_eq(cmp, len, raw_values[n].value, len))
263         return 0;
264     in = 0;
265     if (!TEST_true(OSSL_PARAM_get_int32(&param, &in)))
266         return 0;
267     le_copy(cmp, &in, sizeof(in));
268     if (!TEST_mem_eq(cmp, sizeof(in), raw_values[n].value, sizeof(in)))
269         return 0;
270     param.data = &out;
271     return test_param_type_extra(&param, raw_values[n].value, sizeof(int32_t));
272 }
273
274 static int test_param_uint32(int n)
275 {
276     uint32_t in, out;
277     unsigned char buf[MAX_LEN], cmp[sizeof(uint32_t)];
278     const size_t len = raw_values[n].len >= sizeof(uint32_t)
279                        ? sizeof(uint32_t) : raw_values[n].len;
280     OSSL_PARAM param = OSSL_PARAM_uint32("a", NULL);
281
282     memset(buf, 0, sizeof(buf));
283     le_copy(buf, raw_values[n].value, sizeof(in));
284     memcpy(&in, buf, sizeof(in));
285     param.data = &out;
286     if (!TEST_true(OSSL_PARAM_set_uint32(&param, in)))
287         return 0;
288     le_copy(cmp, &out, sizeof(out));
289     if (!TEST_mem_eq(cmp, len, raw_values[n].value, len))
290         return 0;
291     in = 0;
292     if (!TEST_true(OSSL_PARAM_get_uint32(&param, &in)))
293         return 0;
294     le_copy(cmp, &in, sizeof(in));
295     if (!TEST_mem_eq(cmp, sizeof(in), raw_values[n].value, sizeof(in)))
296         return 0;
297     param.data = &out;
298     return test_param_type_extra(&param, raw_values[n].value, sizeof(uint32_t));
299 }
300
301 static int test_param_int64(int n)
302 {
303     int64_t in, out;
304     unsigned char buf[MAX_LEN], cmp[sizeof(int64_t)];
305     const size_t len = raw_values[n].len >= sizeof(int64_t)
306                        ? sizeof(int64_t) : raw_values[n].len;
307     OSSL_PARAM param = OSSL_PARAM_int64("a", NULL);
308
309     memset(buf, 0, sizeof(buf));
310     le_copy(buf, raw_values[n].value, sizeof(in));
311     memcpy(&in, buf, sizeof(in));
312     param.data = &out;
313     if (!TEST_true(OSSL_PARAM_set_int64(&param, in)))
314         return 0;
315     le_copy(cmp, &out, sizeof(out));
316     if (!TEST_mem_eq(cmp, len, raw_values[n].value, len))
317         return 0;
318     in = 0;
319     if (!TEST_true(OSSL_PARAM_get_int64(&param, &in)))
320         return 0;
321     le_copy(cmp, &in, sizeof(in));
322     if (!TEST_mem_eq(cmp, sizeof(in), raw_values[n].value, sizeof(in)))
323         return 0;
324     param.data = &out;
325     return test_param_type_extra(&param, raw_values[n].value, sizeof(int64_t));
326 }
327
328 static int test_param_uint64(int n)
329 {
330     uint64_t in, out;
331     unsigned char buf[MAX_LEN], cmp[sizeof(uint64_t)];
332     const size_t len = raw_values[n].len >= sizeof(uint64_t)
333                        ? sizeof(uint64_t) : raw_values[n].len;
334     OSSL_PARAM param = OSSL_PARAM_uint64("a", NULL);
335
336     memset(buf, 0, sizeof(buf));
337     le_copy(buf, raw_values[n].value, sizeof(in));
338     memcpy(&in, buf, sizeof(in));
339     param.data = &out;
340     if (!TEST_true(OSSL_PARAM_set_uint64(&param, in)))
341         return 0;
342     le_copy(cmp, &out, sizeof(out));
343     if (!TEST_mem_eq(cmp, len, raw_values[n].value, len))
344         return 0;
345     in = 0;
346     if (!TEST_true(OSSL_PARAM_get_uint64(&param, &in)))
347         return 0;
348     le_copy(cmp, &in, sizeof(in));
349     if (!TEST_mem_eq(cmp, sizeof(in), raw_values[n].value, sizeof(in)))
350         return 0;
351     param.data = &out;
352     return test_param_type_extra(&param, raw_values[n].value, sizeof(uint64_t));
353 }
354
355 static int test_param_size_t(int n)
356 {
357     size_t in, out;
358     unsigned char buf[MAX_LEN], cmp[sizeof(size_t)];
359     const size_t len = raw_values[n].len >= sizeof(size_t)
360                        ? sizeof(size_t) : raw_values[n].len;
361     OSSL_PARAM param = OSSL_PARAM_size_t("a", NULL);
362
363     memset(buf, 0, sizeof(buf));
364     le_copy(buf, raw_values[n].value, sizeof(in));
365     memcpy(&in, buf, sizeof(in));
366     param.data = &out;
367     if (!TEST_true(OSSL_PARAM_set_size_t(&param, in)))
368         return 0;
369     le_copy(cmp, &out, sizeof(out));
370     if (!TEST_mem_eq(cmp, len, raw_values[n].value, len))
371         return 0;
372     in = 0;
373     if (!TEST_true(OSSL_PARAM_get_size_t(&param, &in)))
374         return 0;
375     le_copy(cmp, &in, sizeof(in));
376     if (!TEST_mem_eq(cmp, sizeof(in), raw_values[n].value, sizeof(in)))
377         return 0;
378     param.data = &out;
379     return test_param_type_extra(&param, raw_values[n].value, sizeof(size_t));
380 }
381
382 static int test_param_bignum(int n)
383 {
384     unsigned char buf[MAX_LEN], bnbuf[MAX_LEN];
385     const size_t len = raw_values[n].len;
386     BIGNUM *b = NULL, *c = NULL;
387     OSSL_PARAM param = OSSL_PARAM_DEFN("bn", OSSL_PARAM_UNSIGNED_INTEGER,
388                                        NULL, 0);
389     int ret = 0;
390
391     param.data = bnbuf;
392     param.data_size = len;
393
394     le_copy(buf, raw_values[n].value, len);
395     if (!TEST_ptr(b = BN_lebin2bn(raw_values[n].value, (int)len, NULL)))
396         goto err;
397
398     if (!TEST_true(OSSL_PARAM_set_BN(&param, b))
399         || !TEST_mem_eq(bnbuf, param.return_size, buf, param.return_size))
400         goto err;
401     param.data_size = param.return_size;
402     if (!TEST_true(OSSL_PARAM_get_BN(&param, &c))
403         || !TEST_BN_eq(b, c))
404         goto err;
405
406     ret = 1;
407 err:
408     BN_free(b);
409     BN_free(c);
410     return ret;
411 }
412
413 static int test_param_real(void)
414 {
415     double p;
416     OSSL_PARAM param = OSSL_PARAM_double("r", NULL);
417
418     param.data = &p;
419     return TEST_true(OSSL_PARAM_set_double(&param, 3.14159))
420            && TEST_double_eq(p, 3.14159);
421 }
422
423 static int test_param_construct(void)
424 {
425     static const char *int_names[] = {
426         "int", "long", "int32", "int64"
427     };
428     static const char *uint_names[] = {
429         "uint", "ulong", "uint32", "uint64", "size_t"
430     };
431     static const unsigned char bn_val[16] = {
432         0xac, 0x75, 0x22, 0x7d, 0x81, 0x06, 0x7a, 0x23,
433         0xa6, 0xed, 0x87, 0xc7, 0xab, 0xf4, 0x73, 0x22
434     };
435     OSSL_PARAM params[20];
436     char buf[100], buf2[100], *bufp, *bufp2;
437     unsigned char ubuf[100];
438     void *vp, *vpn = NULL, *vp2;
439     OSSL_PARAM *cp;
440     int i, n = 0, ret = 0;
441     unsigned int u;
442     long int l;
443     unsigned long int ul;
444     int32_t i32;
445     uint32_t u32;
446     int64_t i64;
447     uint64_t u64;
448     size_t j, k, s;
449     double d, d2;
450     BIGNUM *bn = NULL, *bn2 = NULL;
451
452     params[n++] = OSSL_PARAM_construct_int("int", &i);
453     params[n++] = OSSL_PARAM_construct_uint("uint", &u);
454     params[n++] = OSSL_PARAM_construct_long("long", &l);
455     params[n++] = OSSL_PARAM_construct_ulong("ulong", &ul);
456     params[n++] = OSSL_PARAM_construct_int32("int32", &i32);
457     params[n++] = OSSL_PARAM_construct_int64("int64", &i64);
458     params[n++] = OSSL_PARAM_construct_uint32("uint32", &u32);
459     params[n++] = OSSL_PARAM_construct_uint64("uint64", &u64);
460     params[n++] = OSSL_PARAM_construct_size_t("size_t", &s);
461     params[n++] = OSSL_PARAM_construct_double("double", &d);
462     params[n++] = OSSL_PARAM_construct_BN("bignum", ubuf, sizeof(ubuf));
463     params[n++] = OSSL_PARAM_construct_utf8_string("utf8str", buf, sizeof(buf));
464     params[n++] = OSSL_PARAM_construct_octet_string("octstr", buf, sizeof(buf));
465     params[n++] = OSSL_PARAM_construct_utf8_ptr("utf8ptr", &bufp, 0);
466     params[n++] = OSSL_PARAM_construct_octet_ptr("octptr", &vp, 0);
467     params[n] = OSSL_PARAM_construct_end();
468
469     /* Search failure */
470     if (!TEST_ptr_null(OSSL_PARAM_locate(params, "fnord")))
471         goto err;
472
473     /* All signed integral types */
474     for (j = 0; j < OSSL_NELEM(int_names); j++) {
475         if (!TEST_ptr(cp = OSSL_PARAM_locate(params, int_names[j]))
476             || !TEST_true(OSSL_PARAM_set_int32(cp, (int32_t)(3 + j)))
477             || !TEST_true(OSSL_PARAM_get_int64(cp, &i64))
478             || !TEST_size_t_eq(cp->data_size, cp->return_size)
479             || !TEST_size_t_eq((size_t)i64, 3 + j)) {
480             TEST_note("iteration %zu var %s", j + 1, int_names[j]);
481             goto err;
482         }
483     }
484     /* All unsigned integral types */
485     for (j = 0; j < OSSL_NELEM(uint_names); j++) {
486         if (!TEST_ptr(cp = OSSL_PARAM_locate(params, uint_names[j]))
487             || !TEST_true(OSSL_PARAM_set_uint32(cp, (uint32_t)(3 + j)))
488             || !TEST_true(OSSL_PARAM_get_uint64(cp, &u64))
489             || !TEST_size_t_eq(cp->data_size, cp->return_size)
490             || !TEST_size_t_eq((size_t)u64, 3 + j)) {
491             TEST_note("iteration %zu var %s", j + 1, uint_names[j]);
492             goto err;
493         }
494     }
495     /* Real */
496     if (!TEST_ptr(cp = OSSL_PARAM_locate(params, "double"))
497         || !TEST_true(OSSL_PARAM_set_double(cp, 3.14))
498         || !TEST_true(OSSL_PARAM_get_double(cp, &d2))
499         || !TEST_size_t_eq(cp->return_size, sizeof(double))
500         || !TEST_double_eq(d, d2))
501         goto err;
502     /* UTF8 string */
503     bufp = NULL;
504     if (!TEST_ptr(cp = OSSL_PARAM_locate(params, "utf8str"))
505         || !TEST_true(OSSL_PARAM_set_utf8_string(cp, "abcdef"))
506         || !TEST_size_t_eq(cp->return_size, sizeof("abcdef"))
507         || !TEST_true(OSSL_PARAM_get_utf8_string(cp, &bufp, 0))
508         || !TEST_str_eq(bufp, "abcdef"))
509         goto err;
510     OPENSSL_free(bufp);
511     bufp = buf2;
512     if (!TEST_true(OSSL_PARAM_get_utf8_string(cp, &bufp, sizeof(buf2)))
513         || !TEST_str_eq(buf2, "abcdef"))
514         goto err;
515     /* UTF8 pointer */
516     bufp = buf;
517     if (!TEST_ptr(cp = OSSL_PARAM_locate(params, "utf8ptr"))
518         || !TEST_true(OSSL_PARAM_set_utf8_ptr(cp, "tuvwxyz"))
519         || !TEST_size_t_eq(cp->return_size, sizeof("tuvwxyz"))
520         || !TEST_str_eq(bufp, "tuvwxyz")
521         || !TEST_true(OSSL_PARAM_get_utf8_ptr(cp, (const char **)&bufp2))
522         || !TEST_ptr_eq(bufp2, bufp))
523         goto err;
524     /* OCTET string */
525     if (!TEST_ptr(cp = OSSL_PARAM_locate(params, "octstr"))
526         || !TEST_true(OSSL_PARAM_set_octet_string(cp, "abcdefghi",
527                                                   sizeof("abcdefghi")))
528         || !TEST_size_t_eq(cp->return_size, sizeof("abcdefghi")))
529         goto err;
530     /* Match the return size to avoid trailing garbage bytes */
531     cp->data_size = cp->return_size;
532     if (!TEST_true(OSSL_PARAM_get_octet_string(cp, &vpn, 0, &s))
533         || !TEST_size_t_eq(s, sizeof("abcdefghi"))
534         || !TEST_mem_eq(vpn, sizeof("abcdefghi"),
535                         "abcdefghi", sizeof("abcdefghi")))
536         goto err;
537     vp = buf2;
538     if (!TEST_true(OSSL_PARAM_get_octet_string(cp, &vp, sizeof(buf2), &s))
539         || !TEST_size_t_eq(s, sizeof("abcdefghi"))
540         || !TEST_mem_eq(vp, sizeof("abcdefghi"),
541                         "abcdefghi", sizeof("abcdefghi")))
542         goto err;
543     /* OCTET pointer */
544     vp = &l;
545     if (!TEST_ptr(cp = OSSL_PARAM_locate(params, "octptr"))
546         || !TEST_true(OSSL_PARAM_set_octet_ptr(cp, &ul, sizeof(ul)))
547         || !TEST_size_t_eq(cp->return_size, sizeof(ul))
548         || !TEST_ptr_eq(vp, &ul))
549         goto err;
550     /* Match the return size to avoid trailing garbage bytes */
551     cp->data_size = cp->return_size;
552     if (!TEST_true(OSSL_PARAM_get_octet_ptr(cp, (const void **)&vp2, &k))
553         || !TEST_size_t_eq(k, sizeof(ul))
554         || !TEST_ptr_eq(vp2, vp))
555         goto err;
556     /* BIGNUM */
557     if (!TEST_ptr(cp = OSSL_PARAM_locate(params, "bignum"))
558         || !TEST_ptr(bn = BN_lebin2bn(bn_val, (int)sizeof(bn_val), NULL))
559         || !TEST_true(OSSL_PARAM_set_BN(cp, bn))
560         || !TEST_size_t_eq(cp->data_size, cp->return_size))
561         goto err;
562     /* Match the return size to avoid trailing garbage bytes */
563     cp->data_size = cp->return_size;
564     if(!TEST_true(OSSL_PARAM_get_BN(cp, &bn2))
565         || !TEST_BN_eq(bn, bn2))
566         goto err;
567     ret = 1;
568 err:
569     OPENSSL_free(vpn);
570     BN_free(bn);
571     BN_free(bn2);
572     return ret;
573 }
574
575 static int test_param_modified(void)
576 {
577     OSSL_PARAM param[3] = { OSSL_PARAM_int("a", NULL),
578                             OSSL_PARAM_int("b", NULL),
579                             OSSL_PARAM_END };
580     int a, b;
581
582     param->data = &a;
583     param[1].data = &b;
584     if (!TEST_false(OSSL_PARAM_modified(param))
585             && !TEST_true(OSSL_PARAM_set_int32(param, 1234))
586             && !TEST_true(OSSL_PARAM_modified(param))
587             && !TEST_false(OSSL_PARAM_modified(param + 1))
588             && !TEST_true(OSSL_PARAM_set_int32(param + 1, 1))
589             && !TEST_true(OSSL_PARAM_modified(param + 1)))
590         return 0;
591     OSSL_PARAM_set_all_unmodified(param);
592     if (!TEST_false(OSSL_PARAM_modified(param))
593             && !TEST_true(OSSL_PARAM_set_int32(param, 4321))
594             && !TEST_true(OSSL_PARAM_modified(param))
595             && !TEST_false(OSSL_PARAM_modified(param + 1))
596             && !TEST_true(OSSL_PARAM_set_int32(param + 1, 2))
597             && !TEST_true(OSSL_PARAM_modified(param + 1)))
598         return 0;
599     return 1;
600 }
601
602 int setup_tests(void)
603 {
604     ADD_ALL_TESTS(test_param_int, OSSL_NELEM(raw_values));
605     ADD_ALL_TESTS(test_param_long, OSSL_NELEM(raw_values));
606     ADD_ALL_TESTS(test_param_uint, OSSL_NELEM(raw_values));
607     ADD_ALL_TESTS(test_param_ulong, OSSL_NELEM(raw_values));
608     ADD_ALL_TESTS(test_param_int32, OSSL_NELEM(raw_values));
609     ADD_ALL_TESTS(test_param_uint32, OSSL_NELEM(raw_values));
610     ADD_ALL_TESTS(test_param_size_t, OSSL_NELEM(raw_values));
611     ADD_ALL_TESTS(test_param_int64, OSSL_NELEM(raw_values));
612     ADD_ALL_TESTS(test_param_uint64, OSSL_NELEM(raw_values));
613     ADD_ALL_TESTS(test_param_bignum, OSSL_NELEM(raw_values));
614     ADD_TEST(test_param_real);
615     ADD_TEST(test_param_construct);
616     ADD_TEST(test_param_modified);
617     return 1;
618 }