Running 'testthat.R' [6s/464s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(viafr)
  > 
  > test_check("viafr")
  -- 1. Error: query list (@test_get.R#4)  ---------------------------------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. testthat::expect_equal(unlist(viaf_get(list("102333412"))), unlist(viaf_get("102333412")))
    5. viafr::viaf_get(list("102333412"))
    9. purrr::map(query, viaf_retrieve, ...)
   10. viafr:::.f(.x[[i]], ...)
   11. cli$get(query = args)
   12. private$make_request(rr)
   13. crul:::crul_fetch(opts)
   14. curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
  
  -- 2. Error: empty query (@test_get.R#15)  -------------------------------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. testthat::expect_warning(result <- viaf_get(""))
    6. viafr::viaf_get("")
   10. purrr::map(query, viaf_retrieve, ...)
   11. viafr:::.f(.x[[i]], ...)
   12. cli$get(query = args)
   13. private$make_request(rr)
   14. crul:::crul_fetch(opts)
   15. curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
  
  -- 3. Error: valid query (@test_get.R#24)  -------------------------------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. viafr::viaf_get("102333412")
    5. purrr::map(query, viaf_retrieve, ...)
    6. viafr:::.f(.x[[i]], ...)
    7. cli$get(query = args)
    8. private$make_request(rr)
    9. crul:::crul_fetch(opts)
   10. curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
  
  -- 4. Error: valid query personal names (@test_get.R#38)  ----------------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. viafr::viaf_get("64013650")
    5. purrr::map(query, viaf_retrieve, ...)
    6. viafr:::.f(.x[[i]], ...)
    7. cli$get(query = args)
    8. private$make_request(rr)
    9. crul:::crul_fetch(opts)
   10. curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
  
  -- 5. Error: valid query corporate names (@test_get.R#44)  ---------------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. viafr::viaf_get("156527943")
    5. purrr::map(query, viaf_retrieve, ...)
    6. viafr:::.f(.x[[i]], ...)
    7. cli$get(query = args)
    8. private$make_request(rr)
    9. crul:::crul_fetch(opts)
   10. curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
  
  -- 6. Error: valid query uniform title works (@test_get.R#50)  -----------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. viafr::viaf_get("175917895")
    5. purrr::map(query, viaf_retrieve, ...)
    6. viafr:::.f(.x[[i]], ...)
    7. cli$get(query = args)
    8. private$make_request(rr)
    9. crul:::crul_fetch(opts)
   10. curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
  
  -- 7. Error: query list (@test_search.R#4)  ------------------------------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. testthat::expect_equal(...)
    5. viafr::viaf_search(list("Rembrandt"))
    9. purrr::map(query, viaf_retrieve_query, endpoint = endpoint, ...)
   10. viafr:::.f(.x[[i]], ...)
   13. cli$get(query = args)
   14. private$make_request(rr)
   15. crul:::crul_fetch(opts)
   16. curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
  
  -- 8. Error: no results (@test_search.R#11)  -----------------------------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. viafr::viaf_search("asdfgh")
    5. purrr::map(query, viaf_retrieve_query, endpoint = endpoint, ...)
    6. 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)
  
  -- 9. Error: empty query (@test_search.R#24)  ----------------------------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. testthat::expect_warning(result <- viaf_search("")[[1]])
    6. viafr::viaf_search("")
   10. purrr::map(query, viaf_retrieve_query, endpoint = endpoint, ...)
   11. viafr:::.f(.x[[i]], ...)
   14. cli$get(query = args)
   15. private$make_request(rr)
   16. crul:::crul_fetch(opts)
   17. curl::curl_fetch_memory(x$url$url, handle = x$url$handle)
  
  -- 10. Error: valid query (@test_search.R#33)  ---------------------------------
  GnuTLS recv error (-54): Error in the pull function.
  Backtrace:
    1. viafr::viaf_search("Duerer", maximumRecords = 5)
    5. purrr::map(query, viaf_retrieve_query, endpoint = endpoint, ...)
    6. 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)
  
  == testthat results  ===========================================================
  [ OK: 18 | SKIPPED: 0 | WARNINGS: 31 | FAILED: 10 ]
  1.  Error: query list (@test_get.R#4) 
  2.  Error: empty query (@test_get.R#15) 
  3.  Error: valid query (@test_get.R#24) 
  4.  Error: valid query personal names (@test_get.R#38) 
  5.  Error: valid query corporate names (@test_get.R#44) 
  6.  Error: valid query uniform title works (@test_get.R#50) 
  7.  Error: query list (@test_search.R#4) 
  8.  Error: no results (@test_search.R#11) 
  9.  Error: empty query (@test_search.R#24) 
  10. Error: valid query (@test_search.R#33) 
  
  Error: testthat unit tests failed
  Execution halted