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


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

(* TEST
 include unix;
 hasunix;
 {
   bytecode;
 }{
   native;
 }
*)

let _ =
  let f = Unix.dup ~cloexec:true Unix.stdout in
  let txt = "Some output\n" in
  ignore (Unix.write_substring f txt 0 (String.length txt));
  Unix.close f