Running ‘testthat.R’ [16s/54s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(targets)
  
  Attaching package: 'targets'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > 
  > test_check("targets")
  
   *** caught segfault ***
  address 82325c0, cause 'invalid permissions'
  
  Traceback:
   1: dyn.load(file, DLLpath = DLLpath, ...)
   2: library.dynam(lib, package, package.lib)
   3: loadNamespace(package, ...)
   4: doTryCatch(return(expr), name, parentenv, handler)
   5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   6: tryCatchList(expr, classes, parentenv, handlers)
   7: tryCatch(loadNamespace(package, ...), error = function(e) e)
   8: requireNamespace(pkg, quietly = TRUE)
   9: skip_if_not_installed("clustermq")
  10: eval(code, test_env)
  11: eval(code, test_env)
  12: 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)
  13: doTryCatch(return(expr), name, parentenv, handler)
  14: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  15: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: 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) {    })
  20: test_code(desc, code, env = parent.frame(), reporter = reporter)
  21: testthat::test_that("workerless deployment works", {    skip_on_os("windows")    skip_if_not_installed("clustermq")    x <- tar_target_raw("x", quote(1L), deployment = "main")    y <- tar_target_raw("y", quote(x), deployment = "main")    z <- tar_target_raw("z", quote(x + 1L), deployment = "main")    pipeline <- pipeline_init(list(x, y, z))    clustermq_init(pipeline)$run()    expect_equal(target_read_value(x)$object, 1L)    expect_equal(target_read_value(y)$object, 1L)    expect_equal(target_read_value(z)$object, 2L)    x <- tar_target_raw("x", quote(1L), deployment = "main")    y <- tar_target_raw("y", quote(x), deployment = "main")    z <- tar_target_raw("z", quote(x + 1L), deployment = "main")    pipeline <- pipeline_init(list(x, y, z))    out <- clustermq_init(pipeline)    out$run()    built <- names(out$scheduler$progress$built$envir)    expect_equal(built, character(0))})
  22: eval(code, envir = parent.frame())
  23: eval(code, envir = parent.frame())
  24: tar_dir(testthat::test_that("workerless deployment works", {    skip_on_os("windows")    skip_if_not_installed("clustermq")    x <- tar_target_raw("x", quote(1L), deployment = "main")    y <- tar_target_raw("y", quote(x), deployment = "main")    z <- tar_target_raw("z", quote(x + 1L), deployment = "main")    pipeline <- pipeline_init(list(x, y, z))    clustermq_init(pipeline)$run()    expect_equal(target_read_value(x)$object, 1L)    expect_equal(target_read_value(y)$object, 1L)    expect_equal(target_read_value(z)$object, 2L)    x <- tar_target_raw("x", quote(1L), deployment = "main")    y <- tar_target_raw("y", quote(x), deployment = "main")    z <- tar_target_raw("z", quote(x + 1L), deployment = "main")    pipeline <- pipeline_init(list(x, y, z))    out <- clustermq_init(pipeline)    out$run()    built <- names(out$scheduler$progress$built$envir)    expect_equal(built, character(0))}))
  25: eval(expr, envir = parent.frame())
  26: eval(expr, envir = parent.frame())
  27: withCallingHandlers(expr, message = function(c) if (inherits(c,     classes)) tryInvokeRestart("muffleMessage"))
  28: suppressMessages(eval(expr, envir = parent.frame()))
  29: tar_test("workerless deployment works", {    skip_on_os("windows")    skip_if_not_installed("clustermq")    x <- tar_target_raw("x", quote(1L), deployment = "main")    y <- tar_target_raw("y", quote(x), deployment = "main")    z <- tar_target_raw("z", quote(x + 1L), deployment = "main")    pipeline <- pipeline_init(list(x, y, z))    clustermq_init(pipeline)$run()    expect_equal(target_read_value(x)$object, 1L)    expect_equal(target_read_value(y)$object, 1L)    expect_equal(target_read_value(z)$object, 2L)    x <- tar_target_raw("x", quote(1L), deployment = "main")    y <- tar_target_raw("y", quote(x), deployment = "main")    z <- tar_target_raw("z", quote(x + 1L), deployment = "main")    pipeline <- pipeline_init(list(x, y, z))    out <- clustermq_init(pipeline)    out$run()    built <- names(out$scheduler$progress$built$envir)    expect_equal(built, character(0))})
  30: eval(code, test_env)
  31: eval(code, test_env)
  32: 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)
  33: doTryCatch(return(expr), name, parentenv, handler)
  34: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  35: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  36: doTryCatch(return(expr), name, parentenv, handler)
  37: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  38: tryCatchList(expr, classes, parentenv, handlers)
  39: 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) {    })
  40: test_code(NULL, exprs, env)
  41: source_file(path, child_env(env), wrap = wrap)
  42: FUN(X[[i]], ...)
  43: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  44: force(code)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(testthat_abort_reporter = function() NULL, force(code))
  48: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  49: test_files(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,     wrap = wrap, load_package = load_package)
  50: 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,     wrap = wrap, load_package = load_package, parallel = parallel)
  51: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  52: test_check("targets")
  An irrecoverable exception occurred. R is aborting now ...