Running ‘tests.R’ [0s/1s]
Running the tests in ‘tests/tests.R’ failed.
Complete output:
  > library(nanonext)
  > nanotest <- function(x) invisible(x || stop("is not TRUE when expected to be TRUE"))
  > nanotestw <- function(x) invisible(suppressWarnings(x) || stop("is not TRUE when expected to be TRUE"))
  > nanotestz <- function(x) invisible(x == 0L || stop("does not equal 0L as expected"))
  > nanotesti <- function(a, b) invisible(identical(a, b) || stop("the arguments are not identical as expected"))
  > nanotestaio <- function(x) invisible(is_aio(x) || stop("is not of class 'recvAio' or 'sendAio' as expected"))
  > nanotestnano <- function(x) invisible(is_nano(x) || stop("does not inherit from class 'nano' as expected"))
  > nanotestn <- function(x) invisible(is.null(x) || stop("is not NULL when expected to be NULL"))
  > nanotestnn <- function(x) invisible(!is.null(x) || stop("is NULL when expected to be not NULL"))
  > nanotestp <- function(x) invisible(is.character(capture.output(print(x))) || stop("print output of expression cannot be captured as a character value"))
  > nanotestxp <- function(x) invisible(typeof(x) == "externalptr" || stop("is not of type 'externalptr' as expected"))
  > nanotesterr <- function(x, e = "")
  +   invisible(grepl(e, tryCatch(x, error = identity)[["message"]], fixed = TRUE) || stop("expected error message '", e, "' not generated"))
  > 
  > nng_version()
  [1] "1.8.0"           "Mbed TLS 2.28.8"
  > nanotestnano(n <- nano("req", listen = "inproc://nanonext", autostart = FALSE))
  > nanotestnano(n1 <- nano("rep", dial = "inproc://nanonext", autostart = FALSE))
  > nanotest(inherits(n, "nanoObject"))
  > nanotest(inherits(n$socket, "nanoSocket"))
  > nanotest(inherits(n$socket, "nano"))
  > nanotestnano(n)
  > n$newmethod <- "doesnotwork"
  > nanotestn(n$newmethod)
  > nanotest(is.integer(attr(n$socket, "id")))
  > nanotest(n$socket$state == "opened")
  > nanotest(n$socket$protocol == "req")
  > nanotest(n$send("not ready", mode = "next") == 8L)
  > nanotest(n$recv() == 11L)
  > nanotestnano(n$opt("recv-size-max", 8192))
  > nanotest(n$opt("recv-size-max") == 8192L)
  > nanotestnano(n$opt("recv-buffer", 8L))
  > nanotestnano(n$opt("req:resend-time", 0L))
  > nanotestnano(n$opt("socket-name", "nano"))
  > nanotest(n$opt("socket-name") == "nano")
  > nanotesterr(n$opt("socket-name", NULL), "argument")
  > nanotestp(n$listener[[1]])
  > nanotest(inherits(n$listener[[1]], "nanoListener"))
  > nanotest(n$listener[[1]]$url == "inproc://nanonext")
  > nanotest(n$listener[[1]]$state == "not started")
  > nanotestnano(n$listener_opt("recv-size-max", 1024)[[1L]])
  > nanotest(n$listener_opt("recv-size-max")[[1L]] == 1024L)
  > nanotesterr(n$listener_opt("false", 100), "supported")
  > nanotesterr(n$listener_opt("false"), "supported")
  > nanotesterr(n$listener_opt("false", "false"), "supported")
  > nanotesterr(n$listener_opt("false", NULL), "supported")
  > nanotesterr(n$listener_opt("false", TRUE), "supported")
  > nanotesterr(n$listener_opt("false", list()), "type")
  > nanotestz(n$listener_start())
  > nanotest(n$listener[[1]]$state == "started")
  > nanotestp(n1$dialer[[1]])
  > nanotest(inherits(n1$dialer[[1]], "nanoDialer"))
  > nanotest(n1$dialer[[1]]$url == "inproc://nanonext")
  > nanotest(n1$dialer[[1]]$state == "not started")
  > nanotestnano(n1$dialer_opt("reconnect-time-min", 1000)[[1L]])
  > nanotest(n1$dialer_opt("reconnect-time-min")[[1L]] == 1000L)
  > nanotestnano(n1$dialer_opt("recv-size-max", 8192)[[1L]])
  > nanotest(n1$dialer_opt("recv-size-max")[[1L]] == 8192L)
  > nanotesterr(n1$dialer_opt("false", 100), "supported")
  > nanotesterr(n1$dialer_opt("false"), "supported")
  > nanotesterr(n1$dialer_opt("false", "false"), "supported")
  > nanotesterr(n1$dialer_opt("false", NULL), "supported")
  > nanotesterr(n1$dialer_opt("false", TRUE), "supported")
  > nanotesterr(n1$dialer_opt("false", list()), "type")
  > nanotestz(n1$dialer_start())
  > nanotest(n1$dialer[[1]]$state == "started")
  > 
  > nanotesterr(n$send(list(), mode = "raw"), "atomic vector type")
  > nanotesterr(n$recv(mode = "none"), "mode")
  > nanotesterr(n$recv(mode = "c"), "mode")
  > nanotestaio(raio <- n1$recv_aio(timeout = 1L))
  Error in recv_aio(socket, mode = mode, timeout = timeout) : 
    R_ExternalPtrTag: argument of type NILSXP is not an external pointer
  Calls: nanotestaio -> is_aio -> <Anonymous> -> recv_aio
  Execution halted