2
0

80-test_cipherbytes.t 799 B

1234567891011121314151617181920212223242526
  1. #! /usr/bin/perl
  2. #
  3. # Copyright 2017 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. use strict;
  10. use warnings;
  11. use OpenSSL::Test::Simple;
  12. use OpenSSL::Test;
  13. use OpenSSL::Test::Utils qw(alldisabled available_protocols);
  14. setup("test_cipherbytes");
  15. my $no_anytls = alldisabled(available_protocols("tls"));
  16. # If we have no protocols, then we also have no supported ciphers.
  17. plan skip_all => "No SSL/TLS protocol is supported by this OpenSSL build."
  18. if $no_anytls;
  19. simple_test("test_cipherbytes", "cipherbytes_test", "bytes_to_cipherlist");