Home | History | Annotate | Line # | Download | only in recipes
      1  1.1  christos #! /usr/bin/env perl
      2  1.1  christos #
      3  1.1  christos # Copyright 2017-2021 The OpenSSL Project Authors. All Rights Reserved.
      4  1.1  christos #
      5  1.1  christos # Licensed under the Apache License 2.0 (the "License").  You may not use
      6  1.1  christos # this file except in compliance with the License.  You can obtain a copy
      7  1.1  christos # in the file LICENSE in the source distribution or at
      8  1.1  christos # https://www.openssl.org/source/license.html
      9  1.1  christos 
     10  1.1  christos 
     11  1.1  christos use strict;
     12  1.1  christos use warnings;
     13  1.1  christos 
     14  1.1  christos use OpenSSL::Test::Simple;
     15  1.1  christos use OpenSSL::Test;
     16  1.1  christos use OpenSSL::Test::Utils qw(alldisabled available_protocols);
     17  1.1  christos 
     18  1.1  christos setup("test_cipherbytes");
     19  1.1  christos 
     20  1.1  christos my $no_anytls = alldisabled(available_protocols("tls"));
     21  1.1  christos 
     22  1.1  christos # If we have no protocols, then we also have no supported ciphers.
     23  1.1  christos plan skip_all => "No SSL/TLS protocol is supported by this OpenSSL build."
     24  1.1  christos     if $no_anytls;
     25  1.1  christos 
     26  1.1  christos simple_test("test_cipherbytes", "cipherbytes_test", "bytes_to_cipherlist");
     27