tests/testthat/test-filter_odkc_turtledata.R

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

test_that("filter_odkc_turtledata works", {
  data("odkc_data")
  # Get an area_name that exists in the packaged data
  an <- odkc_data$tracks$area_name[[1]]

  # Filter
  x <- odkc_data %>% filter_odkc_turtledata(area_name = an)

  testthat::expect_s3_class(x, "odkc_turtledata")
})

test_that("filter_odkc_turtledata requires a odkc_data object", {
  nonsense <- list()
  testthat::expect_error(
    nonsense %>% filter_odkc_turtledata()
  )
})

test_that("filter_odkc_turtledata returns all areas by default", {
  data("odkc_data")
  testthat::expect_message(
    x <- odkc_data %>% filter_odkc_turtledata(verbose = TRUE)
  )
})

test_that("filter_odkc_turtledata returns all areas when asked", {
  data("odkc_data")
  testthat::expect_message(
    x <- odkc_data %>%
      filter_odkc_turtledata(
        area_name = "All turtle programs",
        verbose = TRUE
      )
  )
})

test_that("filter_odkc_turtledata returns data outside areas when asked", {
  data("odkc_data")
  testthat::expect_message(
    x <- odkc_data %>%
      filter_odkc_turtledata(
        area_name = "Other",
        verbose = TRUE
      )
  )
  # Data have all areas as NA
  testthat::skip_if(
    nrow(x$mwi) == 0,
    message = "odkc_data does not contain records outside known areas"
  )
  testthat::expect_true(is.na(unique(x$mwi$area_name)))
})

test_that("filter_odkc_turtledata returns data filtered by username", {
  data("odkc_data")
  un <- odkc_data$tracks$reporter[[1]]
  un_lower <- stringr::str_to_lower(un)
  un_upper <- stringr::str_to_upper(un)

  testthat::expect_message(
    x <- odkc_data %>% filter_odkc_turtledata(username = un, verbose = TRUE)
  )

  x_lower <- odkc_data %>% filter_odkc_turtledata(username = un_lower)
  x_upper <- odkc_data %>% filter_odkc_turtledata(username = un_upper)

  # Data have all areas as NA
  # testthat::expect_true(unique(x$tracks$area_name) == character(0))
  testthat::expect_true(unique(x$mwi$reporter) == un)
  testthat::expect_true(unique(x_lower$mwi$reporter) == un)
  testthat::expect_true(unique(x_upper$mwi$reporter) == un)
})


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