80-test_cipherlist.t 1012 B

12345678910111213141516171819202122232425262728293031
  1. #! /usr/bin/perl
  2. #
  3. # Copyright 2016-2018 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 qw(:DEFAULT openssl_versions);
  13. use OpenSSL::Test::Utils qw(alldisabled available_protocols);
  14. setup("test_cipherlist");
  15. my ($build_version, $library_version) = openssl_versions();
  16. plan skip_all =>
  17. "This test recipe isn't supported when doing regression testing"
  18. if $build_version ne $library_version;
  19. my $no_anytls = alldisabled(available_protocols("tls"));
  20. # If we have no protocols, then we also have no supported ciphers.
  21. plan skip_all => "No SSL/TLS protocol is supported by this OpenSSL build."
  22. if $no_anytls;
  23. simple_test("test_cipherlist", "cipherlist_test", "cipherlist");