Matter smart home protocol implementation for OCaml
feat(monopam): add mono=true nested monorepo support and merge mono.lock into sources.toml
Add mono and ref_ fields to sources_registry entries, enabling nested
monorepos (mono=true) with recursive push/pull and replacing mono.lock
with ref pinning in sources.toml. Rename url→source and
default_url_base→origin with full backward compatibility.
Also fix pre-existing syntax errors and formatting in test files.
+12
-17
+10
-15
fuzz/dune
+10
-15
fuzz/dune
···
4
4
; With AFL: crow start --cpus=4
5
5
6
6
(executable
7
-
(name fuzz_tlv)
8
-
(modules fuzz_tlv)
9
-
(libraries matter crowbar))
7
+
(name fuzz)
8
+
(modules fuzz fuzz_tlv fuzz_case)
9
+
(libraries matter crowbar fmt))
10
10
11
11
(executable
12
-
(name fuzz_case)
13
-
(modules fuzz_case)
14
-
(libraries matter crowbar fmt))
12
+
(name gen_corpus)
13
+
(modules gen_corpus)
14
+
(libraries unix))
15
15
16
16
(rule
17
17
(alias runtest)
18
-
(deps fuzz_tlv.exe fuzz_case.exe)
18
+
(deps fuzz.exe)
19
19
(action
20
-
(progn
21
-
(run %{exe:fuzz_tlv.exe})
22
-
(run %{exe:fuzz_case.exe}))))
20
+
(run %{exe:fuzz.exe})))
23
21
24
22
(rule
25
23
(alias fuzz)
···
27
25
(= %{profile} afl))
28
26
(deps
29
27
(source_tree corpus)
30
-
fuzz_tlv.exe
31
-
fuzz_case.exe
28
+
fuzz.exe
32
29
gen_corpus.exe)
33
30
(action
34
-
(progn
35
-
(echo "AFL fuzzer built: %{exe:fuzz_tlv.exe}\n")
36
-
(echo "AFL fuzzer built: %{exe:fuzz_case.exe}\n"))))
31
+
(echo "AFL fuzzer built: %{exe:fuzz.exe}\n")))
+1
-1
fuzz/fuzz_case.ml
+1
-1
fuzz/fuzz_case.ml
···
207
207
208
208
check_eq ~pp:(fun ppf s -> Fmt.pf ppf "%S" s) dest1 dest2
209
209
210
-
let () =
210
+
let run () =
211
211
(* Sigma message roundtrip tests *)
212
212
add_test ~name:"case: sigma1 roundtrip" [ sigma1_gen ] test_sigma1_roundtrip;
213
213
add_test ~name:"case: sigma2 roundtrip" [ sigma2_gen ] test_sigma2_roundtrip;
+1
-1
fuzz/fuzz_tlv.ml
+1
-1
fuzz/fuzz_tlv.ml
···
147
147
check_eq ~pp:(fun ppf s -> Fmt.pf ppf "%S" s) encoded re_encoded
148
148
| Error e -> fail ("Decode failed: " ^ e)
149
149
150
-
let () =
150
+
let run () =
151
151
add_test ~name:"tlv: encode-decode roundtrip" [ tlv_element_gen ]
152
152
test_encode_decode_roundtrip;
153
153
add_test ~name:"tlv: decode-encode roundtrip" [ bytes ]