Licklider Transmission Protocol (CCSDS 734.1-B) for reliable DTN links
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+5
-9
+5
-9
test/interop/ion/test.ml
+5
-9
test/interop/ion/test.ml
···
11
11
12
12
let hex_of_string s =
13
13
let buf = Buffer.create (String.length s * 2) in
14
-
String.iter
15
-
(fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c)))
16
-
s;
14
+
String.iter (fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c))) s;
17
15
Buffer.contents buf
18
16
19
17
let string_of_hex hex =
···
86
84
Alcotest.run "ltp-interop-ion"
87
85
[
88
86
( "encode",
89
-
List.map
90
-
(fun v -> Alcotest.test_case v.name `Quick (encode v))
91
-
vectors );
87
+
List.map (fun v -> Alcotest.test_case v.name `Quick (encode v)) vectors
88
+
);
92
89
( "decode",
93
-
List.map
94
-
(fun v -> Alcotest.test_case v.name `Quick (decode v))
95
-
vectors );
90
+
List.map (fun v -> Alcotest.test_case v.name `Quick (decode v)) vectors
91
+
);
96
92
( "roundtrip",
97
93
List.map
98
94
(fun v -> Alcotest.test_case v.name `Quick (roundtrip v))