70-test_servername.t 909 B

1234567891011121314151617181920212223242526
  1. #! /usr/bin/env perl
  2. # Copyright 2017-2018 The OpenSSL Project Authors. All Rights Reserved.
  3. # Copyright 2017 BaishanCloud. 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 srctop_file/;
  13. use OpenSSL::Test::Utils qw(alldisabled available_protocols);
  14. setup("test_servername");
  15. plan skip_all => "No TLS/SSL protocols are supported by this OpenSSL build"
  16. if alldisabled(grep { $_ ne "ssl3" } available_protocols("tls"));
  17. plan tests => 1;
  18. ok(run(test(["servername_test", srctop_file("apps", "server.pem"),
  19. srctop_file("apps", "server.pem")])),
  20. "running servername_test");