tests/testthat/test-encryption_key_list.R

In dbca-wa/ruODK: An R Client for the ODK Central API

test_that("encryption_key_list works", {
  skip_if(Sys.getenv("ODKC_TEST_URL") == "",
    message = "Test server not configured"
  )

  x <- encryption_key_list(
    pid = Sys.getenv("ODKC_TEST_PID_ENC"),
    fid = Sys.getenv("ODKC_TEST_FID_ENC"),
    url = get_test_url(),
    un = get_test_un(),
    pw = get_test_pw()
  )

  cn <- c(
    "id",
    "public",
    "managed",
    "hint",
    "created_at"
  )

  purrr::map(
    cn,
    ~ testthat::expect_true(
      . %in% names(x),
      label = glue::glue("Column {.} present in encryption_key_list")
    )
  )
})


# usethis::use_r("encryption_key_list")  # nolint