Update tests

Author: shikokuchuo

tests/tests.R

@@ -298,9 +298,7 @@ test_class("recvAio", cs <- request(.context(req$socket), data = TRUE, cv = NA))
 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_equal(5L, request(.context(req$socket), data = TRUE, timeout = 5, id = 12L)[])
 test_zero(reap(ctxn))
 test_equal(reap(ctxn), 7L)
 test_zero(pipe_notify(rep, cv, add = TRUE, flag = TRUE))