]>
Commit | Line | Data |
---|---|---|
5a22cf96 | 1 | #! /usr/bin/perl |
44c8a5e2 | 2 | # |
c4d3c19b | 3 | # Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved. |
44c8a5e2 | 4 | # |
909f1a2e | 5 | # Licensed under the Apache License 2.0 (the "License"). You may not use |
44c8a5e2 RS |
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 | ||
5a22cf96 EK |
10 | |
11 | use strict; | |
12 | use warnings; | |
13 | ||
14 | use OpenSSL::Test::Simple; | |
efe749c8 | 15 | use OpenSSL::Test qw(:DEFAULT openssl_versions); |
5a22cf96 EK |
16 | use OpenSSL::Test::Utils qw(alldisabled available_protocols); |
17 | ||
18 | setup("test_cipherlist"); | |
19 | ||
efe749c8 RL |
20 | my ($build_version, $library_version) = openssl_versions(); |
21 | plan skip_all => | |
22 | "This test recipe isn't supported when doing regression testing" | |
3a63dbef | 23 | if $build_version ne $library_version; |
efe749c8 | 24 | |
5a22cf96 EK |
25 | my $no_anytls = alldisabled(available_protocols("tls")); |
26 | ||
27 | # If we have no protocols, then we also have no supported ciphers. | |
28 | plan skip_all => "No SSL/TLS protocol is supported by this OpenSSL build." | |
29 | if $no_anytls; | |
30 | ||
31 | simple_test("test_cipherlist", "cipherlist_test", "cipherlist"); |