From 9dda1aa67511e8e2d79de7bea6c7565f4ac796e3 Mon Sep 17 00:00:00 2001
From: Damien Doligez <damien.doligez-inria.fr>
Date: Wed, 15 May 2013 09:31:58 +0000
Subject: [PATCH] fixed test to test what happens when we close a file
 descriptor on which another thread is blocked reading

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13675 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 testsuite/tests/lib-threads/close.ml        | 3 +--
 testsuite/tests/lib-threads/close.reference | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/testsuite/tests/lib-threads/close.ml b/testsuite/tests/lib-threads/close.ml
index cf660afa0..559a75b17 100644
--- a/testsuite/tests/lib-threads/close.ml
+++ b/testsuite/tests/lib-threads/close.ml
@@ -14,8 +14,7 @@ let main () =
   let (rd, wr) = Unix.pipe() in
   let t = Thread.create
     (fun () ->
-      ignore (Unix.write wr "0123456789" 0 10);
-      Thread.delay 3.0;
+      Thread.delay 1.0;
       print_endline "closing fd...";
       Unix.close rd;
     )
diff --git a/testsuite/tests/lib-threads/close.reference b/testsuite/tests/lib-threads/close.reference
index 8546485bd..bb5061c8c 100644
--- a/testsuite/tests/lib-threads/close.reference
+++ b/testsuite/tests/lib-threads/close.reference
@@ -1,3 +1,3 @@
 reading...
-read returned
 closing fd...
+read returned