tests/testthat/test-odkc_tt_as_wastd_ae.R

In dbca-wa/etlTurtleNesting: Data ETL of Turtle Nesting Census Data from ODK Central to WAStD

test_that("odkc_tt_as_wastd_ae works", {
  data("odkc_data", package = "wastdr")
  data("wastd_data", package = "wastdr")

  user_mapping <- tibble::tibble(odkc_username = "test", pk = 1)

  # WAStD API shows source and source_id under encounter, resolves users
  odkc_names <- odkc_data %>%
    odkc_tt_as_wastd_ae(user_mapping = user_mapping) %>%
    dplyr::select(-source, -source_id, -where, -reporter_id, -observer_id, -when) %>%
    names()

  # ODKC data transformed into TSC shape should contain all fields of the
  # WAStD serializer
  for (n in odkc_names) {
    testthat::expect_true(
      n %in% names(wastd_data$animals),
      label = glue::glue("Column \"{n}\" exists in wastd_data$animals")
    )
  }
})

test_that("odkc_tt_as_wastd_ae generates valid coordinates", {
  data("odkc_data", package = "wastdr")
  data("wastd_data", package = "wastdr")

  user_mapping <- tibble::tibble(odkc_username = "test", pk = 1)

  x <- odkc_data %>% odkc_tt_as_wastd_ae(user_mapping = user_mapping)

  # If this fails, we have invalid WKT in x$where
  testthat::expect_s3_class(sf::st_as_sf(x, wkt = "where"), "sf")
})
# usethis::use_r("odkc_tt_as_wastd_ae")