update tests

Author: shikokuchuo

tests/tests.R

@@ -199,10 +199,11 @@ nanotesterr(req$opt("false", list()), "type")
 
 nanotestaio(r <- recv_aio(rep, timeout = 500))
 nanotestz(req$send("", block = 500))
-p <- tryCatch(collect_pipe(rep), error = function(e) NULL)
-if (!is.null(p)) nanotestnano(p)
+p <- tryCatch(collect_pipe(r), error = function(e) NULL)
 nanotestp(p)
-nanotestz(send(rep, "", block = 500))
+if (!is.null(p)) nanotestnano(p)
+nanotestaio(r <- send_aio(rep, "", timeout = 500))
+nanotesterr(collect_pipe(r), "valid")
 nanotestnn(req$recv())
 
 nanotestnano(ctx <- context(rep))
@@ -523,6 +524,7 @@ nanotesterr(send(fakestream, "test"), "valid")
 nanotesterr(send_aio(fakestream, "test"), "valid")
 nanotesterr(recv(fakestream), "valid")
 nanotesterr(recv_aio(fakestream), "valid")
+nanotesterr(collect_pipe(fakestream), "valid")
 nanotesterr(opt(fakestream, name = "test") <- "test", "valid")
 nanotesterr(opt(fakestream, name = "test"), "valid")
 nanotesterr(close(fakestream), "active Stream")