tests/testthat/test-download_odkc_turtledata_2020.R

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

test_that("download_odkc_turtledata_2020 works", {
  testthat::skip_if(Sys.getenv("WASTDR_SKIP_SLOW_TESTS", unset = FALSE) == TRUE,
    message = "Skip slow running tests"
  )

  testthat::skip_if_not(odkc_works(), message = "ODKC offline or wrong auth")
  testthat::skip_if_not(wastd_works(), message = "WAStD offline or wrong auth")

  ruODK::ru_setup(
    # url = ruODK::get_default_url(), # hard-coded in dl_odkc_td_2020
    un = ruODK::get_default_un(), # same credentials for new server
    pw = ruODK::get_default_pw(),
    # odkc_version = ruODK::get_default_odkc_version(),
    # verbose = ruODK::get_ru_verbose()
  )


  x <- suppressWarnings(
    download_odkc_turtledata_2020(
      # local_dir = tempdir(),
      download = FALSE,
      verbose = TRUE # pin for debugging GHA error
    )
  )
  expect_equal(class(x), "odkc_turtledata")
  expect_equal(length(x), 24) # This will change if we add more data
  xout <- capture.output(print(x))
  expect_true(stringr::str_detect(xout[[1]], "ODKC Turtle Data"))
  expect_true(stringr::str_detect(xout[[2]], "Areas"))
  # expect_equal(length(xout), 10) # This will change if we add more data
})

# usethis::use_r("download_odkc_turtledata_2020")