make test more robust

Author: shikokuchuo

tests/tests.R

@@ -513,12 +513,15 @@ nanotestz(close(s1))
 nanotestz(close(s2))
 nanotestz(close(s3))
 
+nanotestxp(cv <- cv())
 nanotesterr(.dispatcher(host = "inproc://hostdisp", url = "inproc://disp/1", tls = ""), "not a valid TLS Configuration")
 nanotestxp(disp <- .dispatcher(host = "inproc://hostdisp", url = "inproc://disp/1", tls = NULL))
 nanotestz(.online(disp))
 nanotestn(.online("a"))
 nanotestnano(s <- socket(protocol = "rep"))
+nanotestz(pipe_notify(s, cv, add = TRUE))
 nanotestz(dial(s, url = "inproc://disp/1"))
+nanotest(wait(cv))
 nanotestz(send(disp, NULL, block = 500L))
 nanotestn(recv(s, block = 500L))
 nanotestz(send(s, TRUE, block = 500L))