ocaml/testsuite/tests/lib-unix/common/getaddrinfo.ml

(* TEST
* hasunix
include unix
*)

let () =
  let x = Unix.getaddrinfo "\000" "" [] in
  Gc.full_major ();
  assert (x = []);;

let () =
  let x = Unix.getaddrinfo "" "\000" [] in
  Gc.full_major ();
  assert (x = []);;