Running ‘testthat.R’ [5s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check("poLCAParallel")
  Loading required package: poLCAParallel
  
   *** caught segfault ***
  address (nil), cause 'memory not mapped'
  
  Traceback:
   1: EmAlgorithmRcpp(features, t(responses), probs.start$vector, ndata,     nfeature, noutcomes, nclass, nrep, na.rm, n.thread, maxiter,     tol, seed)
   2: poLCAParallel::poLCA(formula, data, n_cluster, maxiter = maxiter,     tol = tol, na.rm = na_rm, nrep = n_rep, verbose = FALSE,     n.thread = n_thread)
   3: test_regression(100, 4, c(2, 3, 5, 2, 2), 3, 4, TRUE, N_THREAD,     DEFAULT_MAXITER, DEFAULT_TOL, 0)
   4: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   5: withCallingHandlers(code, condition = function(cnd) {    if (!is.null(first_match) || !matcher(cnd)) {        return()    }    first_match <<- cnd    cnd_muffle(cnd)    if (inherits(cnd, "error")) {        invokeRestart("done")    }})
   6: doWithOneRestart(return(expr), restart)
   7: withOneRestart(expr, restarts[[1L]])
   8: withRestarts(withCallingHandlers(code, condition = function(cnd) {    if (!is.null(first_match) || !matcher(cnd)) {        return()    }    first_match <<- cnd    cnd_muffle(cnd)    if (inherits(cnd, "error")) {        invokeRestart("done")    }}), done = function() {})
   9: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),     ...)
  10: quasi_capture(enquo(object), NULL, capture)
  11: expect_no_("error", {    {        object    }}, regexp = message, class = class)
  12: expect_no_error(test_regression(100, 4, c(2, 3, 5, 2, 2), 3,     4, TRUE, N_THREAD, DEFAULT_MAXITER, DEFAULT_TOL, 0))
  13: eval(code, test_env)
  14: eval(code, test_env)
  15: 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)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: 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)
  20: doWithOneRestart(return(expr), restart)
  21: withOneRestart(expr, restarts[[1L]])
  22: 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() {    })
  23: test_code(code, parent.frame())
  24: test_that("regression-full-data", {    set.seed(-590845051)    seeds <- sample.int(.Machine$integer.max, N_REPEAT)    for (i in seq_len(N_REPEAT)) {        set.seed(seeds[i])        expect_no_error(test_regression(100, 4, c(2, 3, 5, 2,             2), 3, 4, TRUE, N_THREAD, DEFAULT_MAXITER, DEFAULT_TOL,             0))    }    set.seed(1785517768)    seeds <- sample.int(.Machine$integer.max, N_REPEAT)    for (i in seq_len(N_REPEAT)) {        set.seed(seeds[i])        expect_no_error(test_regression(100, 4, c(2, 3, 5, 2,             2), 3, 4, FALSE, N_THREAD, DEFAULT_MAXITER, DEFAULT_TOL,             0))    }})
  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 = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  36: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  37: FUN(X[[i]], ...)
  38: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  39: doTryCatch(return(expr), name, parentenv, handler)
  40: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  41: tryCatchList(expr, classes, parentenv, handlers)
  42: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  43: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  44: 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)
  45: 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)
  46: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  47: test_check("poLCAParallel")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault