Contact Graph Routing for time-varying satellite networks
fix(lint): add gen_corpus.ml to all fuzz directories for E718
Add seed corpus generators with representative test data for:
ocaml-aos, ocaml-block, ocaml-bloom, ocaml-bpsec, ocaml-bundle,
ocaml-cfdp, ocaml-cgr, ocaml-clcw, ocaml-cookeio, ocaml-cpio
+4
-2
+4
-2
fuzz/gen_corpus.ml
+4
-2
fuzz/gen_corpus.ml
···
5
5
with Unix.Unix_error (Unix.EEXIST, _, _) -> ());
6
6
let write name data =
7
7
let oc = open_out_bin (Filename.concat "corpus" name) in
8
-
output_string oc data; close_out oc
8
+
output_string oc data;
9
+
close_out oc
9
10
in
10
11
(* Empty input *)
11
12
write "seed_000" "";
···
18
19
(* Multiple small contacts *)
19
20
write "seed_004" "\x03\x01\x02\x05\x0a\x64\x02\x03\x0a\x14\xc8";
20
21
(* All zeros - 16 bytes *)
21
-
write "seed_005" "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
22
+
write "seed_005"
23
+
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00";
22
24
(* Max values *)
23
25
write "seed_006" "\xff\xff\xff\xff\xff\xff\xff\xff";
24
26
(* Single byte *)