Lines Matching refs:protocol
450 foreach my $protocol (@protocols) {
452 my @ciphers = run(app(["openssl", "ciphers", "-s", $protocol,
456 $ciphersstatus{$protocol} = $ciphersstatus;
458 $ciphersuites{$protocol} = [ map { s|\R||; split(/:/, $_) }
460 $protocolciphersuitecount += scalar @{$ciphersuites{$protocol}};
476 foreach my $protocol (@protocols) {
477 ok($ciphersstatus{$protocol}, "Getting ciphers for $protocol");
480 foreach my $protocol (sort keys %ciphersuites) {
481 note "Testing ciphersuites for $protocol";
484 my $flag = $protocol eq "-tls1_3" ? "" : $protocol;
486 foreach my $cipher (@{$ciphersuites{$protocol}}) {
487 if ($protocol eq "-ssl3" && $cipher =~ /ECDH/ ) {
488 note "*****SKIPPING $protocol $cipher";
491 if ($protocol eq "-tls1_3") {
504 next if $protocol eq "-tls1_3";
514 $protocol])), 0,