CRC checksums (CRC-16, CRC-32, CRC-32C) for OCaml
fix(lint): rename fuzz-afl alias to fuzz, fix ocaml-crc fuzz setup
E722: Convert ocaml-crc (test ...) to (executable ...) with rules
E718: Add gen_corpus.ml to ocaml-crc/fuzz
E724: Rename (alias fuzz-afl) to (alias fuzz) in 12 fuzz directories
+37
-1
+19
-1
fuzz/dune
+19
-1
fuzz/dune
···
1
-
(test
1
+
(executable
2
2
(name fuzz_crc)
3
+
(modules fuzz_crc)
3
4
(libraries crc crowbar))
5
+
6
+
(executable
7
+
(name gen_corpus)
8
+
(modules gen_corpus)
9
+
(libraries unix))
10
+
11
+
(rule
12
+
(alias runtest)
13
+
(deps fuzz_crc.exe)
14
+
(action
15
+
(run %{exe:fuzz_crc.exe})))
16
+
17
+
(rule
18
+
(alias fuzz)
19
+
(deps fuzz_crc.exe)
20
+
(action
21
+
(echo "AFL fuzzer built: %{exe:fuzz_crc.exe}\n")))
+18
fuzz/gen_corpus.ml
+18
fuzz/gen_corpus.ml
···
1
+
(** Generate seed corpus for fuzz testing. *)
2
+
3
+
let () =
4
+
(try Unix.mkdir "corpus" 0o755
5
+
with Unix.Unix_error (Unix.EEXIST, _, _) -> ());
6
+
let write name data =
7
+
let oc = open_out_bin (Filename.concat "corpus" name) in
8
+
output_string oc data;
9
+
close_out oc
10
+
in
11
+
write "seed_000" "";
12
+
write "seed_001" "\x00";
13
+
write "seed_002" "\xff";
14
+
write "seed_003" "\x00\x00\x00\x00";
15
+
write "seed_004" "\xff\xff\xff\xff";
16
+
write "seed_005" "123456789";
17
+
write "seed_006" (String.make 256 '\xaa');
18
+
write "seed_007" (String.init 16 (fun i -> Char.chr (i * 17)))