try to fix test

This commit is contained in:
Simon Cruanes 2022-06-10 23:26:21 -04:00
parent 90a131b7af
commit 259edb965b
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -1176,7 +1176,7 @@ let of_hex s = try Some (of_hex_exn s) with Invalid_argument _ -> None
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 -> \ Q.(string) (fun s -> \
String.for_all (function 'A'..'F'|'a'..'f'|'0'..'9' -> true | _ -> false) @@ to_hex s) CCString.for_all (function 'A'..'F'|'a'..'f'|'0'..'9' -> true | _ -> false) @@ to_hex s)
*) *)
let pp_buf buf s = let pp_buf buf s =