Licklider Transmission Protocol (CCSDS 734.1-B) for reliable DTN links
fix(lint): resolve E718 missing gen_corpus.ml and E720 multiple fuzz stanzas
Add gen_corpus.ml with domain-appropriate seed data for hap, homebrew,
hostname, json-logs, jsonwt, ltp, and matter fuzz directories. Merge
matter's two fuzz executables (fuzz_tlv, fuzz_case) into a single fuzz
runner via fuzz.ml wrapper.
+23
+23
fuzz/gen_corpus.ml
+23
fuzz/gen_corpus.ml
···
1
+
(** Generate seed corpus for LTP 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
+
(* Empty input *)
12
+
write "seed_000" "";
13
+
(* Single-byte SDNV (value < 128) *)
14
+
write "seed_001" "\x42";
15
+
(* Multi-byte SDNV *)
16
+
write "seed_002" "\x81\x00";
17
+
(* Truncated segment header *)
18
+
write "seed_003" "\x00\x01\x02";
19
+
(* Longer binary data *)
20
+
write "seed_004" (String.init 64 (fun i -> Char.chr (i mod 256)));
21
+
(* High-bit patterns *)
22
+
write "seed_005" "\xff\xff\xff\xff";
23
+
print_endline "Generated 6 seed files in corpus/"