simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add test for String.to_hex

Browse source
This commit is contained in:
Simon Cruanes 2022-06-09 21:11:47 -04:00
parent 911e9faff7
commit 977e0c9577
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/core/CCString.ml
View file

@ -1173,9 +1173,11 @@ let of_hex s = try Some (of_hex_exn s) with Invalid_argument _ -> None
*) *)
(*$Q (*$Q
Q.(string) (fun s -> \ Q.(string) (fun s -> \
of_hex_exn (to_hex s) = s) of_hex_exn (to_hex s) = s)
*) Q.(string) (fun s -> \
String.for_all (function 'A'..'F'|'a'..'f'|'0'..'9' -> true | _ -> false) @@ to_hex s)
*)
let pp_buf buf s = let pp_buf buf s =
Buffer.add_char buf '"'; Buffer.add_char buf '"';