CCSDS TM Transfer Frames (CCSDS 132.0-B-3)
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+6
-15
+4
-9
test/interop/dariol83/test.ml
+4
-9
test/interop/dariol83/test.ml
···
107
107
108
108
let string_to_hex s =
109
109
let buf = Buffer.create (String.length s * 2) in
110
-
String.iter
111
-
(fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c)))
112
-
s;
110
+
String.iter (fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c))) s;
113
111
Buffer.contents buf
114
112
115
113
let load_vectors () =
···
205
203
Alcotest.run "tm-interop-dariol83"
206
204
[
207
205
( "decode",
208
-
[
209
-
Alcotest.test_case "decode reference frames" `Quick
210
-
(decode vectors);
211
-
] );
206
+
[ Alcotest.test_case "decode reference frames" `Quick (decode vectors) ]
207
+
);
212
208
( "encode",
213
209
[
214
-
Alcotest.test_case "encode matches reference" `Quick
215
-
(encode vectors);
210
+
Alcotest.test_case "encode matches reference" `Quick (encode vectors);
216
211
] );
217
212
( "roundtrip",
218
213
[
+2
-6
test/test_tm.ml
+2
-6
test/test_tm.ml
···
218
218
f.pf_version f.pf_scid f.pf_vcid f.pf_ocf_flag f.pf_mcfc f.pf_vcfc
219
219
f.pf_sec_hdr f.pf_sync_flag f.pf_pkt_order f.pf_seg_len_id
220
220
f.pf_first_hdr_ptr (String.length f.pf_data)
221
-
(match f.pf_ocf with
222
-
| None -> "None"
223
-
| Some v -> Fmt.str "0x%08x" v)
224
-
(match f.pf_fecf with
225
-
| None -> "None"
226
-
| Some v -> Fmt.str "0x%04x" v))
221
+
(match f.pf_ocf with None -> "None" | Some v -> Fmt.str "0x%08x" v)
222
+
(match f.pf_fecf with None -> "None" | Some v -> Fmt.str "0x%04x" v))
227
223
Tm.equal_packed_frame
228
224
229
225
let test_packed_frame_roundtrip () =