CCSDS File Delivery Protocol (CCSDS 727.0-B-5) for space file transfer
irmin: remove Any wrapper — step/up return cursor directly
+2
-1
+2
-1
test/interop/dariol83/test.ml
+2
-1
test/interop/dariol83/test.ml
···
145
145
}
146
146
in
147
147
let dir = Cfdp.Keep_alive (Cfdp.keep_alive r.progress) in
148
-
let got = Cfdp.encode config hdr (Cfdp.Pdu_directive (hdr, dir)) in
148
+
let pdu = Cfdp.Pdu_directive (hdr, dir) in
149
+
let got = Cfdp.encode config pdu in
149
150
let got_hex = string_to_hex got in
150
151
if got_hex <> r.pdu_hex then
151
152
Alcotest.failf "%s: encode mismatch\n expected: %s\n got: %s"