Running ‘testthat.R’ [7s/52s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(viafr)
  > 
  > test_check("viafr")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_get.R:4:3): query list ──────────────────────────────────────────
  Error in `curl::curl_fetch_memory(x$url$url, handle = x$url$handle)`: Timeout was reached: [www.viaf.org] Connection timed out after 10001 milliseconds
  Backtrace:
       █
    1. ├─testthat::expect_equal(unlist(viaf_get(list("102333412"))), unlist(viaf_get("102333412"))) test_get.R:4:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::unlist(viaf_get(list("102333412")))
    5. ├─viafr::viaf_get(list("102333412"))
    6. │ ├─map(query, viaf_retrieve, ...) %>% map(get_identifier) %>% dplyr::bind_rows()
    7. │ └─purrr::map(query, viaf_retrieve, ...)
    8. │   └─viafr:::.f(.x[[i]], ...)
    9. │     └─cli$get(query = args)
   10. │       └─private$make_request(rr)
   11. │         └─crul:::crul_fetch(opts)
   12. │           └─curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
   13. ├─dplyr::bind_rows(.)
   14. │ └─rlang::list2(...)
   15. └─purrr::map(., get_identifier)
  ── Error (test_get.R:15:3): empty query ────────────────────────────────────────
  Error in `curl::curl_fetch_memory(x$url$url, handle = x$url$handle)`: Timeout was reached: [www.viaf.org] Connection timed out after 10000 milliseconds
  Backtrace:
       █
    1. ├─testthat::expect_warning(result <- viaf_get("")) test_get.R:15:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─viafr::viaf_get("")
    7. │ ├─map(query, viaf_retrieve, ...) %>% map(get_identifier) %>% dplyr::bind_rows()
    8. │ └─purrr::map(query, viaf_retrieve, ...)
    9. │   └─viafr:::.f(.x[[i]], ...)
   10. │     └─cli$get(query = args)
   11. │       └─private$make_request(rr)
   12. │         └─crul:::crul_fetch(opts)
   13. │           └─curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
   14. ├─dplyr::bind_rows(.)
   15. │ └─rlang::list2(...)
   16. └─purrr::map(., get_identifier)
  ── Error (test_get.R:24:3): valid query ────────────────────────────────────────
  Error in `curl::curl_fetch_memory(x$url$url, handle = x$url$handle)`: Timeout was reached: [www.viaf.org] Connection timed out after 10001 milliseconds
  Backtrace:
       █
    1. ├─viafr::viaf_get("102333412") test_get.R:24:2
    2. │ ├─map(query, viaf_retrieve, ...) %>% map(get_identifier) %>% dplyr::bind_rows()
    3. │ └─purrr::map(query, viaf_retrieve, ...)
    4. │   └─viafr:::.f(.x[[i]], ...)
    5. │     └─cli$get(query = args)
    6. │       └─private$make_request(rr)
    7. │         └─crul:::crul_fetch(opts)
    8. │           └─curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
    9. ├─dplyr::bind_rows(.)
   10. │ └─rlang::list2(...)
   11. └─purrr::map(., get_identifier)
  
  [ FAIL 3 | WARN 31 | SKIP 0 | PASS 34 ]
  Error: Test failures
  Execution halted