Running ‘testthat.R’ [5s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(etl)
  Loading required package: dplyr
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > 
  > test_check("etl")
  Error: segfault from C stack overflow
  
   *** caught segfault ***
  address 0x30, cause 'memory not mapped'
  
  Traceback:
   1: srcref %||% utils::getSrcref(sys.call())
   2: chain_error(expr, err, srcref = utils::getSrcref(sys.call()))
   3: parse(text = code, keep.source = FALSE) %??% cli_error(call. = caller,     "Could not parse cli {.code {{}}} expression:\n           {.code {abbrev(code, 20)}}.")
   4: .transformer(expr, .envir)
   5: .transformer(expr, .envir) %||% character()
   6: (function (expr) {    eval_func <- as.character(.transformer(expr, .envir) %||%         character())})("x")
   7: glue(text, .envir = envir, .transformer = sys.function(), .cli = TRUE)
   8: .transformer(expr, .envir)
   9: .transformer(expr, .envir) %||% character()
  10: (function (expr) {    eval_func <- as.character(.transformer(expr, .envir) %||%         character())})(".arg {x}")
  11: glue(str, .envir = .envir, .transformer = transformer, .cli = TRUE,     .trim = .trim)
  12: glue_cmd(..., .envir = .envir, .call = sys.call(), .trim = FALSE)
  13: "id" %in% names(args)
  14: cli__message("inline_text", list(text = glue_cmd(..., .envir = .envir,     .call = sys.call(), .trim = FALSE)))
  15: fun(..., .envir = .envir)
  16: cli__rec(expr)
  17: cli_fmt(fun(..., .envir = .envir), collapse = collapse, strip_newline = TRUE)
  18: cli::format_inline(paste0("{.", span, " {x}}"))
  19: .rlang_cli_format_inline(x, "arg", "`%s`")
  20: format_arg(arg)
  21: sprintf("%s must be `NULL`, a frame environment, or an integer.",     format_arg(arg))
  22: trace_find_bottom(bottom, frames)
  23: trace_back(top = top, bottom = bottom)
  24: cnd_entrace(e)
  25: h(simpleError(msg, call))
  26: .handleSimpleError(function (e) {    handled <<- TRUE    test_error <<- e    options(expressions = expressions_opt_new)    on.exit(options(expressions = expressions_opt), add = TRUE)    if (can_entrace(e)) {        e <- cnd_entrace(e)    }    test_error <<- e    register_expectation(e, 2)    e[["handled"]] <- TRUE    test_error <<- e}, "'rho' must be an environment not pairlist: detected in C-level eval",     base::quote(test_that("dplyr works", {        expect_message(cars <- etl("mtcars") %>% etl_create(),             regexp = "Loading")        expect_gt(length(src_tbls(cars)), 0)        tbl_cars <- cars %>% tbl("mtcars")        expect_s3_class(tbl_cars, "tbl_dbi")        expect_s3_class(tbl_cars, "tbl_sql")        res <- tbl_cars %>% collect()        expect_equal(nrow(res), nrow(mtcars))        expect_message(cars %>% etl_update(), regexp = "Loading")        res2 <- tbl_cars %>% collect()        expect_equal(nrow(res2), 2 * nrow(mtcars))    })))
  27: test_that("dplyr works", {    expect_message(cars <- etl("mtcars") %>% etl_create(), regexp = "Loading")    expect_gt(length(src_tbls(cars)), 0)    tbl_cars <- cars %>% tbl("mtcars")    expect_s3_class(tbl_cars, "tbl_dbi")    expect_s3_class(tbl_cars, "tbl_sql")    res <- tbl_cars %>% collect()    expect_equal(nrow(res), nrow(mtcars))    expect_message(cars %>% etl_update(), regexp = "Loading")    res2 <- tbl_cars %>% collect()    expect_equal(nrow(res2), 2 * nrow(mtcars))})
  28: eval(code, test_env)
  29: eval(code, test_env)
  30: 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)
  31: doTryCatch(return(expr), name, parentenv, handler)
  32: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  33: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  34: doTryCatch(return(expr), name, parentenv, handler)
  35: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  36: tryCatchList(expr, classes, parentenv, handlers)
  37: 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) {    })
  38: test_code(test = NULL, code = exprs, env = env, default_reporter = StopReporter$new())
  39: source_file(path, env(env), wrap = wrap)
  40: FUN(X[[i]], ...)
  41: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  42: doTryCatch(return(expr), name, parentenv, handler)
  43: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  44: tryCatchList(expr, classes, parentenv, handlers)
  45: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  46: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  47: 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)
  48: 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)
  49: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  50: test_check("etl")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault