| # -*- mode: perl; -*- |
| # Copyright 2016-2021 The OpenSSL Project Authors. All Rights Reserved. |
| # |
| # Licensed under the Apache License 2.0 (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 $fips_mode; |
| |
| our @tests = (); |
| |
| our @tests_standard = ( |
| { |
| name => "certstatus-good", |
| server => { |
| "CipherString" => "DEFAULT:\@SECLEVEL=0", |
| extra => { |
| "CertStatus" => "GoodResponse" |
| }, |
| }, |
| client => { |
| "CipherString" => "DEFAULT:\@SECLEVEL=0", |
| }, |
| test => { |
| "Method" => "DTLS", |
| "ExpectedResult" => "Success" |
| } |
| }, |
| { |
| name => "certstatus-bad", |
| server => { |
| "CipherString" => "DEFAULT:\@SECLEVEL=0", |
| extra => { |
| "CertStatus" => "BadResponse", |
| }, |
| }, |
| client => { |
| "CipherString" => "DEFAULT:\@SECLEVEL=0", |
| }, |
| test => { |
| "Method" => "DTLS", |
| "ExpectedResult" => "ClientFail" |
| } |
| } |
| ); |
| |
| our @tests_sctp = ( |
| { |
| name => "certstatus-good", |
| server => { |
| "CipherString" => "DEFAULT:\@SECLEVEL=0", |
| extra => { |
| "CertStatus" => "GoodResponse", |
| }, |
| }, |
| client => { |
| "CipherString" => "DEFAULT:\@SECLEVEL=0", |
| }, |
| test => { |
| "Method" => "DTLS", |
| "UseSCTP" => "Yes", |
| "ExpectedResult" => "Success" |
| } |
| }, |
| { |
| name => "certstatus-bad", |
| server => { |
| "CipherString" => "DEFAULT:\@SECLEVEL=0", |
| extra => { |
| "CertStatus" => "BadResponse", |
| }, |
| }, |
| client => { |
| "CipherString" => "DEFAULT:\@SECLEVEL=0", |
| }, |
| test => { |
| "Method" => "DTLS", |
| "UseSCTP" => "Yes", |
| "ExpectedResult" => "ClientFail" |
| } |
| }, |
| ); |
| |
| if (!$fips_mode || !disabled("dtls1_2")) { |
| push @tests, @tests_standard; |
| push @tests, @tests_sctp unless disabled("sctp") || disabled("sock"); |
| } |