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-0dff7051ff02
master
Damien Doligez 2013-05-15 14:08:08 +00:00
parent 1f06400ce4
commit aac1147965
1 changed files with 1 additions and 1 deletions

View File

@ -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