Lines Matching refs:protocol
528 foreach my $protocol (@protocols) {
530 my @ciphers = run(app(["openssl", "ciphers", "-s", $protocol,
534 $ciphersstatus{$protocol} = $ciphersstatus;
536 $ciphersuites{$protocol} = [ map { s|\R||; split(/:/, $_) }
538 $protocolciphersuitecount += scalar @{$ciphersuites{$protocol}};
554 foreach my $protocol (@protocols) {
555 ok($ciphersstatus{$protocol}, "Getting ciphers for $protocol");
558 foreach my $protocol (sort keys %ciphersuites) {
559 note "Testing ciphersuites for $protocol";
562 my $flag = $protocol eq "-tls1_3" ? "" : $protocol;
564 foreach my $cipher (@{$ciphersuites{$protocol}}) {
567 note "*****SKIPPING $protocol $cipher";
569 } elsif ($protocol eq "-ssl3" && $cipher =~ /ECDH/ ) {
570 note "*****SKIPPING $protocol $cipher";
573 if ($protocol eq "-tls1_3") {
586 next if $protocol eq "-tls1_3";
596 $protocol])), 0,
