Home | History | Annotate | Line # | Download | only in recipes 
      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;
     27