write(::IO, ::IO) tests

base/filesystem.jl

@@ -39,7 +39,7 @@ export File,
  S_IROTH, S_IWOTH, S_IXOTH, S_IRWXO
 
 import Base: uvtype, uvhandle, eventloop, fd, position, stat, close,
- write, read, read!, isopen, show,
+ write, read, readavailable, read!, isopen, show,
  seek, seekend, skip, eof,
  check_open, _sizeof_uv_fs, uv_error, UVError
 
@@ -181,6 +181,7 @@ function readbytes!(f::File, b::Array{UInt8}, nb=length(b))
  return ret
 end
 read(io::File) = read!(io, Array(UInt8, nb_available(io)))
+readavailable(io::File) = read(io)
 read(io::File, nb::Integer) = read!(io, Array(UInt8, min(nb, nb_available(io))))
 
 const SEEK_SET = Int32(0)

base/iobuffer.jl

@@ -337,6 +337,7 @@ function readbytes!(io::AbstractIOBuffer, b::Array{UInt8}, nb=length(b))
  return nr
 end
 read(io::AbstractIOBuffer) = read!(io, Array(UInt8, nb_available(io)))
+readavailable(io::AbstractIOBuffer) = read(io)
 read(io::AbstractIOBuffer, nb::Integer) = read!(io, Array(UInt8, min(nb, nb_available(io))))
 
 function search(buf::IOBuffer, delim::UInt8)

base/iostream.jl

@@ -158,6 +158,8 @@ end
 # num bytes available without blocking
 nb_available(s::IOStream) = ccall(:jl_nb_available, Int32, (Ptr{Void},), s.ios)
 
+readavailable(s::IOStream) = read!(s, Vector{UInt8}(nb_available(s)))
+
 function read(s::IOStream, ::Type{UInt8})
  b = ccall(:ios_getc, Cint, (Ptr{Void},), s.ios)
  if b == -1

test/read.jl

@@ -287,6 +287,22 @@ for (name, f) in l
  @test readstring(seekend(io())) == ""
  end
 
+
+ verbose && println("$name write(::IOStream, ...)")
+ to = open("$filename.to", "w")
+ write(to, io())
+ close(to)
+ @test readstring("$filename.to") == text
+ cleanup()
+ verbose && println("$name write(filename, ...)")
+ write("$filename.to", io())
+ @test readstring("$filename.to") == text
+ cleanup()
+
+ verbose && println("$name write(::IOBuffer, ...)")
+ to = IOBuffer(Vector{UInt8}(copy(text)), false, true)
+ write(to, io())
+ @test takebuf_string(to) == text
  cleanup()
 end