Running ‘test-all.R’
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > #Modeled after the R6 testing structure: https://github.com/wch/R6/blob/master/tests/testthat.R
  > library(testthat)
  > library(REDCapR)
  > 
  > testthat::test_check("REDCapR")
  ── 1. Error: One Shot: Bad Uri -Not HTTPS (@test-read-errors.R#14)  ────────────
  OpenSSL SSL_read: SSL_ERROR_SYSCALL, errno 104
  1: expect_message(returned_object <- redcap_read_oneshot(redcap_uri = credential$redcap_uri, 
         token = credential$token, verbose = T)) at testthat/test-read-errors.R:14
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: redcap_read_oneshot(redcap_uri = credential$redcap_uri, token = credential$token, 
         verbose = T)
  7: httr::POST(url = redcap_uri, body = post_body, config = config_options)
  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: One Shot: Bad Uri -wrong address (@test-read-errors.R#36)  ────────
  OpenSSL SSL_read: SSL_ERROR_SYSCALL, errno 104
  1: expect_message(returned_object <- redcap_read_oneshot(redcap_uri = credential$redcap_uri, 
         token = credential$token, verbose = T)) at testthat/test-read-errors.R:36
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: redcap_read_oneshot(redcap_uri = credential$redcap_uri, token = credential$token, 
         verbose = T)
  7: httr::POST(url = redcap_uri, body = post_body, config = config_options)
  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)
  
  ── 3. Error: Batch: Bad Uri -Not HTTPS (@test-read-errors.R#57)  ───────────────
  OpenSSL SSL_read: SSL_ERROR_SYSCALL, errno 104
  1: expect_message(returned_object <- redcap_read(redcap_uri = credential$redcap_uri, 
         token = credential$token, verbose = T)) at testthat/test-read-errors.R:57
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: redcap_read(redcap_uri = credential$redcap_uri, token = credential$token, verbose = T)
  7: REDCapR::redcap_metadata_read(redcap_uri = redcap_uri, token = token, verbose = verbose, 
         config_options = config_options)
  8: httr::POST(url = redcap_uri, body = post_body, config = config_options)
  9: request_perform(req, hu$handle$handle)
  10: request_fetch(req$output, req$url, handle)
  11: request_fetch.write_memory(req$output, req$url, handle)
  12: curl::curl_fetch_memory(url, handle = handle)
  
  ── 4. Error: Batch: Bad Uri -wrong address (@test-read-errors.R#78)  ───────────
  OpenSSL SSL_read: SSL_ERROR_SYSCALL, errno 104
  1: expect_message(returned_object <- redcap_read(redcap_uri = credential$redcap_uri, 
         token = credential$token, verbose = T)) at testthat/test-read-errors.R:78
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: redcap_read(redcap_uri = credential$redcap_uri, token = credential$token, verbose = T)
  7: REDCapR::redcap_metadata_read(redcap_uri = redcap_uri, token = token, verbose = verbose, 
         config_options = config_options)
  8: httr::POST(url = redcap_uri, body = post_body, config = config_options)
  9: request_perform(req, hu$handle$handle)
  10: request_fetch(req$output, req$url, handle)
  11: request_fetch.write_memory(req$output, req$url, handle)
  12: curl::curl_fetch_memory(url, handle = handle)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 93 SKIPPED: 48 FAILED: 4
  1. Error: One Shot: Bad Uri -Not HTTPS (@test-read-errors.R#14) 
  2. Error: One Shot: Bad Uri -wrong address (@test-read-errors.R#36) 
  3. Error: Batch: Bad Uri -Not HTTPS (@test-read-errors.R#57) 
  4. Error: Batch: Bad Uri -wrong address (@test-read-errors.R#78) 
  
  Error: testthat unit tests failed
  Execution halted