tests/testthat/test-sweep_for_forecast_towns.R

context("Sweep for forecast towns")

test_that("sweep_for_forecast_towns returns correct default", {
  DT <- sweep_for_forecast_towns()
  expect_named(DT, c("aac", "town", "lon", "lat", "elev", "distance"))
})
adamhsparks/BOMRang documentation built on Jan. 31, 2023, 4:49 a.m.