123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778 |
- # -*- mode: perl; -*-
- # Copyright 2016-2016 The OpenSSL Project Authors. All Rights Reserved.
- #
- # Licensed under the OpenSSL license (the "License"). You may not use
- # this file except in compliance with the License. You can obtain a copy
- # in the file LICENSE in the source distribution or at
- # https://www.openssl.org/source/license.html
- ## Test DTLS CertStatus messages
- use strict;
- use warnings;
- package ssltests;
- use OpenSSL::Test::Utils;
- our @tests = (
- {
- name => "certstatus-good",
- server => {
- extra => {
- "CertStatus" => "GoodResponse",
- },
- },
- client => {},
- test => {
- "Method" => "DTLS",
- "ExpectedResult" => "Success"
- }
- },
- {
- name => "certstatus-bad",
- server => {
- extra => {
- "CertStatus" => "BadResponse",
- },
- },
- client => {},
- test => {
- "Method" => "DTLS",
- "ExpectedResult" => "ClientFail"
- }
- }
- );
- our @tests_sctp = (
- {
- name => "certstatus-good",
- server => {
- extra => {
- "CertStatus" => "GoodResponse",
- },
- },
- client => {},
- test => {
- "Method" => "DTLS",
- "UseSCTP" => "Yes",
- "ExpectedResult" => "Success"
- }
- },
- {
- name => "certstatus-bad",
- server => {
- extra => {
- "CertStatus" => "BadResponse",
- },
- },
- client => {},
- test => {
- "Method" => "DTLS",
- "UseSCTP" => "Yes",
- "ExpectedResult" => "ClientFail"
- }
- },
- );
- push @tests, @tests_sctp unless disabled("sctp") || disabled("sock");
|