gazagnaire.org / ocaml-cfdp
CCSDS File Delivery Protocol (CCSDS 727.0-B-5) for space file transfer
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

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

Thomas Gazagnaire 156393fa 5fc98802

+5 -2
+1
fuzz/dune
··· 1 1 (executable 2 2 (name fuzz_cfdp) 3 + (modules fuzz_cfdp) 3 4 (libraries cfdp crowbar)) 4 5 5 6 (executable
+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" ""; ··· 20 21 (* Single byte *) 21 22 write "seed_005" "\x42"; 22 23 (* 16 bytes of mixed data *) 23 - write "seed_006" "\x00\x01\x02\x03\x10\x20\x30\x40\x80\x90\xa0\xb0\xc0\xd0\xe0\xf0"; 24 + write "seed_006" 25 + "\x00\x01\x02\x03\x10\x20\x30\x40\x80\x90\xa0\xb0\xc0\xd0\xe0\xf0"; 24 26 (* Odd-length input *) 25 27 write "seed_007" "\xde\xad\xbe\xef\x01"; 26 28 print_endline "Generated 8 seed files in corpus/"