Running ‘testthat.R’ [2s/44s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(HIBPwned)
  > 
  > test_check("HIBPwned")
  1. Failure: breached_sites works (@test-breached_sites.R#27) -------------------
  breached_sites(agent = "blah") threw an error.
  gnutls_handshake() failed: An unexpected TLS packet was received.
  
  
  2. Error: data_classes works (@test-data_classes.R#4) --------------------------
  gnutls_handshake() failed: An unexpected TLS packet was received.
  1: data_classes() at testthat/test-data_classes.R:4
  2: GETcontent(URLS, HIBP_headers(...))
  3: get(...)
  4: eval(as.call(nf))
  5: eval(as.call(nf))
  6: fun(url = "https://haveibeenpwned.com/api/dataclasses", config = structure(list(method = NULL, 
         url = NULL, headers = structure(c("2", "HIBPwned R pkg"), .Names = c("api-version", 
         "User-Agent")), fields = NULL, options = NULL, auth_token = NULL, output = NULL), .Names = c("method", 
     "url", "headers", "fields", "options", "auth_token", "output"), class = "request"))
  7: request_perform(req, hu$handle$handle)
  8: request_fetch(req$output, req$url, handle)
  9: request_fetch.write_memory(req$output, req$url, handle)
  10: curl::curl_fetch_memory(url, handle = handle)
  
  3. Error: pastes works for a single account (@test-pastes.R#8) -----------------
  gnutls_handshake() failed: An unexpected TLS packet was received.
  1: pastes(acct) at testthat/test-pastes.R:8
  2: lapply(URLS, GETcontent, HIBP_headers(...))
  3: FUN(X[[i]], ...)
  4: get(...)
  5: eval(as.call(nf))
  6: eval(as.call(nf))
  7: fun(url = "https://haveibeenpwned.com/api/pasteaccount/steff.sullivan%40gmail.com", 
         config = structure(list(method = NULL, url = NULL, headers = structure(c("2", 
         "HIBPwned R pkg"), .Names = c("api-version", "User-Agent")), fields = NULL, options = NULL, 
             auth_token = NULL, output = NULL), .Names = c("method", "url", "headers", 
         "fields", "options", "auth_token", "output"), 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)
  
  4. Error: pastes works for multiple accounts (@test-pastes.R#26) ---------------
  gnutls_handshake() failed: An unexpected TLS packet was received.
  1: pastes(acct) at testthat/test-pastes.R:26
  2: lapply(URLS, GETcontent, HIBP_headers(...))
  3: FUN(X[[i]], ...)
  4: get(...)
  5: eval(as.call(nf))
  6: eval(as.call(nf))
  7: fun(url = "https://haveibeenpwned.com/api/pasteaccount/steff.sullivan%40gmail.com", 
         config = structure(list(method = NULL, url = NULL, headers = structure(c("2", 
         "HIBPwned R pkg"), .Names = c("api-version", "User-Agent")), fields = NULL, options = NULL, 
             auth_token = NULL, output = NULL), .Names = c("method", "url", "headers", 
         "fields", "options", "auth_token", "output"), 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)
  
  testthat results ================================================================
  OK: 108 SKIPPED: 0 FAILED: 4
  1. Failure: breached_sites works (@test-breached_sites.R#27) 
  2. Error: data_classes works (@test-data_classes.R#4) 
  3. Error: pastes works for a single account (@test-pastes.R#8) 
  4. Error: pastes works for multiple accounts (@test-pastes.R#26) 
  
  Error: testthat unit tests failed
  Execution halted