Licklider Transmission Protocol (CCSDS 734.1-B) for reliable DTN links
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/ion/test.ml
+6
-6
test/interop/ion/test.ml
···
48
48
49
49
(* --- Test: encode matches ION --- *)
50
50
51
-
let test_encode vec () =
51
+
let encode vec () =
52
52
let encoded = Ltp.encode_sdnv vec.value in
53
53
Alcotest.(check int)
54
54
(vec.name ^ ": length") vec.length (String.length encoded);
···
59
59
60
60
(* --- Test: decode ION bytes recovers value --- *)
61
61
62
-
let test_decode vec () =
62
+
let decode vec () =
63
63
let bytes = string_of_hex vec.encoded_hex in
64
64
match Ltp.decode_sdnv bytes 0 with
65
65
| Error e -> Alcotest.failf "%s: decode failed: %s" vec.name e
···
71
71
72
72
(* --- Test: roundtrip encode -> decode --- *)
73
73
74
-
let test_roundtrip vec () =
74
+
let roundtrip vec () =
75
75
let encoded = Ltp.encode_sdnv vec.value in
76
76
match Ltp.decode_sdnv encoded 0 with
77
77
| Error e -> Alcotest.failf "%s: roundtrip decode failed: %s" vec.name e
···
87
87
[
88
88
( "encode",
89
89
List.map
90
-
(fun v -> Alcotest.test_case v.name `Quick (test_encode v))
90
+
(fun v -> Alcotest.test_case v.name `Quick (encode v))
91
91
vectors );
92
92
( "decode",
93
93
List.map
94
-
(fun v -> Alcotest.test_case v.name `Quick (test_decode v))
94
+
(fun v -> Alcotest.test_case v.name `Quick (decode v))
95
95
vectors );
96
96
( "roundtrip",
97
97
List.map
98
-
(fun v -> Alcotest.test_case v.name `Quick (test_roundtrip v))
98
+
(fun v -> Alcotest.test_case v.name `Quick (roundtrip v))
99
99
vectors );
100
100
]