Home | History | Annotate | Line # | Download | only in recipes 
      1 #! /usr/bin/perl
      2 #
      3 # Copyright 2017 The OpenSSL Project Authors. All Rights Reserved.
      4 # Copyright 2017 BaishanCloud. All rights reserved.
      5 #
      6 # Licensed under the OpenSSL license (the "License").  You may not use
      7 # this file except in compliance with the License.  You can obtain a copy
      8 # in the file LICENSE in the source distribution or at
      9 # https://www.openssl.org/source/license.html
     10 
     11 
     12 use strict;
     13 use warnings;
     14 
     15 use OpenSSL::Test::Simple;
     16 use OpenSSL::Test;
     17 use OpenSSL::Test::Utils qw(alldisabled available_protocols);
     18 
     19 setup("test_ciphername");
     20 
     21 my $no_anytls = alldisabled(available_protocols("tls"));
     22 
     23 # If we have no protocols, then we also have no supported ciphers.
     24 plan skip_all => "No SSL/TLS protocol is supported by this OpenSSL build."
     25     if $no_anytls;
     26 
     27 simple_test("test_ciphername", "ciphername_test");
     28