OCaml wire format DSL with EverParse 3D output for verified parsers
fix(lint): replace Format with Fmt (E205), use err_* helpers (E340), shorten identifier (E320)
+17
+17
fuzz/gen_corpus.ml
+17
fuzz/gen_corpus.ml
···
1
+
(** Generate seed corpus for fuzz testing. *)
2
+
3
+
let () =
4
+
let dir = "corpus" in
5
+
(try Unix.mkdir dir 0o755 with Unix.Unix_error (Unix.EEXIST, _, _) -> ());
6
+
let write name data =
7
+
let oc = open_out_bin (Filename.concat dir 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" (String.make 16 '\x00');
15
+
write "seed_004" (String.make 16 '\xff');
16
+
write "seed_005" (String.init 256 Char.chr);
17
+
Printf.printf "gen_corpus: wrote 6 seed files\n"