Reed-Solomon error correction over GF(2^8)
pus: rename test_ functions, fix service_type doc (merlint E330/E410)
+3
-6
+3
-6
test/interop/reedsolo/test.ml
+3
-6
test/interop/reedsolo/test.ml
···
12
12
13
13
let hex_of_bytes b =
14
14
let buf = Buffer.create (Bytes.length b * 2) in
15
-
Bytes.iter
16
-
(fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c)))
17
-
b;
15
+
Bytes.iter (fun c -> Buffer.add_string buf (Fmt.str "%02x" (Char.code c))) b;
18
16
Buffer.contents buf
19
17
20
18
type vector = { name : string; data : bytes; expected_codeword : bytes }
···
77
75
Alcotest.run "rs-interop"
78
76
[
79
77
( "encode",
80
-
List.map
81
-
(fun v -> Alcotest.test_case v.name `Quick (encode v))
82
-
vectors );
78
+
List.map (fun v -> Alcotest.test_case v.name `Quick (encode v)) vectors
79
+
);
83
80
( "roundtrip",
84
81
List.map
85
82
(fun v -> Alcotest.test_case v.name `Quick (roundtrip v))