Running ‘testthat.R’ [3s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tractor.base)
  > 
  > test_check("tractor.base")
  
   *** caught segfault ***
  address 0x50, cause 'memory not mapped'
  
  Traceback:
   1: ore.search(regex, asciiFields, simplify = FALSE)
   2: groups(ore.search(regex, asciiFields, simplify = FALSE), simplify = TRUE)
   3: dicom$getAsciiFields("Version")
   4: eval_bare(expr, quo_get_env(quo))
   5: quasi_label(enquo(object), arg = "object")
   6: expect_length(dicom$getAsciiFields("Version"), 1)
   7: eval(code, test_env)
   8: eval(code, test_env)
   9: 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)
  10: doTryCatch(return(expr), name, parentenv, handler)
  11: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  12: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  13: doTryCatch(return(expr), name, parentenv, handler)
  14: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: 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) {    })
  17: test_code(desc, code, env = parent.frame(), reporter = reporter)
  18: test_that("we can sort and read DICOM files", {    path <- system.file("extdata", "dicom", package = "tractor.base")    temp <- tempdir()    file.copy(path, temp, recursive = TRUE)    path <- file.path(temp, "dicom")    sortDicomDirectories(path, deleteOriginals = TRUE)    expect_equal(length(list.files(path)), 2L)    expect_true(all(c("4630_DTIb3000s5", "6157_fl3D_t1_sag") %in%         list.files(path)))    files <- list.files(file.path(path, "6157_fl3D_t1_sag"),         full.names = TRUE)    dicom <- readDicomFile(files[1])    expect_length(dicom$getAsciiFields("Version"), 1)    expect_output(print(dicom), "GROUP")    image <- readDicomDirectory(file.path(path, "6157_fl3D_t1_sag"))$image    expect_equal(image$getDimensions(), c(2, 224, 256))    expect_equal(image$getVoxelDimensions(), rep(1, 3L))    expect_equal(round(image$getOrigin()), c(19, 95, 135))    reportr::setOutputLevel(OL$Verbose)    expect_output(image <- readDicomDirectory(file.path(path,         "6157_fl3D_t1_sag"), method = "divest", interactive = FALSE)$image,         "Found 2 DICOM")    expect_equal(image$getDimensions(), c(2, 224, 256))    expect_equal(image$getVoxelDimensions(), rep(1, 3L))    unlink(path, recursive = TRUE)})
  19: eval(code, test_env)
  20: eval(code, test_env)
  21: 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)
  22: doTryCatch(return(expr), name, parentenv, handler)
  23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  24: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  25: doTryCatch(return(expr), name, parentenv, handler)
  26: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  27: tryCatchList(expr, classes, parentenv, handlers)
  28: 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) {    })
  29: test_code(NULL, exprs, env)
  30: source_file(path, child_env(env), wrap = wrap)
  31: FUN(X[[i]], ...)
  32: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  33: doTryCatch(return(expr), name, parentenv, handler)
  34: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  35: tryCatchList(expr, classes, parentenv, handlers)
  36: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  37: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  38: 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,     wrap = wrap, load_package = load_package)
  39: 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)
  40: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  41: test_check("tractor.base")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault