Last updated on 2024-10-02 15:49:35 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.2.0 | 3.35 | 33.71 | 37.06 | OK | --no-tests |
| r-devel-linux-x86_64-debian-gcc | 1.2.0 | 2.22 | 25.62 | 27.84 | OK | --no-tests |
| r-devel-linux-x86_64-fedora-clang | 1.2.0 | 60.41 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 1.2.0 | 72.42 | OK | |||
| r-devel-windows-x86_64 | 1.2.0 | 4.00 | 75.00 | 79.00 | OK | |
| r-patched-linux-x86_64 | 1.2.0 | 4.34 | 31.70 | 36.04 | OK | --no-tests |
| r-release-linux-x86_64 | 1.2.0 | 3.10 | 31.30 | 34.40 | OK | --no-tests |
| r-release-macos-arm64 | 1.2.0 | 62.00 | OK | |||
| r-release-macos-x86_64 | 1.2.0 | 129.00 | OK | |||
| r-release-windows-x86_64 | 1.2.0 | 5.00 | 65.00 | 70.00 | ERROR | |
| r-oldrel-macos-arm64 | 1.2.0 | 64.00 | OK | |||
| r-oldrel-macos-x86_64 | 1.2.0 | 87.00 | OK | |||
| r-oldrel-windows-x86_64 | 1.2.0 | 5.00 | 78.00 | 83.00 | OK |
Version: 1.2.0
Check: tests
Result: ERROR
Running 'tests.R' [2s]
Running the tests in 'tests/tests.R' failed.
Complete output:
> library(mirai)
>
> nanotest <- function(x) invisible(isTRUE(x) || {print(x); stop("the above was returned instead of TRUE")})
> nanotestn <- function(x) invisible(is.null(x) || {print(x); stop("the above was returned instead of NULL")})
> nanotestz <- function(x) invisible(x == 0L || {print(x); stop("the above was returned instead of 0L")})
> nanotesto <- function(x) invisible(x == 1L || {print(x); stop("the above was returned instead of 1L")})
> nanotesti <- function(a, b) invisible(identical(a, b) || {print(a); print(b); stop("the above arguments were not identical")})
> nanotestp <- function(x) invisible(is.character(capture.output(print(x))) || stop("print output of expression cannot be captured as a character value"))
> nanotesterr <- function(x, e = "") {
+ x <- tryCatch(x, error = identity)
+ inherits(x, "error") && grepl(e, x[["message"]], fixed = TRUE) || stop("expected error message containing '", e, "' was not generated")
+ invisible(TRUE)
+ }
> connection <- !is_error_value(collect_mirai(mirai(TRUE, .timeout = 2000L)))
>
> # core tests
> nanotest(is.list(status()))
> nanotestz(status()[["connections"]])
> nanotestz(status()[["daemons"]])
> nanotestz(daemons(0L))
> nanotesterr(daemons(url = "URL"), "Invalid argument")
> nanotesterr(daemons(-1), "zero or greater")
> nanotesterr(daemons(n = 0, url = "ws://localhost:0"), "1 or greater")
> nanotesterr(daemons(raw(0L)), "must be numeric")
> nanotesterr(daemons(n = 1, maxtasks = "100"), "'...' arguments")
> nanotesterr(dispatcher(client = "URL"), "at least one")
> nanotesterr(daemon("URL"), "Invalid argument")
> nanotest(is.character(mlc <- launch_remote("ws://[::1]:5555")))
> nanotest(inherits(mlc, "miraiLaunchCmd"))
> nanotestp(mlc)
> nanotesterr(launch_remote("ws://[::1]:5555", remote = remote_config(command = "echo", args = "invalid")), "must be an element")
> nanotesterr(launch_remote(c("tcp://localhost:5555", "tcp://localhost:6666", "tcp://localhost:7777"), remote = remote_config(command = "echo", args = list(c("test", "."), c("test", ".")))), "must be of length 1 or the same length")
> nanotesterr(launch_local(1L), "requires daemons to be set")
> nanotest(is.character(host_url()))
> nanotest(startsWith(host_url(ws = TRUE, tls = TRUE), "wss"))
> nanotest(startsWith(host_url(tls = TRUE), "tls"))
> nanotest(grepl("5555", host_url(port = 5555), fixed = TRUE))
> nanotest(is.list(ssh_config("ssh://remotehost")))
> nanotest(is.list(ssh_config("ssh://remotehost", tunnel = TRUE, host = "tls+tcp://127.0.0.1:5555")))
> nanotesterr(ssh_config("ssh://remotehost", tunnel = TRUE), "'host' must be specified")
> nanotest(is_mirai_interrupt(r <- mirai:::mk_interrupt_error()))
> nanotestp(r)
> nanotest(is_mirai_error(r <- `class<-`("Error in: testing\n", c("miraiError", "errorValue", "try-error"))))
> nanotestp(r)
> nanotestn(r$stack.trace)
> nanotest(mirai:::.DollarNames.miraiError(NULL, "s") == "stack.trace")
> nanotest(mirai:::is.promising.mirai())
> nanotestn(nextstream())
> nanotestn(nextget("pid"))
> # mirai and daemons tests
> connection && {
+ Sys.sleep(1L)
+ n <- function() m
+ m <- mirai({
+ Sys.sleep(0.1)
+ q <- m + n() + 2L
+ q / m
+ }, m = 2L, .args = environment(), .timeout = 2000L)
+ nanotest(identical(call_mirai(m), m))
+ nanotest(is_error_value(m$data) || m$data == 3L)
+ Sys.sleep(1L)
+ `lang obj` <- quote(m + n + 2L)
+ args <- c(m = 2L, n = 4L)
+ m <- mirai(.expr = `lang obj`, .args = args, .timeout = 2000L)
+ nanotest(is_error_value(call_mirai_(m)$data) || m$data == 8L)
+ nanotestn(stop_mirai(m))
+ Sys.sleep(1L)
+ nanotesto(d <- daemons(1L, dispatcher = FALSE, seed = 1546L))
+ nanotestp(d)
+ me <- mirai(mirai::mirai(), .timeout = 2000L)
+ nanotest(is_mirai_error(call_mirai(me)$data) || is_error_value(me$data))
+ nanotest(!is_mirai_interrupt(me$data))
+ nanotest(is_error_value(me[["data"]]))
+ nanotestp(me)
+ nanotestp(me$data)
+ df <- data.frame(a = 1, b = 2)
+ dm <- mirai(as.matrix(df), .args = list(df = df), .timeout = 2000L)
+ nanotest(is_mirai(call_mirai(dm)))
+ nanotest(!unresolved(dm))
+ nanotest(is_error_value(dm$data) || is.matrix(dm$data))
+ nanotest(is.integer(status()[["connections"]]))
+ nanotest(is.character(status()[["daemons"]]))
+ nanotestz(daemons(0L))
+ Sys.sleep(1L)
+ nanotesto(daemons(1L, dispatcher = FALSE, idletime = 500L, timerstart = 1L, cleanup = FALSE, output = TRUE, .compute = "new"))
+ nanotest(is.character(nextget("urls", .compute = "new")))
+ nanotest(is.integer(nextstream(.compute = "new")))
+ Sys.sleep(1.5)
+ nanotestn(everywhere({}, as.environment(df), .compute = "new"))
+ mn <- mirai("test1", .compute = "new")
+ mp <- mirai(b + 1, .compute = "new")
+ Sys.sleep(1L)
+ nanotest(unresolved(mn$data) || mn$data == "test1")
+ nanotest(unresolved(mp$data) || mp$data == 3)
+ Sys.sleep(1L)
+ nanotest(is.integer(status(.compute = "new")[["connections"]]))
+ nanotestz(daemons(0L, .compute = "new"))
+ }
Flavor: r-release-windows-x86_64