Lines Matching +full:- +full:- +full:tlsv1
1 # -*- mode: perl; -*-
2 # Copyright 2016-2021 The OpenSSL Project Authors. All Rights Reserved.
23 my @tls_protocols = ("SSLv3", "TLSv1", "TLSv1.1", "TLSv1.2", "TLSv1.3");
24 my @tls_protocols_fips = ("TLSv1.2", "TLSv1.3");
26 my @min_tls_protocols = (undef, "SSLv3", "TLSv1", "TLSv1.1", "TLSv1.2", "TLSv1.3");
27 my @min_tls_protocols_fips = (undef, "TLSv1.2", "TLSv1.3");
28 my @max_tls_protocols = ("SSLv3", "TLSv1", "TLSv1.1", "TLSv1.2", "TLSv1.3", undef);
29 my @max_tls_protocols_fips = ("TLSv1.2", "TLSv1.3", undef);
38 # $no_tls1_1 disables TLSv1.1 and below.
68 && ($protocols[$i] ne "TLSv1.3"
148 my $c_max_min = $c_min == 0 ? 0 : $c_min - 1;
151 my $s_max_min = $s_min == 0 ? 0 : $s_min - 1;
158 "name" => "version-negotiation",
175 $tests[-1]{"test"}{"UseSCTP"} = "Yes" if $sctp;
189 "name" => "ciphersuite-sanity-check-client",
191 #Offering only <=TLSv1.2 ciphersuites with TLSv1.3 should fail
192 "CipherString" => "AES128-SHA",
196 "MaxProtocol" => "TLSv1.2"
203 "name" => "ciphersuite-sanity-check-server",
205 "CipherString" => "AES128-SHA",
206 "MaxProtocol" => "TLSv1.2"
209 #Allowing only <=TLSv1.2 ciphersuites with TLSv1.3 should fail
210 "CipherString" => "AES128-SHA",
250 # Obtain the first session against a fixed-version server/client.
265 foreach my $ticket ("SessionTicket", "-SessionTicket") {
290 $server_tests[-1]{"test"}{"UseSCTP"} = "Yes" if $sctp;
314 $client_tests[-1]{"test"}{"UseSCTP"} = "Yes" if $sctp;
322 "name" => "resumption-with-hrr",
326 "Curves" => disabled("ec") ? "ffdhe3072" : "P-256"
331 "ExpectedProtocol" => "TLSv1.3",
349 $c_min = $c_min == 0 ? 0 : $c_min - 1;
350 $c_max = $c_max == scalar @$protocols ? $c_max - 1 : $c_max;
351 $s_min = $s_min == 0 ? 0 : $s_min - 1;
352 $s_max = $s_max == scalar @$protocols ? $s_max - 1 : $s_max;
355 # $max_enabled are well-defined.
363 && $prots[$orig_c_max] eq "TLSv1.3"
375 if ($prots[$c_max] eq "TLSv1.3") {
387 return ("Success", $protocols->[$max_common]);