tests/testthat/test-lookup.R

In bcgov/rems: Get Data from British Columbia's Environmental Monitoring System

test_that("lookup creation works", {
  test <- read_ems_data("test_current.csv")
  lup <- make_lookup(test)
  expect_is(lup, "data.frame")
  expect_identical(names(lup),
    c("EMS_ID", "MONITORING_LOCATION", "PERMIT", "PARAMETER_CODE",
      "PARAMETER", "LONGITUDE", "LATITUDE", "FROM_DATE", "TO_DATE"))
  expect_identical(nrow(lup), 10L)
})

test_that("get_ems_lookup works", {
  skip_on_cran()
  skip_if_offline()
  get_ems_lookup(ask = FALSE)
})