Last updated on 2025-02-07 08:51:38 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.6.1 | 3.41 | 38.41 | 41.82 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.6.1 | 3.05 | 30.36 | 33.41 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.6.1 | 75.17 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.6.1 | 72.26 | OK | |||
| r-devel-windows-x86_64 | 0.6.1 | 6.00 | 61.00 | 67.00 | OK | |
| r-patched-linux-x86_64 | 0.6.1 | 3.06 | 40.01 | 43.07 | OK | |
| r-release-linux-x86_64 | 0.6.1 | 4.11 | 40.09 | 44.20 | OK | |
| r-release-macos-arm64 | 0.6.1 | 24.00 | OK | |||
| r-release-macos-x86_64 | 0.6.1 | 45.00 | OK | |||
| r-release-windows-x86_64 | 0.6.1 | 7.00 | 57.00 | 64.00 | OK | |
| r-oldrel-macos-arm64 | 0.6.1 | 27.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.6.1 | 44.00 | OK | |||
| r-oldrel-windows-x86_64 | 0.6.1 | 6.00 | 63.00 | 69.00 | OK |
Version: 0.6.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [9s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(waldo)
Attaching package: 'waldo'
The following object is masked from 'package:testthat':
compare
>
> test_check("waldo")
*** caught segfault ***
address (nil), cause 'unknown'
Traceback:
1: vapply(x, is.null, logical(1))
2: compact(list(...))
3: merge_lists(opts, attr(x, "waldo_opts"), attr(y, "waldo_opts"), opts[opts$user_specified])
4: compare_structure(x, y, paths = c(x_arg, y_arg), opts = opts)
5: compare(char1, char2)
6: eval(expr, envir)
7: eval(expr, envir)
8: withVisible(eval(expr, envir))
9: withCallingHandlers(code, message = function (cnd) { watcher$capture_plot_and_output() if (on_message$capture) { watcher$push(cnd) } if (on_message$silence) { invokeRestart("muffleMessage") }}, warning = function (cnd) { if (getOption("warn") >= 2 || getOption("warn") < 0) { return() } watcher$capture_plot_and_output() if (on_warning$capture) { cnd <- sanitize_call(cnd) watcher$push(cnd) } if (on_warning$silence) { invokeRestart("muffleWarning") }}, error = function (cnd) { watcher$capture_plot_and_output() cnd <- sanitize_call(cnd) watcher$push(cnd) switch(on_error, continue = invokeRestart("eval_continue"), stop = invokeRestart("eval_stop"), error = NULL)})
10: eval(call)
11: eval(call)
12: with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers)
13: doWithOneRestart(return(expr), restart)
14: withOneRestart(expr, restarts[[1L]])
15: withRestartList(expr, restarts[-nr])
16: doWithOneRestart(return(expr), restart)
17: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
18: withRestartList(expr, restarts)
19: withRestarts(with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE)
20: evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
21: verify_exec(quo_get_expr(x), quo_get_env(x), replay)
22: with_is_snapshotting(out <- verify_exec(quo_get_expr(x), quo_get_env(x), replay))
23: expect_snapshot({ compare(char1, char2) compare(char1, "foo")})
24: eval(code, test_env)
25: eval(code, test_env)
26: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
27: doTryCatch(return(expr), name, parentenv, handler)
28: tryCatchOne(expr, names, parentenv, handlers[[1L]])
29: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
30: doTryCatch(return(expr), name, parentenv, handler)
31: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
32: tryCatchList(expr, classes, parentenv, handlers)
33: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
34: test_code(desc, code, env = parent.frame(), reporter = reporter)
35: test_that("can compare CHARSXP", { skip_if(interactive()) char1 <- readRDS(test_path("charsxp-1.rds")) char2 <- readRDS(test_path("charsxp-2.rds")) expect_snapshot({ compare(char1, char2) compare(char1, "foo") })})
36: eval(code, test_env)
37: eval(code, test_env)
38: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
39: doTryCatch(return(expr), name, parentenv, handler)
40: tryCatchOne(expr, names, parentenv, handlers[[1L]])
41: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
42: doTryCatch(return(expr), name, parentenv, handler)
43: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
44: tryCatchList(expr, classes, parentenv, handlers)
45: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
46: test_code(test = NULL, code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())
47: source_file(path, env = env(env), desc = desc, error_call = error_call)
48: FUN(X[[i]], ...)
49: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)
50: doTryCatch(return(expr), name, parentenv, handler)
51: tryCatchOne(expr, names, parentenv, handlers[[1L]])
52: tryCatchList(expr, classes, parentenv, handlers)
53: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
54: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call))
55: test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, desc = desc, load_package = load_package, error_call = error_call)
56: test_files(test_dir = path, test_paths = test_paths, test_package = package, reporter = reporter, load_helpers = load_helpers, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, load_package = load_package, parallel = parallel)
57: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
58: test_check("waldo")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault
Flavor: r-devel-linux-x86_64-debian-clang