trying to make a test that works on all systems
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13678 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
1f06400ce4
commit
aac1147965
|
@ -16,7 +16,7 @@ let main () =
|
||||||
(fun () ->
|
(fun () ->
|
||||||
Thread.delay 1.0;
|
Thread.delay 1.0;
|
||||||
print_endline "closing fd...";
|
print_endline "closing fd...";
|
||||||
Unix.close rd;
|
Unix.close wr;
|
||||||
)
|
)
|
||||||
() in
|
() in
|
||||||
let buf = String.create 10 in
|
let buf = String.create 10 in
|
||||||
|
|
Loading…
Reference in New Issue