CCSDS Space Data Link Security (355.0-B-2)
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+1
-2
+1
-2
test/test_security.ml
+1
-2
test/test_security.ml
···
236
236
let r = Binary.Reader.of_bytes buf in
237
237
match Security.read_event r with
238
238
| Error (`Invalid_vcid 255) -> ()
239
-
| Error (`Invalid_vcid v) ->
240
-
Alcotest.fail (Fmt.str "wrong vcid value: %d" v)
239
+
| Error (`Invalid_vcid v) -> Alcotest.fail (Fmt.str "wrong vcid value: %d" v)
241
240
| Error `Truncated -> Alcotest.fail "unexpected truncated error"
242
241
| Error (`Invalid_tag t) ->
243
242
Alcotest.fail (Fmt.str "unexpected invalid tag: %d" t)