CCSDS USLP (Unified Space Link Protocol) Transfer Frame- unified TM/TC/AOS
fix: test failures in ocaml-uslp and ocaml-claude-skills
ocaml-uslp: set vcfc to 0 when vcfc_len is 0 (vcfc isn't encoded)
ocaml-claude-skills: copy_file now creates parent directories
+4
-4
+3
-3
fuzz/fuzz_uslp.ml
+3
-3
fuzz/fuzz_uslp.ml
···
7
7
8
8
let () =
9
9
add_test ~name:"uslp roundtrip"
10
-
[ range 0x10000; range 64; range 16; range 0x10000; bytes ]
11
-
(fun scid_val vcid_val map_id_val vcfc data ->
10
+
[ range 0x10000; range 64; range 16; bytes ]
11
+
(fun scid_val vcid_val map_id_val data ->
12
12
match
13
13
(Uslp.scid scid_val, Uslp.vcid vcid_val, Uslp.map_id map_id_val)
14
14
with
15
15
| Some scid, Some vcid, Some map_id -> (
16
-
let frame = Uslp.v ~scid ~vcid ~map_id ~vcfc ~vcfc_len:0 data in
16
+
let frame = Uslp.v ~scid ~vcid ~map_id ~vcfc:0 ~vcfc_len:0 data in
17
17
let encoded = Uslp.encode frame in
18
18
match Uslp.decode encoded with
19
19
| Error e -> fail (Fmt.str "decode failed: %a" Uslp.pp_error e)
+1
-1
test/test_uslp.ml
+1
-1
test/test_uslp.ml
···
10
10
let vcid = Uslp.vcid_exn 5 in
11
11
let map_id = Uslp.map_id_exn 3 in
12
12
let data = "Hello, USLP!" in
13
-
let frame = Uslp.v ~scid ~vcid ~map_id ~vcfc:12345 ~vcfc_len:0 data in
13
+
let frame = Uslp.v ~scid ~vcid ~map_id ~vcfc:0 ~vcfc_len:0 data in
14
14
let encoded = Uslp.encode frame in
15
15
match Uslp.decode encoded with
16
16
| Error e -> Alcotest.failf "decode failed: %a" Uslp.pp_error e