···145145 }
146146 in
147147 let dir = Cfdp.Keep_alive (Cfdp.keep_alive r.progress) in
148148- let got = Cfdp.encode config hdr (Cfdp.Pdu_directive (hdr, dir)) in
148148+ let pdu = Cfdp.Pdu_directive (hdr, dir) in
149149+ let got = Cfdp.encode config pdu in
149150 let got_hex = string_to_hex got in
150151 if got_hex <> r.pdu_hex then
151152 Alcotest.failf "%s: encode mismatch\n expected: %s\n got: %s"