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