string_runtime_test.ml

module S = Caml_string

let suites = Mt.[
  "string_of_char_array", (fun _ -> 
    Eq(S.caml_string_of_char_array [|'a';'b';'c'|], "abc")
                          );
  "caml_is_printable", (fun _ ->
    Eq(S.caml_is_printable 'a', true)
                       );
  "caml_string_of_bytes", (fun  _ ->

    let f len = 
      let b = Bytes.create 1000 in
      Bytes.unsafe_fill b 0 len 'c';
      (S.bytes_to_string b,  (String.init len (fun _ -> 'c'))) in
    let (a,b) =
      List.split @@ List.map (fun x -> f x ) [1000;1024;1025;4095;4096;5000;10000] in
    Eq(a,b)
                          )
  
]

;;Mt.from_pair_suites __FILE__ suites