From e90ec35fd9be0a7f796b9b047910a72274bac24a Mon Sep 17 00:00:00 2001
From: Sam O'Connor <sam@octech.com.au>
Date: Mon, 18 Jan 2016 08:22:19 +1100
Subject: [PATCH] test/read/jl: close temporary test streams

---
 test/read.jl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/test/read.jl b/test/read.jl
index 7c8cb68b80ff51..f214ea82c0bba3 100644
--- a/test/read.jl
+++ b/test/read.jl
@@ -62,7 +62,11 @@ push!(l, ("Pipe", io))
 
 end
 
-for (name, io) in l
+open_streams = []
+
+for (name, f) in l
+
+    io = ()->(s=f(); push!(open_streams, s); s)
 
     #println("$name readall...")
     @test readall(io()) == text
@@ -149,6 +153,10 @@ for (name, io) in l
     end
 end
 
+for s in open_streams
+    try close(s) end
+end
+
 for tsk in tasks
     wait(tsk)
 end