CCSDS AOS (Advanced Orbiting Systems) Transfer Frame for satellite downlinks
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+5
-11
+5
-11
test/interop/dariol83/test.ml
+5
-11
test/interop/dariol83/test.ml
···
88
88
89
89
let string_to_hex s =
90
90
let buf = Buffer.create (String.length s * 2) in
91
-
String.iter
92
-
(fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c)))
93
-
s;
91
+
String.iter (fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c))) s;
94
92
Buffer.contents buf
95
93
96
94
let parse_ocf_hex s =
···
203
201
Alcotest.run "aos-interop-dariol83"
204
202
[
205
203
( "decode",
206
-
[
207
-
Alcotest.test_case "decode reference frames" `Quick
208
-
(decode vectors);
209
-
] );
204
+
[ Alcotest.test_case "decode reference frames" `Quick (decode vectors) ]
205
+
);
210
206
( "encode",
211
207
[
212
-
Alcotest.test_case "encode matches reference" `Quick
213
-
(encode vectors);
208
+
Alcotest.test_case "encode matches reference" `Quick (encode vectors);
214
209
] );
215
210
( "roundtrip",
216
211
[
···
218
213
(roundtrip vectors);
219
214
] );
220
215
( "idle",
221
-
[ Alcotest.test_case "idle frame detection" `Quick (idle vectors) ]
222
-
);
216
+
[ Alcotest.test_case "idle frame detection" `Quick (idle vectors) ] );
223
217
]