tests/testthat/test-list_cpod_project_codes.R

In inbo/etn: Access Data from the European Tracking Network

skip_if_not_localdb()

con <- connect_to_etn()

test_that("list_cpod_project_codes() returns unique list of values", {
  vector <- list_cpod_project_codes(con)

  expect_type(vector, "character")
  expect_false(any(duplicated(vector)))
  expect_true(all(!is.na(vector)))

  expect_true("cpod-lifewatch" %in% vector)
  # Should not include animal or network projects
  expect_false("2014_demer" %in% vector)
  expect_false("demer" %in% vector)
})