tests/testthat/test-function-get_groundwater_options.R

test_that("get_groundwater_options() works", {

  result <- wasserportal:::get_groundwater_options()

  expect_identical(
    names(result),
    c("groundwater.level", "groundwater.quality")
  )
})
KWB-R/wasserportal documentation built on June 6, 2024, 10:26 a.m.