CRAN Package Check Results for Package waldo

Last updated on 2024-12-24 20:49:33 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.25 30.61 33.86 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 3.37 40.97 44.34 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

Check Details

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