CCSDS USLP (Unified Space Link Protocol) Transfer Frame- unified TM/TC/AOS
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+4
-9
+4
-9
test/interop/spacepackets/test.ml
+4
-9
test/interop/spacepackets/test.ml
···
28
28
29
29
let string_to_hex s =
30
30
let buf = Buffer.create (String.length s * 2) in
31
-
String.iter
32
-
(fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c)))
33
-
s;
31
+
String.iter (fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c))) s;
34
32
Buffer.contents buf
35
33
36
34
let src_or_dest_of_string = function
···
248
246
Alcotest.run "uslp-interop-spacepackets"
249
247
[
250
248
( "decode",
251
-
[
252
-
Alcotest.test_case "decode reference frames" `Quick
253
-
(decode vectors);
254
-
] );
249
+
[ Alcotest.test_case "decode reference frames" `Quick (decode vectors) ]
250
+
);
255
251
( "encode",
256
252
[
257
-
Alcotest.test_case "encode matches reference" `Quick
258
-
(encode vectors);
253
+
Alcotest.test_case "encode matches reference" `Quick (encode vectors);
259
254
] );
260
255
( "roundtrip",
261
256
[