CCSDS Frame Security Report (FSR)
rename test_ functions in interop tests (merlint E330)
Removes redundant test_ prefix from functions in interop test.ml files
across the monorepo: test_decode → decode, test_encode → encode, etc.
+6
-6
+6
-6
test/interop/cryptolib/test.ml
+6
-6
test/interop/cryptolib/test.ml
···
53
53
54
54
let word_of_hex hex = Int32.of_string ("0x" ^ hex)
55
55
56
-
let test_encode vec () =
56
+
let encode vec () =
57
57
let fsr =
58
58
Fsr.v ~alarm:vec.alarm ~bad_sn:vec.bad_sn ~bad_mac:vec.bad_mac
59
59
~bad_sa:vec.bad_sa ~spi:vec.spi ~arsn_lsb:vec.arsn_lsb
···
64
64
Alcotest.failf "%s: encode mismatch\n expected: %08lx\n got: %08lx"
65
65
vec.name expected got
66
66
67
-
let test_decode vec () =
67
+
let decode vec () =
68
68
let word = word_of_hex vec.word_hex in
69
69
match Fsr.decode word with
70
70
| Error e -> Alcotest.failf "%s: decode failed: %a" vec.name Fsr.pp_error e
···
76
76
Alcotest.(check int) (vec.name ^ ": spi") vec.spi fsr.spi;
77
77
Alcotest.(check int) (vec.name ^ ": arsn_lsb") vec.arsn_lsb fsr.arsn_lsb
78
78
79
-
let test_roundtrip vec () =
79
+
let roundtrip vec () =
80
80
let fsr =
81
81
Fsr.v ~alarm:vec.alarm ~bad_sn:vec.bad_sn ~bad_mac:vec.bad_mac
82
82
~bad_sa:vec.bad_sa ~spi:vec.spi ~arsn_lsb:vec.arsn_lsb
···
95
95
[
96
96
( "encode",
97
97
List.map
98
-
(fun v -> Alcotest.test_case v.name `Quick (test_encode v))
98
+
(fun v -> Alcotest.test_case v.name `Quick (encode v))
99
99
vectors );
100
100
( "decode",
101
101
List.map
102
-
(fun v -> Alcotest.test_case v.name `Quick (test_decode v))
102
+
(fun v -> Alcotest.test_case v.name `Quick (decode v))
103
103
vectors );
104
104
( "roundtrip",
105
105
List.map
106
-
(fun v -> Alcotest.test_case v.name `Quick (test_roundtrip v))
106
+
(fun v -> Alcotest.test_case v.name `Quick (roundtrip v))
107
107
vectors );
108
108
]