gazagnaire.org
Bundle Protocol Version 7 (RFC 9171) for Delay-Tolerant Networking
fix(lint): resolve E205 Printf/Format usage across test and fuzz files
Replace Printf.sprintf with Fmt.str, Printf.printf with Fmt.pr,
Format.fprintf with Fmt.pf, and Format.asprintf with Fmt.str in:
ocaml-aos, ocaml-atp, ocaml-ax25, ocaml-btree, ocaml-bundle
+4
-7
+2
-4
fuzz/fuzz_bundle.ml
+2
-4
fuzz/fuzz_bundle.ml
···
33
33
let flags = Bundle.flags_of_int n in
34
34
let encoded = Bundle.int_of_flags flags in
35
35
let decoded = Bundle.flags_of_int encoded in
36
-
check_eq
37
-
~pp:(fun fmt f -> Format.fprintf fmt "%a" Bundle.pp_flags f)
38
-
flags decoded
36
+
check_eq ~pp:(fun fmt f -> Fmt.pf fmt "%a" Bundle.pp_flags f) flags decoded
39
37
40
38
(* Test block flags roundtrip *)
41
39
let test_block_flags_roundtrip n =
···
45
43
let encoded = Bundle.int_of_block_flags flags in
46
44
let decoded = Bundle.block_flags_of_int encoded in
47
45
check_eq
48
-
~pp:(fun fmt f -> Format.fprintf fmt "%a" Bundle.pp_block_flags f)
46
+
~pp:(fun fmt f -> Fmt.pf fmt "%a" Bundle.pp_block_flags f)
49
47
flags decoded
50
48
51
49
(* Test bundle encode/decode roundtrip *)
+2
-3
test/test_bundle.ml
+2
-3
test/test_bundle.ml
···
108
108
Alcotest.(check int64)
109
109
"lifetime preserved" bundle.primary.lifetime
110
110
decoded_bundle.primary.lifetime
111
-
| Error e ->
112
-
Alcotest.fail (Format.asprintf "decode failed: %a" Bundle.pp_error e)
111
+
| Error e -> Alcotest.fail (Fmt.str "decode failed: %a" Bundle.pp_error e)
113
112
114
113
let test_bundle_no_crc () =
115
114
let bundle =
···
138
137
| Ok _ -> ()
139
138
| Error e ->
140
139
Alcotest.fail
141
-
(Format.asprintf "CRC-16 bundle decode failed: %a" Bundle.pp_error e)
140
+
(Fmt.str "CRC-16 bundle decode failed: %a" Bundle.pp_error e)
142
141
143
142
let suite =
144
143
( "bundle",