blob: 3f03eef4f72403f555020abc3edf2061912645a2 [file] [log] [blame]
Dr. David von Oheimbcb9bb732020-07-03 14:19:43 +02001# 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;
Nicola Tuveria7da4d42020-11-04 15:39:42 +020012use OpenSSL::Test qw/:DEFAULT srctop_dir/;
Dr. David von Oheimbcb9bb732020-07-03 14:19:43 +020013
Nicola Tuveria7da4d42020-11-04 15:39:42 +020014sub fuzz_ok {
15 die "Only one argument accepted" if scalar @_ != 1;
Dr. David von Oheimbcb9bb732020-07-03 14:19:43 +020016
Nicola Tuveria7da4d42020-11-04 15:39:42 +020017 my $f = $_[0];
18 my $d = srctop_dir('fuzz', 'corpora', $f);
Dr. David von Oheimbcb9bb732020-07-03 14:19:43 +020019
Nicola Tuveria7da4d42020-11-04 15:39:42 +020020 SKIP: {
21 skip "No directory $d", 1 unless -d $d;
22 ok(run(fuzz(["$f-test", $d])), "Fuzzing $f");
Dr. David von Oheimbcb9bb732020-07-03 14:19:43 +020023 }
24}
25
261;