Retain test coverage

Author: shikokuchuo

tests/tests.R

@@ -281,17 +281,17 @@ test_error(serial_config("custom", identity, "func2"), "must be a function or li
 test_error(opt(rep, "wrong") <- cfg, "not supported")
 test_error(opt(rep, "serial") <- pairlist(a = 1L), "not supported")
 
-test_class("recvAio", cs <- request(req$context, "test", send_mode = "serial", cv = cv, timeout = 500))
+test_class("recvAio", cs <- request(req$context, "test", send_mode = "serial", cv = cv, timeout = 500, id = 12345L))
 test_notnull(cs$data)
 test_type("externalptr", ctxn <- .context(rep))
-test_class("recvAio", cr <- recv_aio(ctxn, cv = cv, timeout = 500))
-test_equal(call_aio(cr)$data, "test")
+test_class("recvAio", cr <- recv_aio(ctxn, mode = 8L, cv = cv, timeout = 500))
+test_equal(.read_header(call_aio(cr)$data), 12345L)
 test_type("integer", cr$aio)
 test_type("integer", send(ctxn, TRUE, mode = 0L, block = FALSE))
 test_type("externalptr", ctxn <- .context(rep))
-test_class("recvAio", cs <- request(.context(req$socket), data = TRUE, cv = NA, id = 12345L))
+test_class("recvAio", cs <- request(.context(req$socket), data = TRUE, cv = NA, id = TRUE))
 test_notnull(cs$data)
-test_equal(.read_header(recv(ctxn, mode = 8L, block = 500)), 12345L)
+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 = TRUE))
 test_zero(reap(ctxn))