tests/testthat/test-function-get_surfacewater_variables.R

test_that("get_surfacewater_variables() works", {

  result <- wasserportal:::get_surfacewater_variables()

  expect_type(result, "character")

  expect_true(all(startsWith(names(result), "surface_water.")))

})
KWB-R/wasserportal documentation built on June 6, 2024, 10:26 a.m.