test/recipes/80-test_cipherlist.t

   1 #! /usr/bin/perl
   2 #
   3 # Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved.
   4 #
   5 # Licensed under the OpenSSL license (the "License").  You may not use
   6 # this file except in compliance with the License.  You can obtain a copy
   7 # in the file LICENSE in the source distribution or at
   8 # https://www.openssl.org/source/license.html
   9
  10
  11 use strict;
  12 use warnings;
  13
  14 use OpenSSL::Test::Simple;
  15 use OpenSSL::Test qw(:DEFAULT openssl_versions);
  16 use OpenSSL::Test::Utils qw(alldisabled available_protocols);
  17
  18 setup("test_cipherlist");
  19
  20 my ($build_version, $library_version) = openssl_versions();
  21 plan skip_all =>
  22     "This test recipe isn't supported when doing regression testing"
  23     if $build_version != $library_version;
  24
  25 my $no_anytls = alldisabled(available_protocols("tls"));
  26
  27 # If we have no protocols, then we also have no supported ciphers.
  28 plan skip_all => "No SSL/TLS protocol is supported by this OpenSSL build."
  29     if $no_anytls;
  30
  31 simple_test("test_cipherlist", "cipherlist_test", "cipherlist");