Running ‘test-all.R’ [9s/22s]
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)
  > 
  > # source("R/helpers-testing.R")
  > testthat::test_check("REDCapR")
  The REDCapR read/export operation was not successful.  The error message was:
  <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
  <html><head>
  <title>404 Not Found</title>
  </head><body>
  <h1>Not Found</h1>
  <p>The requested URL was not found on this server.</p>
  </body></html>
  
  The data dictionary describing 17 fields was read from REDCap in 0.2 seconds.  The http status code was 200.
  5 records and 1 columns were read from REDCap in 0.5 seconds.  The http status code was 200.
  Starting to read 5 records  at 2022-07-21 03:03:14.
  Reading batch 1 of 1, with subjects 1 through 5 (ie, 5 unique subject records).
  5 records and 25 columns were read from REDCap in 0.3 seconds.  The http status code was 200.
  
  -- Column specification --------------------------------------------------------
  cols(
    .default = col_double(),
    name_first = col_character(),
    name_last = col_character(),
    address = col_character(),
    telephone = col_character(),
    email = col_character(),
    dob = col_date(format = ""),
    comments = col_character(),
    mugshot = col_character()
  )
  i Use `spec()` for the full column specifications.
  
  Starting to update 32 records to be written at 2022-07-21 03:03:20.
  Writing batch 1 of 1, with indices 1 through 32.
  The REDCapR write/import operation was not successful.  The error message was:
  ERROR: You do not have API Import/Update privileges
  Starting to update 32 records to be written at 2022-07-21 03:03:21.
  Writing batch 1 of 4, with indices 1 through 10.
  The REDCapR write/import operation was not successful.  The error message was:
  ERROR: You do not have API Import/Update privileges
  Writing batch 1 of 1, with indices 1 through 32.
  The REDCapR write/import operation was not successful.  The error message was:
  ERROR: You do not have API Import/Update privileges
  Starting to update 32 records to be written at 2022-07-21 03:03:22.
  Writing batch 1 of 4, with indices 1 through 10.
  The REDCapR write/import operation was not successful.  The error message was:
  ERROR: You do not have API Import/Update privileges
  Writing batch 2 of 4, with indices 11 through 20.
  The REDCapR write/import operation was not successful.  The error message was:
  ERROR: You do not have API Import/Update privileges
  Writing batch 3 of 4, with indices 21 through 30.
  The REDCapR write/import operation was not successful.  The error message was:
  ERROR: You do not have API Import/Update privileges
  Writing batch 4 of 4, with indices 31 through 32.
  The REDCapR write/import operation was not successful.  The error message was:
  ERROR: You do not have API Import/Update privileges
  [ FAIL 3 | WARN 0 | SKIP 109 | PASS 157 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (109)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-read-errors.R:9:3): One Shot: Bad Uri -Not HTTPS ────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: GnuTLS recv error (-110): The TLS connection was non-properly terminated.
  Backtrace:
       ▆
    1. ├─testthat::expect_message(...) at test-read-errors.R:9:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─REDCapR::redcap_read_oneshot(...)
    8.   └─REDCapR:::kernel_api(redcap_uri, post_body, config_options)
    9.     └─httr::POST(url = redcap_uri, body = post_body, config = config_options)
   10.       └─httr:::request_perform(req, hu$handle$handle)
   11.         ├─httr:::request_fetch(req$output, req$url, handle)
   12.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   13.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Failure (test-read-errors.R:39:3): One Shot: Bad Uri -wrong address ─────────
  returned_object$raw_text (`actual`) not equal to `expected_message` (`expected`).
  
  lines(actual) vs lines(expected)
  - "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">"
  - "<html><head>"
  - "<title>404 Not Found</title>"
  - "</head><body>"
  - "<h1>Not Found</h1>"
  - "<p>The requested URL was not found on this server.</p>"
  - "</body></html>"
  + "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"
  + "<html xmlns=\"http://www.w3.org/1999/xhtml\">"
  + "<head>"
  + "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\"/>"
  + "<title>404 - File or directory not found.</title>"
  + "<style type=\"text/css\">"
  + "<!--"
  + "body{margin:0;font-size:.7em;font-family:Verdana, Arial, Helvetica, sans-serif;background:#EEEEEE;}"
  + "fieldset{padding:0 15px 10px 15px;} "
  + "h1{font-size:2.4em;margin:0;color:#FFF;}"
  and 20 more ...
  ── Error (test-read-errors.R:48:3): Batch: Bad Uri -Not HTTPS ──────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: GnuTLS recv error (-110): The TLS connection was non-properly terminated.
  Backtrace:
       ▆
    1. ├─testthat::expect_message(...) at test-read-errors.R:48:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─REDCapR::redcap_read(...)
    8.   └─REDCapR::redcap_metadata_read(...)
    9.     └─REDCapR:::kernel_api(redcap_uri, post_body, config_options)
   10.       └─httr::POST(url = redcap_uri, body = post_body, config = config_options)
   11.         └─httr:::request_perform(req, hu$handle$handle)
   12.           ├─httr:::request_fetch(req$output, req$url, handle)
   13.           └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   14.             └─curl::curl_fetch_memory(url, handle = handle)
  
  [ FAIL 3 | WARN 0 | SKIP 109 | PASS 157 ]
  Error: Test failures
  Execution halted