robur/ohex
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

encode and encode_into tests

Browse source
This commit is contained in:
Hannes Mehnert 2024-03-14 21:14:35 +01:00
parent ca7658230d
commit 745e816cc2
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
tests.ml
View file

@ -53,6 +53,22 @@ let bad_len_dec_tests =
(fun () -> ignore (Ohex.decode ~skip_whitespace:false s))))) (fun () -> ignore (Ohex.decode ~skip_whitespace:false s)))))
bad_input_ws) bad_input_ws)
let enc_tests = [
"A", "41", 2;
"AA", "4141", 4;
"AAA", "414141", 6;
]
let enc_tests =
List.mapi (fun i (v, hex, l) ->
string_of_int i ^ " is correct", `Quick,
(fun () ->
Alcotest.(check string "encode works" hex (Ohex.encode v));
let buf = Bytes.create l in
Ohex.encode_into v buf ~off:0 ();
Alcotest.(check string "encode_into works" hex (Bytes.unsafe_to_string buf))))
enc_tests
let dec_enc () = let dec_enc () =
let random_string () = let random_string () =
let size = Random.int 128 in let size = Random.int 128 in
@ -79,6 +95,7 @@ let dec_enc () =
let suites = [ let suites = [
"length and decode pass", len_dec_tests ; "length and decode pass", len_dec_tests ;
"bad input", bad_len_dec_tests ; "bad input", bad_len_dec_tests ;
"encode tests", enc_tests ;
"decode encode", [ "decode (encode s) = s", `Quick, dec_enc ]; "decode encode", [ "decode (encode s) = s", `Quick, dec_enc ];
] ]