1# -*- 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");
79