mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
fix test
This commit is contained in:
parent
0c7280a8f4
commit
fcd987f1c0
1 changed files with 1 additions and 1 deletions
|
|
@ -410,7 +410,7 @@ val equal_caseless : string -> string -> bool
|
||||||
|
|
||||||
(*$Q
|
(*$Q
|
||||||
Q.(pair printable_string printable_string) (fun (s1,s2) -> \
|
Q.(pair printable_string printable_string) (fun (s1,s2) -> \
|
||||||
equal_caseless s1 s2 = equal (lowercase_ascii s1)(lowercase_ascii s2))
|
equal_caseless s1 s2 = (lowercase_ascii s1=lowercase_ascii s2))
|
||||||
Q.(printable_string) (fun s -> equal_caseless s s)
|
Q.(printable_string) (fun s -> equal_caseless s s)
|
||||||
Q.(printable_string) (fun s -> equal_caseless (uppercase_ascii s) s)
|
Q.(printable_string) (fun s -> equal_caseless (uppercase_ascii s) s)
|
||||||
*)
|
*)
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue