CCSDS Command Link Control Word (CLCW) for spacecraft command
clcw: rename test_ functions in interop test (merlint E330)
+6
-6
+6
-6
test/interop/dariol83/test.ml
+6
-6
test/interop/dariol83/test.ml
···
89
89
90
90
let word_of_hex hex = int_of_string ("0x" ^ hex)
91
91
92
-
let test_encode vec () =
92
+
let encode vec () =
93
93
let clcw =
94
94
Clcw.v ~control_word_type:vec.cwt ~version:vec.version
95
95
~status:(Clcw.status_of_int vec.status)
···
104
104
Alcotest.failf "%s: encode mismatch\n expected: %08x\n got: %08x"
105
105
vec.name expected got
106
106
107
-
let test_decode vec () =
107
+
let decode vec () =
108
108
let word = word_of_hex vec.word_hex in
109
109
match Clcw.decode word with
110
110
| Error e -> Alcotest.failf "%s: decode failed: %a" vec.name Clcw.pp_error e
···
133
133
(vec.name ^ ": report_value")
134
134
vec.report_value clcw.report_value
135
135
136
-
let test_roundtrip vec () =
136
+
let roundtrip vec () =
137
137
let clcw =
138
138
Clcw.v ~control_word_type:vec.cwt ~version:vec.version
139
139
~status:(Clcw.status_of_int vec.status)
···
157
157
[
158
158
( "encode",
159
159
List.map
160
-
(fun v -> Alcotest.test_case v.name `Quick (test_encode v))
160
+
(fun v -> Alcotest.test_case v.name `Quick (encode v))
161
161
vectors );
162
162
( "decode",
163
163
List.map
164
-
(fun v -> Alcotest.test_case v.name `Quick (test_decode v))
164
+
(fun v -> Alcotest.test_case v.name `Quick (decode v))
165
165
vectors );
166
166
( "roundtrip",
167
167
List.map
168
-
(fun v -> Alcotest.test_case v.name `Quick (test_roundtrip v))
168
+
(fun v -> Alcotest.test_case v.name `Quick (roundtrip v))
169
169
vectors );
170
170
]