CCSDS TM Transfer Frames (CCSDS 132.0-B-3)
fix(fuzz): fix test name prefixes to match module names (E725)
+4
-2
+4
-2
fuzz/fuzz_tm.ml
+4
-2
fuzz/fuzz_tm.ml
···
85
85
else
86
86
match (Tm.scid 100, Tm.vcid 2) with
87
87
| Some scid, Some vcid -> (
88
-
let frame = Tm.make ~scid ~vcid ~mcfc:0 ~vcfc:0 data in
88
+
let frame = Tm.make ~scid ~vcid ~mcfc:0 ~vcfc:0 ~ocf_flag:false data in
89
89
let encoded = Tm.encode frame in
90
-
match Tm.decode ~frame_len:(String.length encoded) encoded with
90
+
match
91
+
Tm.decode ~frame_len:(String.length encoded) ~expect_ocf:false encoded
92
+
with
91
93
| Ok decoded ->
92
94
if decoded.data <> data then fail "data mismatch in roundtrip"
93
95
| Error _ -> fail "decode failed for valid frame")