Running ‘testthat.R’ [10s/111s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(codemetar)
  > 
  > test_check("codemetar")
  ── 1. Error: we can validate this file (@test-codemeta_validate.R#4)  ──────────
  Timeout was reached: Operation timed out after 10001 milliseconds with 0 out of 0 bytes received
  1: write_codemeta("codemetar", "codemeta_test.json") at testthat/test-codemeta_validate.R:4
  2: create_codemeta(pkg = pkg, root = root)
  3: add_github_topics(cm)
  4: gh::gh("GET /repos/:owner/:repo/topics", repo = repo, owner = owner, .send_headers = c(Accept = "application/vnd.github.mercy-preview+json"))
  5: gh_make_request(req)
  6: do.call(method_fun, compact(list(url = x$url, query = x$query, body = x$body, add_headers(x$headers))))
  7: (function (url = NULL, config = list(), ..., handle = NULL) 
     {
         hu <- handle_url(handle, url, ...)
         req <- request_build("GET", hu$url, as.request(config), ...)
         request_perform(req, hu$handle$handle)
     })(url = "https://api.github.com/repos/ropensci/codemetar/topics", structure(list(
         method = NULL, url = NULL, headers = c(`User-Agent` = "https://github.com/r-lib/gh", 
         Accept = "application/vnd.github.mercy-preview+json"), fields = NULL, options = NULL, 
         auth_token = NULL, output = NULL), class = "request"))
  8: request_perform(req, hu$handle$handle)
  9: request_fetch(req$output, req$url, handle)
  10: request_fetch.write_memory(req$output, req$url, handle)
  11: curl::curl_fetch_memory(url, handle = handle)
  
  ── 2. Error: we can call crosswalk (@test-crosswalk.R#31)  ─────────────────────
  Timeout was reached: Operation timed out after 10000 milliseconds with 0 out of 0 bytes received
  1: crosswalk(f, "GitHub", "Zenodo") at testthat/test-crosswalk.R:31
  2: get_crosswalk_context(crosswalk_table(from), codemeta_context)
  3: crosswalk_table(from)
  4: readr::read_csv(full_crosswalk, col_types = cols(.default = "c"))
  5: read_delimited(file, tokenizer, col_names = col_names, col_types = col_types, locale = locale, 
         skip = skip, comment = comment, n_max = n_max, guess_max = guess_max, progress = progress)
  6: read_connection(file)
  7: open(con, "rb")
  8: open.connection(con, "rb")
  
  ── 3. Failure: Silent if ok URLs (@test-give_opinions.R#5)  ────────────────────
  `desc_fixmes` is not null.
  
  ── 4. Failure: Message if no URL (@test-give_opinions.R#13)  ───────────────────
  desc_fixmes$where not equal to "DESCRIPTION".
  Lengths differ: 2 is not 1
  
  ── 5. Failure: No message if ok description (@test-give_opinions.R#27)  ────────
  give_opinions_desc(f) is not null.
  
  ── 6. Error: add_github_topics (@test-guess_metadata.R#103)  ───────────────────
  Timeout was reached: Operation timed out after 10001 milliseconds with 0 out of 0 bytes received
  1: add_github_topics(cm) at testthat/test-guess_metadata.R:103
  2: gh::gh("GET /repos/:owner/:repo/topics", repo = repo, owner = owner, .send_headers = c(Accept = "application/vnd.github.mercy-preview+json"))
  3: gh_make_request(req)
  4: do.call(method_fun, compact(list(url = x$url, query = x$query, body = x$body, add_headers(x$headers))))
  5: (function (url = NULL, config = list(), ..., handle = NULL) 
     {
         hu <- handle_url(handle, url, ...)
         req <- request_build("GET", hu$url, as.request(config), ...)
         request_perform(req, hu$handle$handle)
     })(url = "https://api.github.com/repos/ropensci/codemetar/topics", structure(list(
         method = NULL, url = NULL, headers = c(`User-Agent` = "https://github.com/r-lib/gh", 
         Accept = "application/vnd.github.mercy-preview+json"), fields = NULL, options = NULL, 
         auth_token = NULL, output = NULL), class = "request"))
  6: request_perform(req, hu$handle$handle)
  7: request_fetch(req$output, req$url, handle)
  8: request_fetch.write_memory(req$output, req$url, handle)
  9: curl::curl_fetch_memory(url, handle = handle)
  
  
   *** caught segfault ***
  address (nil), cause 'unknown'
  
  Traceback:
   1: curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
   2: crul_fetch(opts)
   3: private$make_request(rr)
   4: crul::HttpClient$new(url)$get()
   5: doTryCatch(return(expr), name, parentenv, handler)
   6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   7: tryCatchList(expr, classes, parentenv, handlers)
   8: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
   9: try(crul::HttpClient$new(url)$get(), silent = TRUE)
  10: FUN(X[[i]], ...)
  11: lapply(urls, get_url_status_code)
  12: do.call(rbind, lapply(urls, get_url_status_code))
  13: check_urls(descr$get("BugReports"))
  14: give_opinions_desc(descr_path)
  15: give_opinions(root)
  16: create_codemeta(pkg = pkg, root = root)
  17: write_codemeta("codemetar")
  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())
  29: testthat::test_that("we can write a codemeta document given a package name",     {        write_codemeta("codemetar")        testthat::expect_true(file.exists("codemeta.json"))        unlink("codemeta.json")    })
  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(NULL, exprs, env)
  41: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
  42: force(code)
  43: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE,             wrap = wrap)        end_context()    })
  44: FUN(X[[i]], ...)
  45: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
  46: force(code)
  47: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE, wrap = wrap))
  48: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  49: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     wrap = wrap)
  50: test_package_dir(package = package, test_path = test_path, filter = filter,     reporter = reporter, ..., stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
  51: test_check("codemetar")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault