test/recipes/95-test_external_tlsfuzzer.t

   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
   9
  10 use OpenSSL::Test;
  11 use OpenSSL::Test::Utils;
  12 use OpenSSL::Test qw/:DEFAULT data_file data_dir bldtop_dir srctop_dir cmdstr/;
  13 use Cwd qw(abs_path);
  14
  15 setup("test_external_tlsfuzzer");
  16
  17 plan skip_all => "No external tests in this configuration"
  18     if disabled("external-tests");
  19 plan skip_all => "TLSFuzzer tests not available on Windows or VMS"
  20     if $^O =~ /^(VMS|MSWin32)$/;
  21 plan skip_all => "TLSFuzzer is not properly checked out"
  22     unless (-d srctop_dir("tlsfuzzer") && -d srctop_dir("tlsfuzzer", "tests"));
  23
  24 $ENV{TESTDATADIR} = abs_path(data_dir());
  25 plan tests => 1;
  26
  27 ok(run(cmd(["sh", data_file("tls-fuzzer-cert.sh")])),
  28    "running TLSFuzzer tests");