Running ‘testthat.R’ [30s/82s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(mpathsenser)
  > 
  > test_check("mpathsenser")
  
  Attaching package: 'purrr'
  
  The following object is masked from 'package:testthat':
  
      is_null
  
  
   *** caught segfault ***
  address 0x55f700000000, cause 'memory not mapped'
  
  Traceback:
   1: result_create(conn@ptr, statement)
   2: initialize(value, ...)
   3: initialize(value, ...)
   4: new("SQLiteResult", sql = statement, ptr = result_create(conn@ptr,     statement), conn = conn, bigint = conn@bigint)
   5: .local(conn, statement, ...)
   6: dbSendQuery(conn, statement, ...)
   7: dbSendQuery(conn, statement, ...)
   8: dbSendStatement(conn, statement, ...)
   9: dbSendStatement(conn, statement, ...)
  10: dbExecute(db, statement)
  11: dbExecute(db, statement)
  12: doTryCatch(return(expr), name, parentenv, handler)
  13: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  14: tryCatchList(expr, classes, parentenv, handlers)
  15: tryCatch({    fn <- system.file("extdata", "dbdef.sql", package = "mpathsenser")    script <- strsplit(paste0(readLines(fn, warn = FALSE), collapse = "\n"),         "\n\n")[[1]]    for (statement in script) {        dbExecute(db, statement)    }}, error = function(e) {    dbDisconnect(db)    abort(c("Database definition file not found. The package is probably corrupted.",         i = "Please reinstall mpathsenser using `install.packages(\"mpathsenser\")`"))})
  16: create_db(NULL, tempfile)
  17: db_test("Memory", true_data = tibble::tibble(measurement_id = c("7f2fbe8b-af33-0078-137e-ed21c0f97b10",     "7e3eb79e-56b2-441d-c7ab-890ba478b923"), participant_id = "12345",     date = "2021-11-14", time = c("14:00:00", "14:01:00"), timezone = c("CET",         NA), free_physical_memory = c(2027336609L, NA), free_virtual_memory = c(233377575L,         NA)))
  18: eval(code, test_env)
  19: eval(code, test_env)
  20: 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)
  21: doTryCatch(return(expr), name, parentenv, handler)
  22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  23: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  24: doTryCatch(return(expr), name, parentenv, handler)
  25: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  26: tryCatchList(expr, classes, parentenv, handlers)
  27: 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) {    })
  28: test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
  29: test_that("Memory", {    db_test("Memory", true_data = tibble::tibble(measurement_id = c("7f2fbe8b-af33-0078-137e-ed21c0f97b10",         "7e3eb79e-56b2-441d-c7ab-890ba478b923"), participant_id = "12345",         date = "2021-11-14", time = c("14:00:00", "14:01:00"),         timezone = c("CET", NA), free_physical_memory = c(2027336609L,             NA), free_virtual_memory = c(233377575L, NA)))})
  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(test = NULL, code = exprs, env = env, default_reporter = StopReporter$new())
  41: source_file(path, env(env), wrap = wrap)
  42: FUN(X[[i]], ...)
  43: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  44: doTryCatch(return(expr), name, parentenv, handler)
  45: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  46: tryCatchList(expr, classes, parentenv, handlers)
  47: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  48: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  49: 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)
  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("mpathsenser")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault