Home | History | Annotate | Line # | Download | only in test
      1  1.1  christos /*
      2  1.1  christos  * Copyright 2019-2023 The OpenSSL Project Authors. All Rights Reserved.
      3  1.1  christos  * Copyright (c) 2019, Oracle and/or its affiliates.  All rights reserved.
      4  1.1  christos  *
      5  1.1  christos  * Licensed under the Apache License 2.0 (the "License").  You may not use
      6  1.1  christos  * this file except in compliance with the License.  You can obtain a copy
      7  1.1  christos  * in the file LICENSE in the source distribution or at
      8  1.1  christos  * https://www.openssl.org/source/license.html
      9  1.1  christos  */
     10  1.1  christos 
     11  1.1  christos #include <string.h>
     12  1.1  christos #include <openssl/params.h>
     13  1.1  christos #include <openssl/param_build.h>
     14  1.1  christos #include "internal/nelem.h"
     15  1.1  christos #include "testutil.h"
     16  1.1  christos 
     17  1.1  christos static const OSSL_PARAM params_empty[] = { OSSL_PARAM_END };
     18  1.1  christos 
     19  1.1  christos static int template_public_single_zero_test(void)
     20  1.1  christos {
     21  1.1  christos     OSSL_PARAM_BLD *bld = NULL;
     22  1.1  christos     OSSL_PARAM *params = NULL, *params_blt = NULL, *p;
     23  1.1  christos     BIGNUM *zbn = NULL, *zbn_res = NULL;
     24  1.1  christos     int res = 0;
     25  1.1  christos 
     26  1.1  christos     if (!TEST_ptr(bld = OSSL_PARAM_BLD_new())
     27  1.1  christos         || !TEST_ptr(zbn = BN_new())
     28  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_BN(bld, "zeronumber", zbn))
     29  1.1  christos         || !TEST_ptr(params_blt = OSSL_PARAM_BLD_to_param(bld)))
     30  1.1  christos         goto err;
     31  1.1  christos 
     32  1.1  christos     params = params_blt;
     33  1.1  christos     /* Check BN (zero BN becomes unsigned integer) */
     34  1.1  christos     if (!TEST_ptr(p = OSSL_PARAM_locate(params, "zeronumber"))
     35  1.1  christos         || !TEST_str_eq(p->key, "zeronumber")
     36  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
     37  1.1  christos         || !TEST_true(OSSL_PARAM_get_BN(p, &zbn_res))
     38  1.1  christos         || !TEST_BN_eq(zbn_res, zbn))
     39  1.1  christos         goto err;
     40  1.1  christos     res = 1;
     41  1.1  christos err:
     42  1.1  christos     if (params != params_blt)
     43  1.1  christos         OPENSSL_free(params);
     44  1.1  christos     OSSL_PARAM_free(params_blt);
     45  1.1  christos     OSSL_PARAM_BLD_free(bld);
     46  1.1  christos     BN_free(zbn);
     47  1.1  christos     BN_free(zbn_res);
     48  1.1  christos     return res;
     49  1.1  christos }
     50  1.1  christos 
     51  1.1  christos static int template_private_single_zero_test(void)
     52  1.1  christos {
     53  1.1  christos     OSSL_PARAM_BLD *bld = NULL;
     54  1.1  christos     OSSL_PARAM *params = NULL, *params_blt = NULL, *p;
     55  1.1  christos     BIGNUM *zbn = NULL, *zbn_res = NULL;
     56  1.1  christos     int res = 0;
     57  1.1  christos 
     58  1.1  christos     if (!TEST_ptr(bld = OSSL_PARAM_BLD_new())
     59  1.1  christos         || !TEST_ptr(zbn = BN_secure_new())
     60  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_BN(bld, "zeronumber", zbn))
     61  1.1  christos         || !TEST_ptr(params_blt = OSSL_PARAM_BLD_to_param(bld)))
     62  1.1  christos         goto err;
     63  1.1  christos 
     64  1.1  christos     params = params_blt;
     65  1.1  christos     /* Check BN (zero BN becomes unsigned integer) */
     66  1.1  christos     if (!TEST_ptr(p = OSSL_PARAM_locate(params, "zeronumber"))
     67  1.1  christos         || !TEST_true(CRYPTO_secure_allocated(p->data))
     68  1.1  christos         || !TEST_str_eq(p->key, "zeronumber")
     69  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
     70  1.1  christos         || !TEST_true(OSSL_PARAM_get_BN(p, &zbn_res))
     71  1.1  christos         || !TEST_int_eq(BN_get_flags(zbn, BN_FLG_SECURE), BN_FLG_SECURE)
     72  1.1  christos         || !TEST_BN_eq(zbn_res, zbn))
     73  1.1  christos         goto err;
     74  1.1  christos     res = 1;
     75  1.1  christos err:
     76  1.1  christos     if (params != params_blt)
     77  1.1  christos         OPENSSL_free(params);
     78  1.1  christos     OSSL_PARAM_free(params_blt);
     79  1.1  christos     OSSL_PARAM_BLD_free(bld);
     80  1.1  christos     BN_free(zbn);
     81  1.1  christos     BN_free(zbn_res);
     82  1.1  christos     return res;
     83  1.1  christos }
     84  1.1  christos 
     85  1.1  christos static int template_public_test(int tstid)
     86  1.1  christos {
     87  1.1  christos     OSSL_PARAM_BLD *bld = OSSL_PARAM_BLD_new();
     88  1.1  christos     OSSL_PARAM *params = NULL, *params_blt = NULL, *p1 = NULL, *p;
     89  1.1  christos     BIGNUM *bn = NULL, *bn_res = NULL;
     90  1.1  christos     BIGNUM *zbn = NULL, *zbn_res = NULL;
     91  1.1  christos     int i;
     92  1.1  christos     long int l;
     93  1.1  christos     int32_t i32;
     94  1.1  christos     int64_t i64;
     95  1.1  christos     double d;
     96  1.1  christos     time_t t;
     97  1.1  christos     char *utf = NULL;
     98  1.1  christos     const char *cutf;
     99  1.1  christos     int res = 0;
    100  1.1  christos 
    101  1.1  christos     if (!TEST_ptr(bld)
    102  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_long(bld, "l", 42))
    103  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_int32(bld, "i32", 1532))
    104  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_int64(bld, "i64", -9999999))
    105  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_time_t(bld, "t", 11224))
    106  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_double(bld, "d", 1.61803398875))
    107  1.1  christos         || !TEST_ptr(zbn = BN_new())
    108  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_BN(bld, "zeronumber", zbn))
    109  1.1  christos         || !TEST_ptr(bn = BN_new())
    110  1.1  christos         || !TEST_true(BN_set_word(bn, 1729))
    111  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_BN(bld, "bignumber", bn))
    112  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_utf8_string(bld, "utf8_s", "foo",
    113  1.1  christos                                                       sizeof("foo")))
    114  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_utf8_ptr(bld, "utf8_p", "bar-boom",
    115  1.1  christos                                                    0))
    116  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_int(bld, "i", -6))
    117  1.1  christos         || !TEST_ptr(params_blt = OSSL_PARAM_BLD_to_param(bld)))
    118  1.1  christos         goto err;
    119  1.1  christos 
    120  1.1  christos     switch(tstid) {
    121  1.1  christos     case 0:
    122  1.1  christos         params = params_blt;
    123  1.1  christos         break;
    124  1.1  christos     case 1:
    125  1.1  christos         params = OSSL_PARAM_merge(params_blt, params_empty);
    126  1.1  christos         break;
    127  1.1  christos     case 2:
    128  1.1  christos         params = OSSL_PARAM_dup(params_blt);
    129  1.1  christos         break;
    130  1.1  christos     case 3:
    131  1.1  christos         p1 = OSSL_PARAM_merge(params_blt, params_empty);
    132  1.1  christos         params = OSSL_PARAM_dup(p1);
    133  1.1  christos         break;
    134  1.1  christos     default:
    135  1.1  christos         p1 = OSSL_PARAM_dup(params_blt);
    136  1.1  christos         params = OSSL_PARAM_merge(p1, params_empty);
    137  1.1  christos         break;
    138  1.1  christos     }
    139  1.1  christos     /* Check int */
    140  1.1  christos     if (!TEST_ptr(p = OSSL_PARAM_locate(params, "i"))
    141  1.1  christos         || !TEST_true(OSSL_PARAM_get_int(p, &i))
    142  1.1  christos         || !TEST_str_eq(p->key, "i")
    143  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_INTEGER)
    144  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(int))
    145  1.1  christos         || !TEST_int_eq(i, -6)
    146  1.1  christos         /* Check int32 */
    147  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "i32"))
    148  1.1  christos         || !TEST_true(OSSL_PARAM_get_int32(p, &i32))
    149  1.1  christos         || !TEST_str_eq(p->key, "i32")
    150  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_INTEGER)
    151  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(int32_t))
    152  1.1  christos         || !TEST_int_eq((int)i32, 1532)
    153  1.1  christos         /* Check int64 */
    154  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "i64"))
    155  1.1  christos         || !TEST_str_eq(p->key, "i64")
    156  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_INTEGER)
    157  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(int64_t))
    158  1.1  christos         || !TEST_true(OSSL_PARAM_get_int64(p, &i64))
    159  1.1  christos         || !TEST_long_eq((long)i64, -9999999)
    160  1.1  christos         /* Check long */
    161  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "l"))
    162  1.1  christos         || !TEST_str_eq(p->key, "l")
    163  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_INTEGER)
    164  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(long int))
    165  1.1  christos         || !TEST_true(OSSL_PARAM_get_long(p, &l))
    166  1.1  christos         || !TEST_long_eq(l, 42)
    167  1.1  christos         /* Check time_t */
    168  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "t"))
    169  1.1  christos         || !TEST_str_eq(p->key, "t")
    170  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_INTEGER)
    171  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(time_t))
    172  1.1  christos         || !TEST_true(OSSL_PARAM_get_time_t(p, &t))
    173  1.1  christos         || !TEST_time_t_eq(t, 11224)
    174  1.1  christos         /* Check double */
    175  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "d"))
    176  1.1  christos         || !TEST_true(OSSL_PARAM_get_double(p, &d))
    177  1.1  christos         || !TEST_str_eq(p->key, "d")
    178  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_REAL)
    179  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(double))
    180  1.1  christos         || !TEST_double_eq(d, 1.61803398875)
    181  1.1  christos         /* Check UTF8 string */
    182  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "utf8_s"))
    183  1.1  christos         || !TEST_str_eq(p->data, "foo")
    184  1.1  christos         || !TEST_true(OSSL_PARAM_get_utf8_string(p, &utf, 0))
    185  1.1  christos         || !TEST_str_eq(utf, "foo")
    186  1.1  christos         /* Check UTF8 pointer */
    187  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "utf8_p"))
    188  1.1  christos         || !TEST_true(OSSL_PARAM_get_utf8_ptr(p, &cutf))
    189  1.1  christos         || !TEST_str_eq(cutf, "bar-boom")
    190  1.1  christos         /* Check BN (zero BN becomes unsigned integer) */
    191  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "zeronumber"))
    192  1.1  christos         || !TEST_str_eq(p->key, "zeronumber")
    193  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    194  1.1  christos         || !TEST_true(OSSL_PARAM_get_BN(p, &zbn_res))
    195  1.1  christos         || !TEST_BN_eq(zbn_res, zbn)
    196  1.1  christos         /* Check BN */
    197  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "bignumber"))
    198  1.1  christos         || !TEST_str_eq(p->key, "bignumber")
    199  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    200  1.1  christos         || !TEST_true(OSSL_PARAM_get_BN(p, &bn_res))
    201  1.1  christos         || !TEST_int_eq(BN_cmp(bn_res, bn), 0))
    202  1.1  christos         goto err;
    203  1.1  christos     res = 1;
    204  1.1  christos err:
    205  1.1  christos     OPENSSL_free(p1);
    206  1.1  christos     if (params != params_blt)
    207  1.1  christos         OPENSSL_free(params);
    208  1.1  christos     OSSL_PARAM_free(params_blt);
    209  1.1  christos     OSSL_PARAM_BLD_free(bld);
    210  1.1  christos     OPENSSL_free(utf);
    211  1.1  christos     BN_free(zbn);
    212  1.1  christos     BN_free(zbn_res);
    213  1.1  christos     BN_free(bn);
    214  1.1  christos     BN_free(bn_res);
    215  1.1  christos     return res;
    216  1.1  christos }
    217  1.1  christos 
    218  1.1  christos static int template_private_test(int tstid)
    219  1.1  christos {
    220  1.1  christos     int *data1 = NULL, *data2 = NULL, j;
    221  1.1  christos     const int data1_num = 12;
    222  1.1  christos     const int data1_size = data1_num * sizeof(int);
    223  1.1  christos     const int data2_num = 5;
    224  1.1  christos     const int data2_size = data2_num * sizeof(int);
    225  1.1  christos     OSSL_PARAM_BLD *bld = NULL;
    226  1.1  christos     OSSL_PARAM *params = NULL, *params_blt = NULL, *p1 = NULL, *p;
    227  1.1  christos     unsigned int i;
    228  1.1  christos     unsigned long int l;
    229  1.1  christos     uint32_t i32;
    230  1.1  christos     uint64_t i64;
    231  1.1  christos     size_t st;
    232  1.1  christos     BIGNUM *zbn = NULL, *zbn_res = NULL;
    233  1.1  christos     BIGNUM *bn = NULL, *bn_res = NULL;
    234  1.1  christos     int res = 0;
    235  1.1  christos 
    236  1.1  christos     if (!TEST_ptr(data1 = OPENSSL_secure_malloc(data1_size))
    237  1.1  christos             || !TEST_ptr(data2 = OPENSSL_secure_malloc(data2_size))
    238  1.1  christos             || !TEST_ptr(bld = OSSL_PARAM_BLD_new()))
    239  1.1  christos         goto err;
    240  1.1  christos 
    241  1.1  christos     for (j = 0; j < data1_num; j++)
    242  1.1  christos         data1[j] = -16 * j;
    243  1.1  christos     for (j = 0; j < data2_num; j++)
    244  1.1  christos         data2[j] = 2 * j;
    245  1.1  christos 
    246  1.1  christos     if (!TEST_true(OSSL_PARAM_BLD_push_uint(bld, "i", 6))
    247  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_ulong(bld, "l", 42))
    248  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_uint32(bld, "i32", 1532))
    249  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_uint64(bld, "i64", 9999999))
    250  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_size_t(bld, "st", 65537))
    251  1.1  christos         || !TEST_ptr(zbn = BN_secure_new())
    252  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_BN(bld, "zeronumber", zbn))
    253  1.1  christos         || !TEST_ptr(bn = BN_secure_new())
    254  1.1  christos         || !TEST_true(BN_set_word(bn, 1729))
    255  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_BN(bld, "bignumber", bn))
    256  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_octet_string(bld, "oct_s", data1,
    257  1.1  christos                                                        data1_size))
    258  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_octet_ptr(bld, "oct_p", data2,
    259  1.1  christos                                                     data2_size))
    260  1.1  christos         || !TEST_ptr(params_blt = OSSL_PARAM_BLD_to_param(bld)))
    261  1.1  christos         goto err;
    262  1.1  christos     switch(tstid) {
    263  1.1  christos     case 0:
    264  1.1  christos         params = params_blt;
    265  1.1  christos         break;
    266  1.1  christos     case 1:
    267  1.1  christos         params = OSSL_PARAM_merge(params_blt, params_empty);
    268  1.1  christos         break;
    269  1.1  christos     case 2:
    270  1.1  christos         params = OSSL_PARAM_dup(params_blt);
    271  1.1  christos         break;
    272  1.1  christos     case 3:
    273  1.1  christos         p1 = OSSL_PARAM_merge(params_blt, params_empty);
    274  1.1  christos         params = OSSL_PARAM_dup(p1);
    275  1.1  christos         break;
    276  1.1  christos     default:
    277  1.1  christos         p1 = OSSL_PARAM_dup(params_blt);
    278  1.1  christos         params = OSSL_PARAM_merge(p1, params_empty);
    279  1.1  christos         break;
    280  1.1  christos     }
    281  1.1  christos     /* Check unsigned int */
    282  1.1  christos     if (!TEST_ptr(p = OSSL_PARAM_locate(params, "i"))
    283  1.1  christos         || !TEST_false(CRYPTO_secure_allocated(p->data))
    284  1.1  christos         || !TEST_true(OSSL_PARAM_get_uint(p, &i))
    285  1.1  christos         || !TEST_str_eq(p->key, "i")
    286  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    287  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(int))
    288  1.1  christos         || !TEST_uint_eq(i, 6)
    289  1.1  christos         /* Check unsigned int32 */
    290  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "i32"))
    291  1.1  christos         || !TEST_false(CRYPTO_secure_allocated(p->data))
    292  1.1  christos         || !TEST_true(OSSL_PARAM_get_uint32(p, &i32))
    293  1.1  christos         || !TEST_str_eq(p->key, "i32")
    294  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    295  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(int32_t))
    296  1.1  christos         || !TEST_uint_eq((unsigned int)i32, 1532)
    297  1.1  christos         /* Check unsigned int64 */
    298  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "i64"))
    299  1.1  christos         || !TEST_false(CRYPTO_secure_allocated(p->data))
    300  1.1  christos         || !TEST_str_eq(p->key, "i64")
    301  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    302  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(int64_t))
    303  1.1  christos         || !TEST_true(OSSL_PARAM_get_uint64(p, &i64))
    304  1.1  christos         || !TEST_ulong_eq((unsigned long)i64, 9999999)
    305  1.1  christos         /* Check unsigned long int */
    306  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "l"))
    307  1.1  christos         || !TEST_false(CRYPTO_secure_allocated(p->data))
    308  1.1  christos         || !TEST_str_eq(p->key, "l")
    309  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    310  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(unsigned long int))
    311  1.1  christos         || !TEST_true(OSSL_PARAM_get_ulong(p, &l))
    312  1.1  christos         || !TEST_ulong_eq(l, 42)
    313  1.1  christos         /* Check size_t */
    314  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "st"))
    315  1.1  christos         || !TEST_false(CRYPTO_secure_allocated(p->data))
    316  1.1  christos         || !TEST_str_eq(p->key, "st")
    317  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    318  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(size_t))
    319  1.1  christos         || !TEST_true(OSSL_PARAM_get_size_t(p, &st))
    320  1.1  christos         || !TEST_size_t_eq(st, 65537)
    321  1.1  christos         /* Check octet string */
    322  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "oct_s"))
    323  1.1  christos         || !TEST_true(CRYPTO_secure_allocated(p->data))
    324  1.1  christos         || !TEST_str_eq(p->key, "oct_s")
    325  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_OCTET_STRING)
    326  1.1  christos         || !TEST_mem_eq(p->data, p->data_size, data1, data1_size)
    327  1.1  christos         /* Check octet pointer */
    328  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "oct_p"))
    329  1.1  christos         || !TEST_false(CRYPTO_secure_allocated(p->data))
    330  1.1  christos         || !TEST_true(CRYPTO_secure_allocated(*(void **)p->data))
    331  1.1  christos         || !TEST_str_eq(p->key, "oct_p")
    332  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_OCTET_PTR)
    333  1.1  christos         || !TEST_mem_eq(*(void **)p->data, p->data_size, data2, data2_size)
    334  1.1  christos         /* Check BN (zero BN becomes unsigned integer) */
    335  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "zeronumber"))
    336  1.1  christos         || !TEST_true(CRYPTO_secure_allocated(p->data))
    337  1.1  christos         || !TEST_str_eq(p->key, "zeronumber")
    338  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    339  1.1  christos         || !TEST_true(OSSL_PARAM_get_BN(p, &zbn_res))
    340  1.1  christos         || !TEST_int_eq(BN_get_flags(zbn, BN_FLG_SECURE), BN_FLG_SECURE)
    341  1.1  christos         || !TEST_BN_eq(zbn_res, zbn)
    342  1.1  christos         /* Check BN */
    343  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "bignumber"))
    344  1.1  christos         || !TEST_true(CRYPTO_secure_allocated(p->data))
    345  1.1  christos         || !TEST_str_eq(p->key, "bignumber")
    346  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    347  1.1  christos         || !TEST_true(OSSL_PARAM_get_BN(p, &bn_res))
    348  1.1  christos         || !TEST_int_eq(BN_get_flags(bn, BN_FLG_SECURE), BN_FLG_SECURE)
    349  1.1  christos         || !TEST_int_eq(BN_cmp(bn_res, bn), 0))
    350  1.1  christos         goto err;
    351  1.1  christos     res = 1;
    352  1.1  christos err:
    353  1.1  christos     OSSL_PARAM_free(p1);
    354  1.1  christos     if (params != params_blt)
    355  1.1  christos         OSSL_PARAM_free(params);
    356  1.1  christos     OSSL_PARAM_free(params_blt);
    357  1.1  christos     OSSL_PARAM_BLD_free(bld);
    358  1.1  christos     OPENSSL_secure_free(data1);
    359  1.1  christos     OPENSSL_secure_free(data2);
    360  1.1  christos     BN_free(zbn);
    361  1.1  christos     BN_free(zbn_res);
    362  1.1  christos     BN_free(bn);
    363  1.1  christos     BN_free(bn_res);
    364  1.1  christos     return res;
    365  1.1  christos }
    366  1.1  christos 
    367  1.1  christos static int builder_limit_test(void)
    368  1.1  christos {
    369  1.1  christos     const int n = 100;
    370  1.1  christos     char names[100][3];
    371  1.1  christos     OSSL_PARAM_BLD *bld = OSSL_PARAM_BLD_new();
    372  1.1  christos     OSSL_PARAM *params = NULL;
    373  1.1  christos     int i, res = 0;
    374  1.1  christos 
    375  1.1  christos     if (!TEST_ptr(bld))
    376  1.1  christos         goto err;
    377  1.1  christos 
    378  1.1  christos     for (i = 0; i < n; i++) {
    379  1.1  christos         names[i][0] = 'A' + (i / 26) - 1;
    380  1.1  christos         names[i][1] = 'a' + (i % 26) - 1;
    381  1.1  christos         names[i][2] = '\0';
    382  1.1  christos         if (!TEST_true(OSSL_PARAM_BLD_push_int(bld, names[i], 3 * i + 1)))
    383  1.1  christos             goto err;
    384  1.1  christos     }
    385  1.1  christos     if (!TEST_ptr(params = OSSL_PARAM_BLD_to_param(bld)))
    386  1.1  christos         goto err;
    387  1.1  christos     /* Count the elements in the params arrary, expecting n */
    388  1.1  christos     for (i = 0; params[i].key != NULL; i++);
    389  1.1  christos     if (!TEST_int_eq(i, n))
    390  1.1  christos         goto err;
    391  1.1  christos 
    392  1.1  christos     /* Verify that the build, cleared the builder structure */
    393  1.1  christos     OSSL_PARAM_free(params);
    394  1.1  christos     params = NULL;
    395  1.1  christos 
    396  1.1  christos     if (!TEST_true(OSSL_PARAM_BLD_push_int(bld, "g", 2))
    397  1.1  christos         || !TEST_ptr(params = OSSL_PARAM_BLD_to_param(bld)))
    398  1.1  christos         goto err;
    399  1.1  christos     /* Count the elements in the params arrary, expecting 1 */
    400  1.1  christos     for (i = 0; params[i].key != NULL; i++);
    401  1.1  christos     if (!TEST_int_eq(i, 1))
    402  1.1  christos         goto err;
    403  1.1  christos     res = 1;
    404  1.1  christos err:
    405  1.1  christos     OSSL_PARAM_free(params);
    406  1.1  christos     OSSL_PARAM_BLD_free(bld);
    407  1.1  christos     return res;
    408  1.1  christos }
    409  1.1  christos 
    410  1.1  christos static int builder_merge_test(void)
    411  1.1  christos {
    412  1.1  christos     static int data1[] = { 2, 3, 5, 7, 11, 15, 17 };
    413  1.1  christos     static unsigned char data2[] = { 2, 4, 6, 8, 10 };
    414  1.1  christos     OSSL_PARAM_BLD *bld = OSSL_PARAM_BLD_new();
    415  1.1  christos     OSSL_PARAM_BLD *bld2 = OSSL_PARAM_BLD_new();
    416  1.1  christos     OSSL_PARAM *params = NULL, *params_blt = NULL, *params2_blt = NULL, *p;
    417  1.1  christos     unsigned int i;
    418  1.1  christos     unsigned long int l;
    419  1.1  christos     uint32_t i32;
    420  1.1  christos     uint64_t i64;
    421  1.1  christos     size_t st;
    422  1.1  christos     BIGNUM *bn_priv = NULL, *bn_priv_res = NULL;
    423  1.1  christos     BIGNUM *bn_pub = NULL, *bn_pub_res = NULL;
    424  1.1  christos     int res = 0;
    425  1.1  christos 
    426  1.1  christos     if (!TEST_ptr(bld)
    427  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_uint(bld, "i", 6))
    428  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_ulong(bld, "l", 42))
    429  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_uint32(bld, "i32", 1532))
    430  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_uint64(bld, "i64", 9999999))
    431  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_size_t(bld, "st", 65537))
    432  1.1  christos         || !TEST_ptr(bn_priv = BN_secure_new())
    433  1.1  christos         || !TEST_true(BN_set_word(bn_priv, 1729))
    434  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_BN(bld, "bignumber_priv", bn_priv))
    435  1.1  christos         || !TEST_ptr(params_blt = OSSL_PARAM_BLD_to_param(bld)))
    436  1.1  christos         goto err;
    437  1.1  christos 
    438  1.1  christos     if (!TEST_ptr(bld2)
    439  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_octet_string(bld2, "oct_s", data1,
    440  1.1  christos                                                        sizeof(data1)))
    441  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_octet_ptr(bld2, "oct_p", data2,
    442  1.1  christos                                                     sizeof(data2)))
    443  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_uint32(bld2, "i32", 99))
    444  1.1  christos         || !TEST_ptr(bn_pub = BN_new())
    445  1.1  christos         || !TEST_true(BN_set_word(bn_pub, 0x42))
    446  1.1  christos         || !TEST_true(OSSL_PARAM_BLD_push_BN(bld2, "bignumber_pub", bn_pub))
    447  1.1  christos         || !TEST_ptr(params2_blt = OSSL_PARAM_BLD_to_param(bld2)))
    448  1.1  christos         goto err;
    449  1.1  christos 
    450  1.1  christos     if (!TEST_ptr(params = OSSL_PARAM_merge(params_blt, params2_blt)))
    451  1.1  christos         goto err;
    452  1.1  christos 
    453  1.1  christos     if (!TEST_ptr(p = OSSL_PARAM_locate(params, "i"))
    454  1.1  christos         || !TEST_true(OSSL_PARAM_get_uint(p, &i))
    455  1.1  christos         || !TEST_str_eq(p->key, "i")
    456  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    457  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(int))
    458  1.1  christos         || !TEST_uint_eq(i, 6)
    459  1.1  christos         /* Check unsigned int32 */
    460  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "i32"))
    461  1.1  christos         || !TEST_true(OSSL_PARAM_get_uint32(p, &i32))
    462  1.1  christos         || !TEST_str_eq(p->key, "i32")
    463  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    464  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(int32_t))
    465  1.1  christos         || !TEST_uint_eq((unsigned int)i32, 99)
    466  1.1  christos         /* Check unsigned int64 */
    467  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "i64"))
    468  1.1  christos         || !TEST_str_eq(p->key, "i64")
    469  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    470  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(int64_t))
    471  1.1  christos         || !TEST_true(OSSL_PARAM_get_uint64(p, &i64))
    472  1.1  christos         || !TEST_ulong_eq((unsigned long)i64, 9999999)
    473  1.1  christos         /* Check unsigned long int */
    474  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "l"))
    475  1.1  christos         || !TEST_str_eq(p->key, "l")
    476  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    477  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(unsigned long int))
    478  1.1  christos         || !TEST_true(OSSL_PARAM_get_ulong(p, &l))
    479  1.1  christos         || !TEST_ulong_eq(l, 42)
    480  1.1  christos         /* Check size_t */
    481  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "st"))
    482  1.1  christos         || !TEST_str_eq(p->key, "st")
    483  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    484  1.1  christos         || !TEST_size_t_eq(p->data_size, sizeof(size_t))
    485  1.1  christos         || !TEST_true(OSSL_PARAM_get_size_t(p, &st))
    486  1.1  christos         || !TEST_size_t_eq(st, 65537)
    487  1.1  christos         /* Check octet string */
    488  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "oct_s"))
    489  1.1  christos         || !TEST_str_eq(p->key, "oct_s")
    490  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_OCTET_STRING)
    491  1.1  christos         || !TEST_mem_eq(p->data, p->data_size, data1, sizeof(data1))
    492  1.1  christos         /* Check octet pointer */
    493  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "oct_p"))
    494  1.1  christos         || !TEST_str_eq(p->key, "oct_p")
    495  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_OCTET_PTR)
    496  1.1  christos         || !TEST_mem_eq(*(void **)p->data, p->data_size, data2, sizeof(data2))
    497  1.1  christos         /* Check BN */
    498  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "bignumber_pub"))
    499  1.1  christos         || !TEST_str_eq(p->key, "bignumber_pub")
    500  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    501  1.1  christos         || !TEST_true(OSSL_PARAM_get_BN(p, &bn_pub_res))
    502  1.1  christos         || !TEST_int_eq(BN_cmp(bn_pub_res, bn_pub), 0)
    503  1.1  christos         || !TEST_ptr(p = OSSL_PARAM_locate(params, "bignumber_priv"))
    504  1.1  christos         || !TEST_str_eq(p->key, "bignumber_priv")
    505  1.1  christos         || !TEST_uint_eq(p->data_type, OSSL_PARAM_UNSIGNED_INTEGER)
    506  1.1  christos         || !TEST_true(OSSL_PARAM_get_BN(p, &bn_priv_res))
    507  1.1  christos         || !TEST_int_eq(BN_cmp(bn_priv_res, bn_priv), 0))
    508  1.1  christos         goto err;
    509  1.1  christos     res = 1;
    510  1.1  christos err:
    511  1.1  christos     OSSL_PARAM_free(params);
    512  1.1  christos     OSSL_PARAM_free(params_blt);
    513  1.1  christos     OSSL_PARAM_free(params2_blt);
    514  1.1  christos     OSSL_PARAM_BLD_free(bld);
    515  1.1  christos     OSSL_PARAM_BLD_free(bld2);
    516  1.1  christos     BN_free(bn_priv);
    517  1.1  christos     BN_free(bn_priv_res);
    518  1.1  christos     BN_free(bn_pub);
    519  1.1  christos     BN_free(bn_pub_res);
    520  1.1  christos     return res;
    521  1.1  christos }
    522  1.1  christos 
    523  1.1  christos int setup_tests(void)
    524  1.1  christos {
    525  1.1  christos     ADD_TEST(template_public_single_zero_test);
    526  1.1  christos     ADD_ALL_TESTS(template_public_test, 5);
    527  1.1  christos     /* Only run the secure memory testing if we have secure memory available */
    528  1.1  christos     if (CRYPTO_secure_malloc_init(1<<16, 16)) {
    529  1.1  christos         ADD_TEST(template_private_single_zero_test);
    530  1.1  christos         ADD_ALL_TESTS(template_private_test, 5);
    531  1.1  christos     }
    532  1.1  christos     ADD_TEST(builder_limit_test);
    533  1.1  christos     ADD_TEST(builder_merge_test);
    534  1.1  christos     return 1;
    535  1.1  christos }
    536