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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(* TEST
* hasunix
include unix
** bytecode
** native
*)

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

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