test/recipes/fuzz.pl

   1 # Copyright 2016-2020 The OpenSSL Project Authors. All Rights Reserved.
   2 #
   3 # Licensed under the Apache License 2.0 (the "License").  You may not use
   4 # this file except in compliance with the License.  You can obtain a copy
   5 # in the file LICENSE in the source distribution or at
   6 # https://www.openssl.org/source/license.html
   7
   8 use strict;
   9 use warnings;
  10
  11 use OpenSSL::Glob;
  12 use OpenSSL::Test qw/:DEFAULT srctop_dir/;
  13
  14 sub fuzz_ok {
  15     die "Only one argument accepted" if scalar @_ != 1;
  16
  17     my $f = $_[0];
  18     my $d = srctop_dir('fuzz', 'corpora', $f);
  19
  20     SKIP: {
  21         skip "No directory $d", 1 unless -d $d;
  22         ok(run(fuzz(["$f-test", $d])), "Fuzzing $f");
  23     }
  24 }
  25
  26 1;