Dr. David von Oheimb | cb9bb73 | 2020-07-03 14:19:43 +0200 | [diff] [blame] | 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; |
Nicola Tuveri | a7da4d4 | 2020-11-04 15:39:42 +0200 | [diff] [blame] | 12 | use OpenSSL::Test qw/:DEFAULT srctop_dir/; |
Dr. David von Oheimb | cb9bb73 | 2020-07-03 14:19:43 +0200 | [diff] [blame] | 13 | |
Nicola Tuveri | a7da4d4 | 2020-11-04 15:39:42 +0200 | [diff] [blame] | 14 | sub fuzz_ok { |
| 15 | die "Only one argument accepted" if scalar @_ != 1; |
Dr. David von Oheimb | cb9bb73 | 2020-07-03 14:19:43 +0200 | [diff] [blame] | 16 | |
Nicola Tuveri | a7da4d4 | 2020-11-04 15:39:42 +0200 | [diff] [blame] | 17 | my $f = $_[0]; |
| 18 | my $d = srctop_dir('fuzz', 'corpora', $f); |
Dr. David von Oheimb | cb9bb73 | 2020-07-03 14:19:43 +0200 | [diff] [blame] | 19 | |
Nicola Tuveri | a7da4d4 | 2020-11-04 15:39:42 +0200 | [diff] [blame] | 20 | SKIP: { |
| 21 | skip "No directory $d", 1 unless -d $d; |
| 22 | ok(run(fuzz(["$f-test", $d])), "Fuzzing $f"); |
Dr. David von Oheimb | cb9bb73 | 2020-07-03 14:19:43 +0200 | [diff] [blame] | 23 | } |
| 24 | } |
| 25 | |
| 26 | 1; |