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 8use strict; 9use warnings; 10 11use OpenSSL::Glob; 12use OpenSSL::Test qw/:DEFAULT srctop_dir/; 13 14sub 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 261; 27