Update tests

Author: shikokuchuo

tests/tests.R

@@ -299,8 +299,6 @@ test_notnull(cs$data)
 test_true(recv(ctxn, block = 500))
 test_zero(send(ctxn, TRUE, mode = 1L, block = 500))
 test_class("recvAio", cs <- request(.context(req$socket), data = TRUE, timeout = 5, id = 12L))
-test_equal(5L, cs[])
-test_identical(c(0L, 12L), recv(ctxn, mode = 5L, block = 500))
 test_zero(reap(ctxn))
 test_equal(reap(ctxn), 7L)
 test_zero(pipe_notify(rep, cv, add = TRUE, flag = TRUE))
@@ -390,6 +388,9 @@ test_class("nanoMonitor", m <- monitor(poly, cv))
 test_print(m)
 test_zero(listen(poly))
 test_null(read_monitor(m))
+test_class("sendAio", send_aio(poly, "one", timeout = 50))
+invisible(gc())
+test_null(msleep(55))
 test_zero(dial(poly1))
 test_zero(dial(poly2))
 test_true(wait(cv))