Add more tests

Author: shikokuchuo

R/utils.R

@@ -437,7 +437,7 @@ ip_addr <- function() .Call(rnng_ip_addr)
 #' @examples
 #' if (Sys.info()[["sysname"]] == "Linux") {
 #'   rm(list = ls())
-#'   gc()
+#'   invisible(gc())
 #'   .Call(nanonext:::rnng_fini_priors)
 #'   Sys.sleep(1L)
 #'   .Call(nanonext:::rnng_fini)

man/zzz.Rd

@@ -294,10 +294,13 @@ test_equal(call_aio(cr)$data, "test")
 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, msgid = 12L))
+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, msgid = 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))
@@ -658,7 +661,7 @@ if (!interactive() && Sys.getenv("NOT_CRAN") == "true") {
 
 if (Sys.info()[["sysname"]] == "Linux") {
   rm(list = ls())
-  gc()
+  invisible(gc())
   .Call(nanonext:::rnng_fini_priors)
   Sys.sleep(1L)
   .Call(nanonext:::rnng_fini)