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")