test/recipes/80-test_ciphername.t

   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");