mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
83 lines
1.5 KiB
OCaml
83 lines
1.5 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
|
|
(Stdlib.List.for_all CCChar.is_whitespace_ascii
|
|
[ '\n'; '\t'; ' '; '\010'; '\011'; '\012'; '\013' ])
|
|
;;
|
|
|
|
eq false
|
|
(Stdlib.List.exists CCChar.is_whitespace_ascii
|
|
[
|
|
'H';
|
|
'e';
|
|
'l';
|
|
'l';
|
|
'o';
|
|
'!';
|
|
'-';
|
|
'-';
|
|
'N';
|
|
'O';
|
|
't';
|
|
'h';
|
|
'i';
|
|
'n';
|
|
'a';
|
|
'\055';
|
|
'k';
|
|
'a';
|
|
'g';
|
|
'$';
|
|
'$';
|
|
'$';
|
|
'%';
|
|
'^';
|
|
'b';
|
|
'c';
|
|
'h';
|
|
'\008';
|
|
'h';
|
|
])
|