mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-05 19:00:31 -05:00
50 lines
1.1 KiB
OCaml
50 lines
1.1 KiB
OCaml
open CCChar
|
|
module T = (val Containers_testlib.make ~__FILE__ ())
|
|
include T;;
|
|
|
|
eq (Some 'a') (of_int (to_int 'a'));;
|
|
eq None (of_int 257);;
|
|
|
|
q
|
|
(Q.string_of_size (Q.Gen.return 1))
|
|
(fun s -> Stdlib.( = ) (to_string s.[0]) s)
|
|
;;
|
|
|
|
q (Q.int_range 65 90 |> Q.map Char.chr) CCChar.is_uppercase_ascii;;
|
|
|
|
q
|
|
(Q.int_range 0 64 |> Q.map Char.chr)
|
|
(fun c -> not @@ CCChar.is_uppercase_ascii c)
|
|
;;
|
|
|
|
q
|
|
(Q.int_range 91 127 |> Q.map Char.chr)
|
|
(fun c -> not @@ CCChar.is_uppercase_ascii c)
|
|
;;
|
|
|
|
q (Q.int_range 97 122 |> Q.map Char.chr) CCChar.is_lowercase_ascii;;
|
|
|
|
q
|
|
(Q.int_range 0 96 |> Q.map Char.chr)
|
|
(fun c -> not @@ CCChar.is_lowercase_ascii c)
|
|
;;
|
|
|
|
q
|
|
(Q.int_range 123 127 |> Q.map Char.chr)
|
|
(fun c -> not @@ CCChar.is_lowercase_ascii c)
|
|
;;
|
|
|
|
q (Q.int_range 48 57 |> Q.map Char.chr) CCChar.is_digit_ascii;;
|
|
q (Q.int_range 0 47 |> Q.map Char.chr) (fun c -> not @@ CCChar.is_digit_ascii c)
|
|
;;
|
|
|
|
q
|
|
(Q.int_range 58 127 |> Q.map Char.chr)
|
|
(fun c -> not @@ CCChar.is_digit_ascii c)
|
|
;;
|
|
|
|
eq true (String.for_all CCChar.is_whitespace_ascii "\n\t \010\011\012\013");;
|
|
|
|
eq false
|
|
(String.for_all CCChar.is_whitespace_ascii
|
|
"Hello!--NOthina\055kag$$$%^bch\008h")
|