Minimal SQLite key-value store for OCaml
0
fork

Configure Feed

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

Migrate from vendored crowbar to opam-pinned alcobar

- Remove vendored crowbar/ directory
- Replace all Crowbar references with Alcobar across 176 .ml files
- Update all fuzz dune files: crowbar → alcobar in libraries
- Remove 77 gen_corpus.ml files (alcobar handles corpus internally)
- Update dune-project files: crowbar → alcobar in dependencies
- Update merlint rules (e705, e726): Crowbar → Alcobar in checks,
docs, and examples
- Update merlint generated docs (index.html)

428 files changed, ~1200 lines removed net.

+5 -28
+2 -8
fuzz/dune
··· 1 1 (executable 2 2 (name fuzz) 3 3 (modules fuzz fuzz_sqlite) 4 - (libraries fmt sqlite crowbar)) 5 - 6 - (executable 7 - (name gen_corpus) 8 - (modules gen_corpus) 9 - (libraries fmt unix)) 4 + (libraries fmt sqlite alcobar)) 10 5 11 6 (rule 12 7 (alias runtest) ··· 22 17 (= %{profile} afl)) 23 18 (deps 24 19 (source_tree corpus) 25 - fuzz.exe 26 - gen_corpus.exe) 20 + fuzz.exe) 27 21 (action 28 22 (echo "AFL fuzzer built: %{exe:fuzz.exe}\n")))
+1 -1
fuzz/fuzz.ml
··· 1 - let () = Crowbar.run "sqlite" [ Fuzz_sqlite.suite ] 1 + let () = Alcobar.run "sqlite" [ Fuzz_sqlite.suite ]
+1 -1
fuzz/fuzz_sqlite.ml
··· 5 5 6 6 (** Fuzz tests for the pure OCaml B-tree backed key-value store. *) 7 7 8 - open Crowbar 8 + open Alcobar 9 9 10 10 let truncate ?(max_len = 4096) s = 11 11 if String.length s > max_len then String.sub s 0 max_len else s
+1 -1
fuzz/fuzz_sqlite.mli
··· 1 1 (** Fuzz tests for {\!Sqlite}. *) 2 2 3 - val suite : string * Crowbar.test_case list 3 + val suite : string * Alcobar.test_case list 4 4 (** Test suite. *)
-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 - Fmt.pr "gen_corpus: wrote 6 seed files@."