95-test_external_tlsfuzzer.t 1006 B

12345678910111213141516171819202122232425262728
  1. #! /usr/bin/env perl
  2. # Copyright 2015-2022 The OpenSSL Project Authors. All Rights Reserved.
  3. #
  4. # Licensed under the Apache License 2.0 (the "License"). You may not use
  5. # this file except in compliance with the License. You can obtain a copy
  6. # in the file LICENSE in the source distribution or at
  7. # https://www.openssl.org/source/license.html
  8. use OpenSSL::Test;
  9. use OpenSSL::Test::Utils;
  10. use OpenSSL::Test qw/:DEFAULT data_file data_dir bldtop_dir srctop_dir cmdstr/;
  11. use Cwd qw(abs_path);
  12. setup("test_external_tlsfuzzer");
  13. plan skip_all => "No external tests in this configuration"
  14. if disabled("external-tests");
  15. plan skip_all => "TLSFuzzer tests not available on Windows or VMS"
  16. if $^O =~ /^(VMS|MSWin32)$/;
  17. plan skip_all => "TLSFuzzer is not properly checked out"
  18. unless (-d srctop_dir("tlsfuzzer") && -d srctop_dir("tlsfuzzer", "tests"));
  19. $ENV{TESTDATADIR} = abs_path(data_dir());
  20. plan tests => 1;
  21. ok(run(cmd(["sh", data_file("tls-fuzzer-cert.sh")])),
  22. "running TLSFuzzer tests");