examples/test_unit.ml

   1 open Printf
   2
   3 let printfn fmt = ksprintf print_endline fmt
   4
   5 external outdated_enums : unit -> string list = "caml_curl_outdated_enums"
   6
   7 let () =
   8   match outdated_enums () with
   9   | [] -> exit 0
  10   | l ->
  11     print_endline "need update for :";
  12     List.iter print_endline l;
  13     exit 1