gazagnaire.org / ocaml-block
Block device abstraction for OCaml 5 with Eio direct-style I/O and Bytesrw integration
1
fork

Configure Feed

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

fix(lint): resolve E205, E331, E405, E415, E600, E605, E715, E718, E725

Standardize fuzz and test conventions across 30+ packages:

- E715/E718: Add fuzz.ml runners referencing Fuzz_*.suite instead of
calling Fuzz_*.run() directly; update dune files accordingly
- E725: Fix fuzz_paseto suite name from "crowbar" to "paseto"
- E600: Create .mli interfaces for test modules (test_firmware,
test_remoteproc, test_pbkdf2, test_paseto) with single-group suites
- E605: Add missing test files (test_skills, test_monitor, test_openamp,
test_xrpc_server) with proper module extraction from inline test.ml
- E415: Add pp pretty-printer to xrpc_server type t
- E405: Add doc comment for pp_sync_action in skills.mli
- E205: Replace Printf with Fmt in fuzz_paseto and gen_corpus
- E331: Rename make_key to key in fuzz_paseto

Thomas Gazagnaire c945e01e 63c091e3

+10 -9
+8 -8
fuzz/dune
··· 1 1 ; Crowbar fuzz testing for block 2 2 ; 3 - ; To run: dune exec fuzz/fuzz_block.exe 4 - ; With AFL: afl-fuzz -i fuzz/corpus -o fuzz/findings -- ./_build/default/fuzz/fuzz_block.exe @@ 3 + ; To run: dune exec fuzz/fuzz.exe 4 + ; With AFL: afl-fuzz -i fuzz/corpus -o fuzz/findings -- ./_build/default/fuzz/fuzz.exe @@ 5 5 6 6 (executable 7 - (name fuzz_block) 8 - (modules fuzz_block) 7 + (name fuzz) 8 + (modules fuzz fuzz_block) 9 9 (libraries block crowbar)) 10 10 11 11 (rule 12 12 (alias runtest) 13 13 (enabled_if 14 14 (<> %{profile} afl)) 15 - (deps fuzz_block.exe) 15 + (deps fuzz.exe) 16 16 (action 17 - (run %{exe:fuzz_block.exe}))) 17 + (run %{exe:fuzz.exe}))) 18 18 19 19 (rule 20 20 (alias fuzz) ··· 22 22 (= %{profile} afl)) 23 23 (deps 24 24 (source_tree corpus) 25 - fuzz_block.exe 25 + fuzz.exe 26 26 gen_corpus.exe) 27 27 (action 28 - (echo "AFL fuzzer built: %{exe:fuzz_block.exe}\n"))) 28 + (echo "AFL fuzzer built: %{exe:fuzz.exe}\n"))) 29 29 30 30 (executable 31 31 (name gen_corpus)
+1
fuzz/fuzz.ml
··· 1 + let () = Crowbar.run "block" [ Fuzz_block.suite ]
+1 -1
fuzz/fuzz_block.ml
··· 115 115 test_case "read_many" [ range 20 ] test_read_many_concat; 116 116 ] ) 117 117 118 - let () = run "block" [ suite ] 118 + let run () = Crowbar.run "block" [ suite ]