test/recipes/80-test_cipherlist.t

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use OpenSSL::Test::Simple;
   7 use OpenSSL::Test;
   8 use OpenSSL::Test::Utils qw(alldisabled available_protocols);
   9
  10 setup("test_cipherlist");
  11
  12 my $no_anytls = alldisabled(available_protocols("tls"));
  13
  14 # If we have no protocols, then we also have no supported ciphers.
  15 plan skip_all => "No SSL/TLS protocol is supported by this OpenSSL build."
  16     if $no_anytls;
  17
  18 simple_test("test_cipherlist", "cipherlist_test", "cipherlist");