CRAN Package Check Results for Package waldo

Last updated on 2025-12-04 07:51:20 CET.

Flavor	Version	Tinstall	Tcheck	Ttotal	Status	Flags
r-devel-linux-x86_64-debian-clang	0.6.2	4.44	42.83	47.27	ERROR
r-devel-linux-x86_64-debian-gcc	0.6.2	3.26	32.68	35.94	OK
r-devel-linux-x86_64-fedora-clang	0.6.2			76.37	OK
r-devel-linux-x86_64-fedora-gcc	0.6.2			72.42	OK
r-devel-windows-x86_64	0.6.2	5.00	58.00	63.00	OK
r-patched-linux-x86_64	0.6.2	3.54	42.57	46.11	OK
r-release-linux-x86_64	0.6.2	3.96	43.90	47.86	OK
r-release-macos-arm64	0.6.2				OK
r-release-macos-x86_64	0.6.2	6.00	47.00	53.00	OK
r-release-windows-x86_64	0.6.2	6.00	61.00	67.00	OK
r-oldrel-macos-arm64	0.6.2				OK
r-oldrel-macos-x86_64	0.6.2	10.00	68.00	78.00	OK
r-oldrel-windows-x86_64	0.6.2	7.00	72.00	79.00	OK

Check Details

Version: 0.6.2
Check: tests
Result: ERROR Running ‘testthat.R’ [10s/12s] 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, error = function (cnd) rlang::entrace(cnd), 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_(x, cran = cran, error = error, transform = transform, variant = variant, cnd_class = cnd_class) 24: expect_snapshot({ compare(char1, char2) compare(char1, "foo")}) 25: eval(code, test_env) 26: eval(code, test_env) 27: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 28: doTryCatch(return(expr), name, parentenv, handler) 29: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 30: tryCatchList(expr, classes, parentenv, handlers) 31: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 32: doWithOneRestart(return(expr), restart) 33: withOneRestart(expr, restarts[[1L]]) 34: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 35: test_code(code, parent.frame()) 36: 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") })}) 37: eval(code, test_env) 38: eval(code, test_env) 39: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 40: doTryCatch(return(expr), name, parentenv, handler) 41: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 42: tryCatchList(expr, classes, parentenv, handlers) 43: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 44: doWithOneRestart(return(expr), restart) 45: withOneRestart(expr, restarts[[1L]]) 46: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 47: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 48: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 49: FUN(X[[i]], ...) 50: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 51: doTryCatch(return(expr), name, parentenv, handler) 52: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 53: tryCatchList(expr, classes, parentenv, handlers) 54: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 55: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 56: 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, shuffle = shuffle, error_call = error_call) 57: 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, shuffle = shuffle) 58: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 59: test_check("waldo") An irrecoverable exception occurred. R is aborting now ... Segmentation fault Flavor: r-devel-linux-x86_64-debian-clang