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


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

(* TEST
 include unix;
 hasunix;
 {
   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 = []);;