upstream: https://github.com/mirage/ocaml-mbr
refactor(crowbar): Alcotest-style API with suite exports and grouped run
- Change `run` signature to `string -> (string * test_case list) list -> unit`
matching Alcotest's grouping convention
- Fix `_name` bug: pass the name through to Alcotest.run_with_args
- Each fuzz module now exports `let suite = ("name", [test_case ...])`
- Entry points (fuzz.ml) collect suites: `Crowbar.run "pkg" [Fuzz_X.suite]`
- Remove stale `add_test`/`suite` API, keep only `test_case`/`run`
- Remove `let run () = ()` from fuzz_common.ml files
- Update merlint E725 rule to match new `let suite = ("name", ...)` pattern
- Update E725 test fixtures and expected output
+10
-8
+10
-8
fuzz/fuzz_mbr.ml
+10
-8
fuzz/fuzz_mbr.ml
···
83
83
()
84
84
| _ -> ()
85
85
86
-
let () =
87
-
add_test ~name:"mbr: unmarshal crash safety" [ bytes ]
88
-
test_unmarshal_crash_safety;
89
-
add_test ~name:"mbr: roundtrip" [] (test_roundtrip ());
90
-
add_test ~name:"mbr: partition make" [ int; int; int; int ]
91
-
test_partition_make;
92
-
add_test ~name:"mbr: make with partitions" [ int; int; int; int ]
93
-
test_mbr_make
86
+
let suite =
87
+
( "mbr",
88
+
[
89
+
test_case "unmarshal crash safety" [ bytes ] test_unmarshal_crash_safety;
90
+
test_case "roundtrip" [] (test_roundtrip ());
91
+
test_case "partition make" [ int; int; int; int ] test_partition_make;
92
+
test_case "make with partitions" [ int; int; int; int ] test_mbr_make;
93
+
] )
94
+
95
+
let () = run "mbr" [ suite ]