AX.25 Amateur Radio Link-Layer Protocol
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
+17
-14
+17
-14
fuzz/fuzz_ax25.ml
+17
-14
fuzz/fuzz_ax25.ml
···
140
140
let decoded = Ax25.pid_of_byte byte in
141
141
check_eq ~eq:( = ) ~pp:(fun ppf p -> Ax25.pp_pid ppf p) pid decoded
142
142
143
-
let () =
144
-
add_test ~name:"ax25: UI frame encode-decode roundtrip" [ ui_frame_gen ]
145
-
test_ui_encode_decode_roundtrip;
146
-
add_test ~name:"ax25: KISS roundtrip" [ ui_frame_gen ] test_kiss_roundtrip;
147
-
add_test ~name:"ax25: decode arbitrary bytes" [ bytes ]
148
-
test_decode_arbitrary_bytes;
149
-
add_test ~name:"ax25: KISS decode arbitrary bytes" [ bytes ]
150
-
test_kiss_decode_arbitrary_bytes;
151
-
add_test ~name:"ax25: HDLC decode arbitrary bytes" [ bytes ]
152
-
test_hdlc_decode_arbitrary_bytes;
153
-
add_test ~name:"ax25: CRC arbitrary bytes" [ bytes ] test_crc_arbitrary_bytes;
154
-
add_test ~name:"ax25: control byte roundtrip" [ control_gen ]
155
-
test_control_roundtrip;
156
-
add_test ~name:"ax25: PID byte roundtrip" [ pid_gen ] test_pid_roundtrip
143
+
let suite =
144
+
( "ax25",
145
+
[
146
+
test_case "UI frame encode-decode roundtrip" [ ui_frame_gen ]
147
+
test_ui_encode_decode_roundtrip;
148
+
test_case "KISS roundtrip" [ ui_frame_gen ] test_kiss_roundtrip;
149
+
test_case "decode arbitrary bytes" [ bytes ] test_decode_arbitrary_bytes;
150
+
test_case "KISS decode arbitrary bytes" [ bytes ]
151
+
test_kiss_decode_arbitrary_bytes;
152
+
test_case "HDLC decode arbitrary bytes" [ bytes ]
153
+
test_hdlc_decode_arbitrary_bytes;
154
+
test_case "CRC arbitrary bytes" [ bytes ] test_crc_arbitrary_bytes;
155
+
test_case "control byte roundtrip" [ control_gen ] test_control_roundtrip;
156
+
test_case "PID byte roundtrip" [ pid_gen ] test_pid_roundtrip;
157
+
] )
158
+
159
+
let () = run "ax25" [ suite ]