Running ‘testthat.R’ [15s/31s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > test_check("MonetDBLite")
  Loading required package: MonetDBLite
  
  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
  
  Loading required package: grid
  Loading required package: Matrix
  Loading required package: survival
  
  Attaching package: 'survey'
  
  The following object is masked from 'package:graphics':
  
      dotchart
  
  
   *** caught segfault ***
  address 0x30, cause 'memory not mapped'
  
  Traceback:
   1: length(res[[1]])
   2: monetdb_embedded_query(conn@connenv$conn, statement, execute,     resultconvert)
   3: .local(conn, statement, ...)
   4: dbSendQuery(conn, statement, ...)
   5: dbSendQuery(conn, statement, ...)
   6: DBI::dbGetQuery(dbconnection, query)
   7: DBI::dbGetQuery(dbconnection, query)
   8: getvars(formula, design$db$connection, design$db$tablename, updates = design$updates,     subset = design$subset)
   9: svytable.DBIsvydesign(~sch_wide + stype, dclus1)
  10: svytable(~sch_wide + stype, dclus1)
  11: compare(object, expected, ...)
  12: expect_equal(round(svytable(~sch_wide + stype, dclus1)[2, 2],     3), 372.317)
  13: eval(code, test_env)
  14: eval(code, test_env)
  15: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  16: doTryCatch(return(expr), name, parentenv, handler)
  17: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  18: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  19: doTryCatch(return(expr), name, parentenv, handler)
  20: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  21: tryCatchList(expr, classes, parentenv, handlers)
  22: tryCatch(withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error), error = function(e) {}, skip = function(e) {})
  23: test_code(desc, code, env = parent.frame())
  24: test_that("db allows database-backed survey designs", {    con <- dbConnect(MonetDBLite::MonetDBLite(), dbfolder)    data(api)    x <- apiclus1    names(x) <- gsub("\\.", "_", names(x))    dbWriteTable(con, "apiclus1", x)    dclus1 <- svydesign(id = ~dnum, weight = ~pw, data = "apiclus1",         fpc = ~fpc, dbtype = "MonetDBLite", dbname = dbfolder)    expect_equal(class(dclus1)[1], "DBIsvydesign")    expect_equal(round(svytable(~sch_wide + stype, dclus1)[2,         2], 3), 372.317)    expect_equal(as.numeric(round(svychisq(~sch_wide + stype,         dclus1)$p.value, 3)), 0.022)    set.seed(1)    repweights <- data.frame(2 * sapply(rep(nrow(x), 4), function(z) sample(0:1,         z, replace = TRUE)))    y <- cbind(x, repweights)    names(y) <- tolower(names(y))    dbWriteTable(con, "rclus1", y)    rclus1 <- svrepdesign(data = "rclus1", type = "BRR", repweights = "x[1-4]",         combined.weights = FALSE, dbtype = "MonetDBLite", dbname = dbfolder)    expect_equal(class(rclus1)[1], "DBIrepdesign")    expect_equal(svytable(~sch_wide + stype, rclus1)[2, 2], 11)    close(dclus1)    close(rclus1)    dbDisconnect(con, shutdown = TRUE)})
  25: eval(exprs, env)
  26: eval(exprs, env)
  27: source_file(path, new.env(parent = env), chdir = TRUE)
  28: force(code)
  29: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE)        end_context()    })
  30: FUN(X[[i]], ...)
  31: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  32: force(code)
  33: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  34: test_files(paths, reporter = reporter, env = env, ...)
  35: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  36: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  37: run_tests(package, test_path, filter, reporter, ...)
  38: test_check("MonetDBLite")
  An irrecoverable exception occurred. R is aborting now ...