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