Fix a bunch of gcc warnings in packettest.c
[openssl.git] / test / ssl_test_ctx.c
1 /*
2  * Copyright 2016-2018 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 #include <string.h>
11
12 #include <openssl/e_os2.h>
13 #include <openssl/crypto.h>
14
15 #include "internal/nelem.h"
16 #include "ssl_test_ctx.h"
17 #include "testutil.h"
18
19 #ifdef OPENSSL_SYS_WINDOWS
20 # define strcasecmp _stricmp
21 #endif
22
23 static const int default_app_data_size = 256;
24 /* Default set to be as small as possible to exercise fragmentation. */
25 static const int default_max_fragment_size = 512;
26
27 static int parse_boolean(const char *value, int *result)
28 {
29     if (strcasecmp(value, "Yes") == 0) {
30         *result = 1;
31         return 1;
32     }
33     else if (strcasecmp(value, "No") == 0) {
34         *result = 0;
35         return 1;
36     }
37     TEST_error("parse_boolean given: '%s'", value);
38     return 0;
39 }
40
41 #define IMPLEMENT_SSL_TEST_BOOL_OPTION(struct_type, name, field)        \
42     static int parse_##name##_##field(struct_type *ctx, const char *value) \
43     {                                                                   \
44         return parse_boolean(value, &ctx->field);                       \
45     }
46
47 #define IMPLEMENT_SSL_TEST_STRING_OPTION(struct_type, name, field)      \
48     static int parse_##name##_##field(struct_type *ctx, const char *value) \
49     {                                                                   \
50         OPENSSL_free(ctx->field);                                       \
51         ctx->field = OPENSSL_strdup(value);                             \
52         return TEST_ptr(ctx->field);                                    \
53     }
54
55 #define IMPLEMENT_SSL_TEST_INT_OPTION(struct_type, name, field)        \
56     static int parse_##name##_##field(struct_type *ctx, const char *value) \
57     {                                                                   \
58         ctx->field = atoi(value);                                       \
59         return 1;                                                       \
60     }
61
62 /* True enums and other test configuration values that map to an int. */
63 typedef struct {
64     const char *name;
65     int value;
66 } test_enum;
67
68
69 __owur static int parse_enum(const test_enum *enums, size_t num_enums,
70                              int *value, const char *name)
71 {
72     size_t i;
73     for (i = 0; i < num_enums; i++) {
74         if (strcmp(enums[i].name, name) == 0) {
75             *value = enums[i].value;
76             return 1;
77         }
78     }
79     return 0;
80 }
81
82 static const char *enum_name(const test_enum *enums, size_t num_enums,
83                              int value)
84 {
85     size_t i;
86     for (i = 0; i < num_enums; i++) {
87         if (enums[i].value == value) {
88             return enums[i].name;
89         }
90     }
91     return "InvalidValue";
92 }
93
94
95 /* ExpectedResult */
96
97 static const test_enum ssl_test_results[] = {
98     {"Success", SSL_TEST_SUCCESS},
99     {"ServerFail", SSL_TEST_SERVER_FAIL},
100     {"ClientFail", SSL_TEST_CLIENT_FAIL},
101     {"InternalError", SSL_TEST_INTERNAL_ERROR},
102 };
103
104 __owur static int parse_expected_result(SSL_TEST_CTX *test_ctx, const char *value)
105 {
106     int ret_value;
107     if (!parse_enum(ssl_test_results, OSSL_NELEM(ssl_test_results),
108                     &ret_value, value)) {
109         return 0;
110     }
111     test_ctx->expected_result = ret_value;
112     return 1;
113 }
114
115 const char *ssl_test_result_name(ssl_test_result_t result)
116 {
117     return enum_name(ssl_test_results, OSSL_NELEM(ssl_test_results), result);
118 }
119
120 /* ExpectedClientAlert / ExpectedServerAlert */
121
122 static const test_enum ssl_alerts[] = {
123     {"UnknownCA", SSL_AD_UNKNOWN_CA},
124     {"HandshakeFailure", SSL_AD_HANDSHAKE_FAILURE},
125     {"UnrecognizedName", SSL_AD_UNRECOGNIZED_NAME},
126     {"BadCertificate", SSL_AD_BAD_CERTIFICATE},
127     {"NoApplicationProtocol", SSL_AD_NO_APPLICATION_PROTOCOL},
128 };
129
130 __owur static int parse_alert(int *alert, const char *value)
131 {
132     return parse_enum(ssl_alerts, OSSL_NELEM(ssl_alerts), alert, value);
133 }
134
135 __owur static int parse_client_alert(SSL_TEST_CTX *test_ctx, const char *value)
136 {
137     return parse_alert(&test_ctx->expected_client_alert, value);
138 }
139
140 __owur static int parse_server_alert(SSL_TEST_CTX *test_ctx, const char *value)
141 {
142     return parse_alert(&test_ctx->expected_server_alert, value);
143 }
144
145 const char *ssl_alert_name(int alert)
146 {
147     return enum_name(ssl_alerts, OSSL_NELEM(ssl_alerts), alert);
148 }
149
150 /* ExpectedProtocol */
151
152 static const test_enum ssl_protocols[] = {
153      {"TLSv1.3", TLS1_3_VERSION},
154      {"TLSv1.2", TLS1_2_VERSION},
155      {"TLSv1.1", TLS1_1_VERSION},
156      {"TLSv1", TLS1_VERSION},
157      {"SSLv3", SSL3_VERSION},
158      {"DTLSv1", DTLS1_VERSION},
159      {"DTLSv1.2", DTLS1_2_VERSION},
160 };
161
162 __owur static int parse_protocol(SSL_TEST_CTX *test_ctx, const char *value)
163 {
164     return parse_enum(ssl_protocols, OSSL_NELEM(ssl_protocols),
165                       &test_ctx->expected_protocol, value);
166 }
167
168 const char *ssl_protocol_name(int protocol)
169 {
170     return enum_name(ssl_protocols, OSSL_NELEM(ssl_protocols), protocol);
171 }
172
173 /* VerifyCallback */
174
175 static const test_enum ssl_verify_callbacks[] = {
176     {"None", SSL_TEST_VERIFY_NONE},
177     {"AcceptAll", SSL_TEST_VERIFY_ACCEPT_ALL},
178     {"RejectAll", SSL_TEST_VERIFY_REJECT_ALL},
179 };
180
181 __owur static int parse_client_verify_callback(SSL_TEST_CLIENT_CONF *client_conf,
182                                                const char *value)
183 {
184     int ret_value;
185     if (!parse_enum(ssl_verify_callbacks, OSSL_NELEM(ssl_verify_callbacks),
186                     &ret_value, value)) {
187         return 0;
188     }
189     client_conf->verify_callback = ret_value;
190     return 1;
191 }
192
193 const char *ssl_verify_callback_name(ssl_verify_callback_t callback)
194 {
195     return enum_name(ssl_verify_callbacks, OSSL_NELEM(ssl_verify_callbacks),
196                      callback);
197 }
198
199 /* ServerName */
200
201 static const test_enum ssl_servername[] = {
202     {"None", SSL_TEST_SERVERNAME_NONE},
203     {"server1", SSL_TEST_SERVERNAME_SERVER1},
204     {"server2", SSL_TEST_SERVERNAME_SERVER2},
205     {"invalid", SSL_TEST_SERVERNAME_INVALID},
206 };
207
208 __owur static int parse_servername(SSL_TEST_CLIENT_CONF *client_conf,
209                                    const char *value)
210 {
211     int ret_value;
212     if (!parse_enum(ssl_servername, OSSL_NELEM(ssl_servername),
213                     &ret_value, value)) {
214         return 0;
215     }
216     client_conf->servername = ret_value;
217     return 1;
218 }
219
220 __owur static int parse_expected_servername(SSL_TEST_CTX *test_ctx,
221                                             const char *value)
222 {
223     int ret_value;
224     if (!parse_enum(ssl_servername, OSSL_NELEM(ssl_servername),
225                     &ret_value, value)) {
226         return 0;
227     }
228     test_ctx->expected_servername = ret_value;
229     return 1;
230 }
231
232 const char *ssl_servername_name(ssl_servername_t server)
233 {
234     return enum_name(ssl_servername, OSSL_NELEM(ssl_servername),
235                      server);
236 }
237
238 /* ServerNameCallback */
239
240 static const test_enum ssl_servername_callbacks[] = {
241     {"None", SSL_TEST_SERVERNAME_CB_NONE},
242     {"IgnoreMismatch", SSL_TEST_SERVERNAME_IGNORE_MISMATCH},
243     {"RejectMismatch", SSL_TEST_SERVERNAME_REJECT_MISMATCH},
244     {"ClientHelloIgnoreMismatch",
245      SSL_TEST_SERVERNAME_CLIENT_HELLO_IGNORE_MISMATCH},
246     {"ClientHelloRejectMismatch",
247      SSL_TEST_SERVERNAME_CLIENT_HELLO_REJECT_MISMATCH},
248     {"ClientHelloNoV12", SSL_TEST_SERVERNAME_CLIENT_HELLO_NO_V12},
249 };
250
251 __owur static int parse_servername_callback(SSL_TEST_SERVER_CONF *server_conf,
252                                             const char *value)
253 {
254     int ret_value;
255     if (!parse_enum(ssl_servername_callbacks,
256                     OSSL_NELEM(ssl_servername_callbacks), &ret_value, value)) {
257         return 0;
258     }
259     server_conf->servername_callback = ret_value;
260     return 1;
261 }
262
263 const char *ssl_servername_callback_name(ssl_servername_callback_t callback)
264 {
265     return enum_name(ssl_servername_callbacks,
266                      OSSL_NELEM(ssl_servername_callbacks), callback);
267 }
268
269 /* SessionTicketExpected */
270
271 static const test_enum ssl_session_ticket[] = {
272     {"Ignore", SSL_TEST_SESSION_TICKET_IGNORE},
273     {"Yes", SSL_TEST_SESSION_TICKET_YES},
274     {"No", SSL_TEST_SESSION_TICKET_NO},
275 };
276
277 __owur static int parse_session_ticket(SSL_TEST_CTX *test_ctx, const char *value)
278 {
279     int ret_value;
280     if (!parse_enum(ssl_session_ticket, OSSL_NELEM(ssl_session_ticket),
281                     &ret_value, value)) {
282         return 0;
283     }
284     test_ctx->session_ticket_expected = ret_value;
285     return 1;
286 }
287
288 const char *ssl_session_ticket_name(ssl_session_ticket_t server)
289 {
290     return enum_name(ssl_session_ticket,
291                      OSSL_NELEM(ssl_session_ticket),
292                      server);
293 }
294
295 /* CompressionExpected */
296
297 IMPLEMENT_SSL_TEST_BOOL_OPTION(SSL_TEST_CTX, test, compression_expected)
298
299 /* SessionIdExpected */
300
301 static const test_enum ssl_session_id[] = {
302     {"Ignore", SSL_TEST_SESSION_ID_IGNORE},
303     {"Yes", SSL_TEST_SESSION_ID_YES},
304     {"No", SSL_TEST_SESSION_ID_NO},
305 };
306
307 __owur static int parse_session_id(SSL_TEST_CTX *test_ctx, const char *value)
308 {
309     int ret_value;
310     if (!parse_enum(ssl_session_id, OSSL_NELEM(ssl_session_id),
311                     &ret_value, value)) {
312         return 0;
313     }
314     test_ctx->session_id_expected = ret_value;
315     return 1;
316 }
317
318 const char *ssl_session_id_name(ssl_session_id_t server)
319 {
320     return enum_name(ssl_session_id,
321                      OSSL_NELEM(ssl_session_id),
322                      server);
323 }
324
325 /* Method */
326
327 static const test_enum ssl_test_methods[] = {
328     {"TLS", SSL_TEST_METHOD_TLS},
329     {"DTLS", SSL_TEST_METHOD_DTLS},
330 };
331
332 __owur static int parse_test_method(SSL_TEST_CTX *test_ctx, const char *value)
333 {
334     int ret_value;
335     if (!parse_enum(ssl_test_methods, OSSL_NELEM(ssl_test_methods),
336                     &ret_value, value)) {
337         return 0;
338     }
339     test_ctx->method = ret_value;
340     return 1;
341 }
342
343 const char *ssl_test_method_name(ssl_test_method_t method)
344 {
345     return enum_name(ssl_test_methods, OSSL_NELEM(ssl_test_methods), method);
346 }
347
348 /* NPN and ALPN options */
349
350 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_CLIENT_CONF, client, npn_protocols)
351 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_SERVER_CONF, server, npn_protocols)
352 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_CTX, test, expected_npn_protocol)
353 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_CLIENT_CONF, client, alpn_protocols)
354 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_SERVER_CONF, server, alpn_protocols)
355 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_CTX, test, expected_alpn_protocol)
356
357 /* SRP options */
358 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_CLIENT_CONF, client, srp_user)
359 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_SERVER_CONF, server, srp_user)
360 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_CLIENT_CONF, client, srp_password)
361 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_SERVER_CONF, server, srp_password)
362
363 /* Handshake mode */
364
365 static const test_enum ssl_handshake_modes[] = {
366     {"Simple", SSL_TEST_HANDSHAKE_SIMPLE},
367     {"Resume", SSL_TEST_HANDSHAKE_RESUME},
368     {"RenegotiateServer", SSL_TEST_HANDSHAKE_RENEG_SERVER},
369     {"RenegotiateClient", SSL_TEST_HANDSHAKE_RENEG_CLIENT},
370     {"KeyUpdateServer", SSL_TEST_HANDSHAKE_KEY_UPDATE_SERVER},
371     {"KeyUpdateClient", SSL_TEST_HANDSHAKE_KEY_UPDATE_CLIENT},
372     {"PostHandshakeAuth", SSL_TEST_HANDSHAKE_POST_HANDSHAKE_AUTH},
373 };
374
375 __owur static int parse_handshake_mode(SSL_TEST_CTX *test_ctx, const char *value)
376 {
377     int ret_value;
378     if (!parse_enum(ssl_handshake_modes, OSSL_NELEM(ssl_handshake_modes),
379                     &ret_value, value)) {
380         return 0;
381     }
382     test_ctx->handshake_mode = ret_value;
383     return 1;
384 }
385
386 const char *ssl_handshake_mode_name(ssl_handshake_mode_t mode)
387 {
388     return enum_name(ssl_handshake_modes, OSSL_NELEM(ssl_handshake_modes),
389                      mode);
390 }
391
392 /* Renegotiation Ciphersuites */
393
394 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_CLIENT_CONF, client, reneg_ciphers)
395
396 /* KeyUpdateType */
397
398 static const test_enum ssl_key_update_types[] = {
399     {"KeyUpdateRequested", SSL_KEY_UPDATE_REQUESTED},
400     {"KeyUpdateNotRequested", SSL_KEY_UPDATE_NOT_REQUESTED},
401 };
402
403 __owur static int parse_key_update_type(SSL_TEST_CTX *test_ctx, const char *value)
404 {
405     int ret_value;
406     if (!parse_enum(ssl_key_update_types, OSSL_NELEM(ssl_key_update_types),
407                     &ret_value, value)) {
408         return 0;
409     }
410     test_ctx->key_update_type = ret_value;
411     return 1;
412 }
413
414 /* CT Validation */
415
416 static const test_enum ssl_ct_validation_modes[] = {
417     {"None", SSL_TEST_CT_VALIDATION_NONE},
418     {"Permissive", SSL_TEST_CT_VALIDATION_PERMISSIVE},
419     {"Strict", SSL_TEST_CT_VALIDATION_STRICT},
420 };
421
422 __owur static int parse_ct_validation(SSL_TEST_CLIENT_CONF *client_conf,
423                                       const char *value)
424 {
425     int ret_value;
426     if (!parse_enum(ssl_ct_validation_modes, OSSL_NELEM(ssl_ct_validation_modes),
427                     &ret_value, value)) {
428         return 0;
429     }
430     client_conf->ct_validation = ret_value;
431     return 1;
432 }
433
434 const char *ssl_ct_validation_name(ssl_ct_validation_t mode)
435 {
436     return enum_name(ssl_ct_validation_modes, OSSL_NELEM(ssl_ct_validation_modes),
437                      mode);
438 }
439
440 IMPLEMENT_SSL_TEST_BOOL_OPTION(SSL_TEST_CTX, test, resumption_expected)
441 IMPLEMENT_SSL_TEST_BOOL_OPTION(SSL_TEST_SERVER_CONF, server, broken_session_ticket)
442 IMPLEMENT_SSL_TEST_BOOL_OPTION(SSL_TEST_CTX, test, use_sctp)
443
444 /* CertStatus */
445
446 static const test_enum ssl_certstatus[] = {
447     {"None", SSL_TEST_CERT_STATUS_NONE},
448     {"GoodResponse", SSL_TEST_CERT_STATUS_GOOD_RESPONSE},
449     {"BadResponse", SSL_TEST_CERT_STATUS_BAD_RESPONSE}
450 };
451
452 __owur static int parse_certstatus(SSL_TEST_SERVER_CONF *server_conf,
453                                             const char *value)
454 {
455     int ret_value;
456     if (!parse_enum(ssl_certstatus, OSSL_NELEM(ssl_certstatus), &ret_value,
457                     value)) {
458         return 0;
459     }
460     server_conf->cert_status = ret_value;
461     return 1;
462 }
463
464 const char *ssl_certstatus_name(ssl_cert_status_t cert_status)
465 {
466     return enum_name(ssl_certstatus,
467                      OSSL_NELEM(ssl_certstatus), cert_status);
468 }
469
470 /* ApplicationData */
471
472 IMPLEMENT_SSL_TEST_INT_OPTION(SSL_TEST_CTX, test, app_data_size)
473
474
475 /* MaxFragmentSize */
476
477 IMPLEMENT_SSL_TEST_INT_OPTION(SSL_TEST_CTX, test, max_fragment_size)
478
479 /* Maximum-Fragment-Length TLS extension mode */
480 static const test_enum ssl_max_fragment_len_mode[] = {
481     {"None", TLSEXT_max_fragment_length_DISABLED},
482     { "512", TLSEXT_max_fragment_length_512},
483     {"1024", TLSEXT_max_fragment_length_1024},
484     {"2048", TLSEXT_max_fragment_length_2048},
485     {"4096", TLSEXT_max_fragment_length_4096}
486 };
487
488 __owur static int parse_max_fragment_len_mode(SSL_TEST_CLIENT_CONF *client_conf,
489                                               const char *value)
490 {
491     int ret_value;
492
493     if (!parse_enum(ssl_max_fragment_len_mode,
494                     OSSL_NELEM(ssl_max_fragment_len_mode), &ret_value, value)) {
495         return 0;
496     }
497     client_conf->max_fragment_len_mode = ret_value;
498     return 1;
499 }
500
501 const char *ssl_max_fragment_len_name(int MFL_mode)
502 {
503     return enum_name(ssl_max_fragment_len_mode,
504                      OSSL_NELEM(ssl_max_fragment_len_mode), MFL_mode);
505 }
506
507
508 /* Expected key and signature types */
509
510 __owur static int parse_expected_key_type(int *ptype, const char *value)
511 {
512     int nid;
513     const EVP_PKEY_ASN1_METHOD *ameth;
514
515     if (value == NULL)
516         return 0;
517     ameth = EVP_PKEY_asn1_find_str(NULL, value, -1);
518     if (ameth != NULL)
519         EVP_PKEY_asn1_get0_info(&nid, NULL, NULL, NULL, NULL, ameth);
520     else
521         nid = OBJ_sn2nid(value);
522     if (nid == NID_undef)
523         nid = OBJ_ln2nid(value);
524 #ifndef OPENSSL_NO_EC
525     if (nid == NID_undef)
526         nid = EC_curve_nist2nid(value);
527 #endif
528     if (nid == NID_undef)
529         return 0;
530     *ptype = nid;
531     return 1;
532 }
533
534 __owur static int parse_expected_tmp_key_type(SSL_TEST_CTX *test_ctx,
535                                               const char *value)
536 {
537     return parse_expected_key_type(&test_ctx->expected_tmp_key_type, value);
538 }
539
540 __owur static int parse_expected_server_cert_type(SSL_TEST_CTX *test_ctx,
541                                                   const char *value)
542 {
543     return parse_expected_key_type(&test_ctx->expected_server_cert_type,
544                                    value);
545 }
546
547 __owur static int parse_expected_server_sign_type(SSL_TEST_CTX *test_ctx,
548                                                  const char *value)
549 {
550     return parse_expected_key_type(&test_ctx->expected_server_sign_type,
551                                    value);
552 }
553
554 __owur static int parse_expected_client_cert_type(SSL_TEST_CTX *test_ctx,
555                                                   const char *value)
556 {
557     return parse_expected_key_type(&test_ctx->expected_client_cert_type,
558                                    value);
559 }
560
561 __owur static int parse_expected_client_sign_type(SSL_TEST_CTX *test_ctx,
562                                                  const char *value)
563 {
564     return parse_expected_key_type(&test_ctx->expected_client_sign_type,
565                                    value);
566 }
567
568
569 /* Expected signing hash */
570
571 __owur static int parse_expected_sign_hash(int *ptype, const char *value)
572 {
573     int nid;
574
575     if (value == NULL)
576         return 0;
577     nid = OBJ_sn2nid(value);
578     if (nid == NID_undef)
579         nid = OBJ_ln2nid(value);
580     if (nid == NID_undef)
581         return 0;
582     *ptype = nid;
583     return 1;
584 }
585
586 __owur static int parse_expected_server_sign_hash(SSL_TEST_CTX *test_ctx,
587                                                   const char *value)
588 {
589     return parse_expected_sign_hash(&test_ctx->expected_server_sign_hash,
590                                     value);
591 }
592
593 __owur static int parse_expected_client_sign_hash(SSL_TEST_CTX *test_ctx,
594                                                   const char *value)
595 {
596     return parse_expected_sign_hash(&test_ctx->expected_client_sign_hash,
597                                     value);
598 }
599
600 __owur static int parse_expected_ca_names(STACK_OF(X509_NAME) **pnames,
601                                           const char *value)
602 {
603     if (value == NULL)
604         return 0;
605     if (!strcmp(value, "empty"))
606         *pnames = sk_X509_NAME_new_null();
607     else
608         *pnames = SSL_load_client_CA_file(value);
609     return *pnames != NULL;
610 }
611 __owur static int parse_expected_server_ca_names(SSL_TEST_CTX *test_ctx,
612                                                  const char *value)
613 {
614     return parse_expected_ca_names(&test_ctx->expected_server_ca_names, value);
615 }
616 __owur static int parse_expected_client_ca_names(SSL_TEST_CTX *test_ctx,
617                                                  const char *value)
618 {
619     return parse_expected_ca_names(&test_ctx->expected_client_ca_names, value);
620 }
621
622 /* ExpectedCipher */
623
624 IMPLEMENT_SSL_TEST_STRING_OPTION(SSL_TEST_CTX, test, expected_cipher)
625
626 /* Client and Server ForcePHA */
627
628 IMPLEMENT_SSL_TEST_BOOL_OPTION(SSL_TEST_CLIENT_CONF, client, force_pha)
629 IMPLEMENT_SSL_TEST_BOOL_OPTION(SSL_TEST_SERVER_CONF, server, force_pha)
630
631 /* Known test options and their corresponding parse methods. */
632
633 /* Top-level options. */
634 typedef struct {
635     const char *name;
636     int (*parse)(SSL_TEST_CTX *test_ctx, const char *value);
637 } ssl_test_ctx_option;
638
639 static const ssl_test_ctx_option ssl_test_ctx_options[] = {
640     { "ExpectedResult", &parse_expected_result },
641     { "ExpectedClientAlert", &parse_client_alert },
642     { "ExpectedServerAlert", &parse_server_alert },
643     { "ExpectedProtocol", &parse_protocol },
644     { "ExpectedServerName", &parse_expected_servername },
645     { "SessionTicketExpected", &parse_session_ticket },
646     { "CompressionExpected", &parse_test_compression_expected },
647     { "SessionIdExpected", &parse_session_id },
648     { "Method", &parse_test_method },
649     { "ExpectedNPNProtocol", &parse_test_expected_npn_protocol },
650     { "ExpectedALPNProtocol", &parse_test_expected_alpn_protocol },
651     { "HandshakeMode", &parse_handshake_mode },
652     { "KeyUpdateType", &parse_key_update_type },
653     { "ResumptionExpected", &parse_test_resumption_expected },
654     { "ApplicationData", &parse_test_app_data_size },
655     { "MaxFragmentSize", &parse_test_max_fragment_size },
656     { "ExpectedTmpKeyType", &parse_expected_tmp_key_type },
657     { "ExpectedServerCertType", &parse_expected_server_cert_type },
658     { "ExpectedServerSignHash", &parse_expected_server_sign_hash },
659     { "ExpectedServerSignType", &parse_expected_server_sign_type },
660     { "ExpectedServerCANames", &parse_expected_server_ca_names },
661     { "ExpectedClientCertType", &parse_expected_client_cert_type },
662     { "ExpectedClientSignHash", &parse_expected_client_sign_hash },
663     { "ExpectedClientSignType", &parse_expected_client_sign_type },
664     { "ExpectedClientCANames", &parse_expected_client_ca_names },
665     { "UseSCTP", &parse_test_use_sctp },
666     { "ExpectedCipher", &parse_test_expected_cipher },
667 };
668
669 /* Nested client options. */
670 typedef struct {
671     const char *name;
672     int (*parse)(SSL_TEST_CLIENT_CONF *conf, const char *value);
673 } ssl_test_client_option;
674
675 static const ssl_test_client_option ssl_test_client_options[] = {
676     { "VerifyCallback", &parse_client_verify_callback },
677     { "ServerName", &parse_servername },
678     { "NPNProtocols", &parse_client_npn_protocols },
679     { "ALPNProtocols", &parse_client_alpn_protocols },
680     { "CTValidation", &parse_ct_validation },
681     { "RenegotiateCiphers", &parse_client_reneg_ciphers},
682     { "SRPUser", &parse_client_srp_user },
683     { "SRPPassword", &parse_client_srp_password },
684     { "MaxFragmentLenExt", &parse_max_fragment_len_mode },
685     { "ForcePHA", &parse_client_force_pha },
686 };
687
688 /* Nested server options. */
689 typedef struct {
690     const char *name;
691     int (*parse)(SSL_TEST_SERVER_CONF *conf, const char *value);
692 } ssl_test_server_option;
693
694 static const ssl_test_server_option ssl_test_server_options[] = {
695     { "ServerNameCallback", &parse_servername_callback },
696     { "NPNProtocols", &parse_server_npn_protocols },
697     { "ALPNProtocols", &parse_server_alpn_protocols },
698     { "BrokenSessionTicket", &parse_server_broken_session_ticket },
699     { "CertStatus", &parse_certstatus },
700     { "SRPUser", &parse_server_srp_user },
701     { "SRPPassword", &parse_server_srp_password },
702     { "ForcePHA", &parse_server_force_pha },
703 };
704
705 SSL_TEST_CTX *SSL_TEST_CTX_new()
706 {
707     SSL_TEST_CTX *ret;
708
709     /* The return code is checked by caller */
710     if ((ret = OPENSSL_zalloc(sizeof(*ret))) != NULL) {
711         ret->app_data_size = default_app_data_size;
712         ret->max_fragment_size = default_max_fragment_size;
713     }
714     return ret;
715 }
716
717 static void ssl_test_extra_conf_free_data(SSL_TEST_EXTRA_CONF *conf)
718 {
719     OPENSSL_free(conf->client.npn_protocols);
720     OPENSSL_free(conf->server.npn_protocols);
721     OPENSSL_free(conf->server2.npn_protocols);
722     OPENSSL_free(conf->client.alpn_protocols);
723     OPENSSL_free(conf->server.alpn_protocols);
724     OPENSSL_free(conf->server2.alpn_protocols);
725     OPENSSL_free(conf->client.reneg_ciphers);
726     OPENSSL_free(conf->server.srp_user);
727     OPENSSL_free(conf->server.srp_password);
728     OPENSSL_free(conf->server2.srp_user);
729     OPENSSL_free(conf->server2.srp_password);
730     OPENSSL_free(conf->client.srp_user);
731     OPENSSL_free(conf->client.srp_password);
732 }
733
734 static void ssl_test_ctx_free_extra_data(SSL_TEST_CTX *ctx)
735 {
736     ssl_test_extra_conf_free_data(&ctx->extra);
737     ssl_test_extra_conf_free_data(&ctx->resume_extra);
738 }
739
740 void SSL_TEST_CTX_free(SSL_TEST_CTX *ctx)
741 {
742     ssl_test_ctx_free_extra_data(ctx);
743     OPENSSL_free(ctx->expected_npn_protocol);
744     OPENSSL_free(ctx->expected_alpn_protocol);
745     sk_X509_NAME_pop_free(ctx->expected_server_ca_names, X509_NAME_free);
746     sk_X509_NAME_pop_free(ctx->expected_client_ca_names, X509_NAME_free);
747     OPENSSL_free(ctx->expected_cipher);
748     OPENSSL_free(ctx);
749 }
750
751 static int parse_client_options(SSL_TEST_CLIENT_CONF *client, const CONF *conf,
752                                 const char *client_section)
753 {
754     STACK_OF(CONF_VALUE) *sk_conf;
755     int i;
756     size_t j;
757
758     if (!TEST_ptr(sk_conf = NCONF_get_section(conf, client_section)))
759         return 0;
760
761     for (i = 0; i < sk_CONF_VALUE_num(sk_conf); i++) {
762         int found = 0;
763         const CONF_VALUE *option = sk_CONF_VALUE_value(sk_conf, i);
764         for (j = 0; j < OSSL_NELEM(ssl_test_client_options); j++) {
765             if (strcmp(option->name, ssl_test_client_options[j].name) == 0) {
766                 if (!ssl_test_client_options[j].parse(client, option->value)) {
767                     TEST_info("Bad value %s for option %s",
768                               option->value, option->name);
769                     return 0;
770                 }
771                 found = 1;
772                 break;
773             }
774         }
775         if (!found) {
776             TEST_info("Unknown test option: %s", option->name);
777             return 0;
778         }
779     }
780
781     return 1;
782 }
783
784 static int parse_server_options(SSL_TEST_SERVER_CONF *server, const CONF *conf,
785                                 const char *server_section)
786 {
787     STACK_OF(CONF_VALUE) *sk_conf;
788     int i;
789     size_t j;
790
791     if (!TEST_ptr(sk_conf = NCONF_get_section(conf, server_section)))
792         return 0;
793
794     for (i = 0; i < sk_CONF_VALUE_num(sk_conf); i++) {
795         int found = 0;
796         const CONF_VALUE *option = sk_CONF_VALUE_value(sk_conf, i);
797         for (j = 0; j < OSSL_NELEM(ssl_test_server_options); j++) {
798             if (strcmp(option->name, ssl_test_server_options[j].name) == 0) {
799                 if (!ssl_test_server_options[j].parse(server, option->value)) {
800                     TEST_info("Bad value %s for option %s",
801                                option->value, option->name);
802                     return 0;
803                 }
804                 found = 1;
805                 break;
806             }
807         }
808         if (!found) {
809             TEST_info("Unknown test option: %s", option->name);
810             return 0;
811         }
812     }
813
814     return 1;
815 }
816
817 SSL_TEST_CTX *SSL_TEST_CTX_create(const CONF *conf, const char *test_section)
818 {
819     STACK_OF(CONF_VALUE) *sk_conf = NULL;
820     SSL_TEST_CTX *ctx = NULL;
821     int i;
822     size_t j;
823
824     if (!TEST_ptr(sk_conf = NCONF_get_section(conf, test_section))
825             || !TEST_ptr(ctx = SSL_TEST_CTX_new()))
826         goto err;
827
828     for (i = 0; i < sk_CONF_VALUE_num(sk_conf); i++) {
829         int found = 0;
830         const CONF_VALUE *option = sk_CONF_VALUE_value(sk_conf, i);
831
832         /* Subsections */
833         if (strcmp(option->name, "client") == 0) {
834             if (!parse_client_options(&ctx->extra.client, conf, option->value))
835                 goto err;
836         } else if (strcmp(option->name, "server") == 0) {
837             if (!parse_server_options(&ctx->extra.server, conf, option->value))
838                 goto err;
839         } else if (strcmp(option->name, "server2") == 0) {
840             if (!parse_server_options(&ctx->extra.server2, conf, option->value))
841                 goto err;
842         } else if (strcmp(option->name, "resume-client") == 0) {
843             if (!parse_client_options(&ctx->resume_extra.client, conf,
844                                       option->value))
845                 goto err;
846         } else if (strcmp(option->name, "resume-server") == 0) {
847             if (!parse_server_options(&ctx->resume_extra.server, conf,
848                                       option->value))
849                 goto err;
850         } else if (strcmp(option->name, "resume-server2") == 0) {
851             if (!parse_server_options(&ctx->resume_extra.server2, conf,
852                                       option->value))
853                 goto err;
854         } else {
855             for (j = 0; j < OSSL_NELEM(ssl_test_ctx_options); j++) {
856                 if (strcmp(option->name, ssl_test_ctx_options[j].name) == 0) {
857                     if (!ssl_test_ctx_options[j].parse(ctx, option->value)) {
858                         TEST_info("Bad value %s for option %s",
859                                    option->value, option->name);
860                         goto err;
861                     }
862                     found = 1;
863                     break;
864                 }
865             }
866             if (!found) {
867                 TEST_info("Unknown test option: %s", option->name);
868                 goto err;
869             }
870         }
871     }
872
873     goto done;
874
875  err:
876     SSL_TEST_CTX_free(ctx);
877     ctx = NULL;
878  done:
879     return ctx;
880 }