examples/test_unit.ml

   1 open Printf
   2
   3 let printfn fmt = ksprintf print_endline fmt
   4
   5 external check_enums : unit -> (int * int * string) array = "caml_curl_check_enums"
   6
   7 let () =
   8   let ok = ref true in
   9   Array.iter begin fun (last_used,last,name) ->
  10     if last_used + 1 <> last then
  11     begin
  12       ok := false;
  13       printfn "Need update for %s" name
  14     end
  15   end (check_enums ());
  16   exit (if !ok then 0 else 1)