test/recipes/80-test_cipherbytes.t

   1 #! /usr/bin/perl
   2 #
   3 # Copyright 2017 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;
  16 use OpenSSL::Test::Utils qw(alldisabled available_protocols);
  17
  18 setup("test_cipherbytes");
  19
  20 my $no_anytls = alldisabled(available_protocols("tls"));
  21
  22 # If we have no protocols, then we also have no supported ciphers.
  23 plan skip_all => "No SSL/TLS protocol is supported by this OpenSSL build."
  24     if $no_anytls;
  25
  26 simple_test("test_cipherbytes", "cipherbytes_test", "bytes_to_cipherlist");