Last updated on 2024-12-26 03:50:06 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.6.1 | 3.81 | 38.00 | 41.81 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.6.1 | 3.07 | 29.81 | 32.88 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.6.1 | 74.79 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.6.1 | 70.60 | OK | |||
| r-devel-windows-x86_64 | 0.6.1 | 5.00 | 60.00 | 65.00 | OK | |
| r-patched-linux-x86_64 | 0.6.1 | 4.12 | 40.92 | 45.04 | OK | |
| r-release-linux-x86_64 | 0.6.1 | 3.35 | 41.26 | 44.61 | 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 | 5.00 | 58.00 | 63.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 | 66.00 | 72.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 = invokeRestart("eval_error", cnd))})
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[-nr])
19: doWithOneRestart(return(expr), restart)
20: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
21: withRestartList(expr, restarts)
22: 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, eval_error = function(cnd) { signalCondition(cnd) stop(cnd) })
23: evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
24: verify_exec(quo_get_expr(x), quo_get_env(x), replay)
25: with_is_snapshotting(out <- verify_exec(quo_get_expr(x), quo_get_env(x), replay))
26: expect_snapshot({ compare(char1, char2) compare(char1, "foo")})
27: eval(code, test_env)
28: eval(code, test_env)
29: 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)
30: doTryCatch(return(expr), name, parentenv, handler)
31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
32: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
33: doTryCatch(return(expr), name, parentenv, handler)
34: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
35: tryCatchList(expr, classes, parentenv, handlers)
36: 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) { })
37: test_code(desc, code, env = parent.frame(), reporter = reporter)
38: 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") })})
39: eval(code, test_env)
40: eval(code, test_env)
41: 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)
42: doTryCatch(return(expr), name, parentenv, handler)
43: tryCatchOne(expr, names, parentenv, handlers[[1L]])
44: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
45: doTryCatch(return(expr), name, parentenv, handler)
46: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
47: tryCatchList(expr, classes, parentenv, handlers)
48: 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) { })
49: test_code(test = NULL, code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())
50: source_file(path, env = env(env), desc = desc, error_call = error_call)
51: FUN(X[[i]], ...)
52: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)
53: doTryCatch(return(expr), name, parentenv, handler)
54: tryCatchOne(expr, names, parentenv, handlers[[1L]])
55: tryCatchList(expr, classes, parentenv, handlers)
56: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
57: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call))
58: 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)
59: 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)
60: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
61: test_check("waldo")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault
Flavor: r-devel-linux-x86_64-debian-clang