blob: 2d1766d5e3ceb06e1d3b4d2f3ceef3c0ed635792 [file] [log] [blame]
yuezonghe824eb0c2024-06-27 02:32:26 -07001# -*- mode: perl; -*-
2# Copyright 2016-2016 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## Test DTLS CertStatus messages
11
12use strict;
13use warnings;
14
15package ssltests;
16use OpenSSL::Test::Utils;
17
18our @tests = (
19 {
20 name => "certstatus-good",
21 server => {
22 extra => {
23 "CertStatus" => "GoodResponse",
24 },
25 },
26 client => {},
27 test => {
28 "Method" => "DTLS",
29 "ExpectedResult" => "Success"
30 }
31 },
32 {
33 name => "certstatus-bad",
34 server => {
35 extra => {
36 "CertStatus" => "BadResponse",
37 },
38 },
39 client => {},
40 test => {
41 "Method" => "DTLS",
42 "ExpectedResult" => "ClientFail"
43 }
44 }
45);
46
47our @tests_sctp = (
48 {
49 name => "certstatus-good",
50 server => {
51 extra => {
52 "CertStatus" => "GoodResponse",
53 },
54 },
55 client => {},
56 test => {
57 "Method" => "DTLS",
58 "UseSCTP" => "Yes",
59 "ExpectedResult" => "Success"
60 }
61 },
62 {
63 name => "certstatus-bad",
64 server => {
65 extra => {
66 "CertStatus" => "BadResponse",
67 },
68 },
69 client => {},
70 test => {
71 "Method" => "DTLS",
72 "UseSCTP" => "Yes",
73 "ExpectedResult" => "ClientFail"
74 }
75 },
76);
77
78push @tests, @tests_sctp unless disabled("sctp") || disabled("sock");