mirror of
https://github.com/openssl/openssl.git
synced 2024-12-15 06:01:37 +08:00
473664aafd
Different tests may use unexpectedly different versions of perl, depending on whether they hardcode the path to the perl executable or if they resolve the path from the environment. This fixes it so that the same perl is always used. Fix some trailing whitespace and spelling mistakes as well. CLA: trivial Reviewed-by: Tomas Mraz <tomas@openssl.org> Reviewed-by: Paul Dale <pauli@openssl.org> (Merged from https://github.com/openssl/openssl/pull/16362)
32 lines
1016 B
Perl
32 lines
1016 B
Perl
#! /usr/bin/env perl
|
|
#
|
|
# Copyright 2016-2018 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the Apache License 2.0 (the "License"). You may not use
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
# in the file LICENSE in the source distribution or at
|
|
# https://www.openssl.org/source/license.html
|
|
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use OpenSSL::Test::Simple;
|
|
use OpenSSL::Test qw(:DEFAULT openssl_versions);
|
|
use OpenSSL::Test::Utils qw(alldisabled available_protocols);
|
|
|
|
setup("test_cipherlist");
|
|
|
|
my ($build_version, $library_version) = openssl_versions();
|
|
plan skip_all =>
|
|
"This test recipe isn't supported when doing regression testing"
|
|
if $build_version ne $library_version;
|
|
|
|
my $no_anytls = alldisabled(available_protocols("tls"));
|
|
|
|
# If we have no protocols, then we also have no supported ciphers.
|
|
plan skip_all => "No SSL/TLS protocol is supported by this OpenSSL build."
|
|
if $no_anytls;
|
|
|
|
simple_test("test_cipherlist", "cipherlist_test", "cipherlist");
|