tests/testthat/test-count_watershed_data.R

context("Validate count_watershed_data output")


test_that("count_watershed_data valid output", {

  data_dir <- '/null'
  cities <- c("Portland | OR")

  expect_error(
    df <- sup(count_watershed_data(data_dir = data_dir, cities = cities))
  )

})
IMMM-SFA/teleconnect documentation built on Oct. 22, 2021, 2 p.m.