tests/testthat/test-download_wastd_users.R

In parksandwildlife/wastdr: WA Sea Turtle Database 'WAStD' API Wrapper

test_that("download_wastd_users works", {
  testthat::skip_if_not(wastd_works(), message = "WAStD offline or wrong auth")

  x <- download_wastd_users()
  testthat::expect_s3_class(x, "tbl_df")
  testthat::expect_equivalent(
    names(x),
    c(
      "pk",
      "username",
      "name",
      "nickname",
      "aliases",
      "role",
      "affiliation",
      "email",
      "phone",
      "is_active",
      "alive"
    )
  )
})

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