Home | History | Annotate | Line # | Download | only in recipes 
      1 #! /usr/bin/env perl
      2 #
      3 # Copyright 2017-2021 The OpenSSL Project Authors. All Rights Reserved.
      4 #
      5 # Licensed under the Apache License 2.0 (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");
     27