tests/testthat/test-function-get_wasserportal_text.R

In KWB-R/wasserportal: R Package with Functions for Scraping Data of Wasserportal Berlin

test_that("get_wasserportal_text() works", {

  f <- wasserportal:::get_wasserportal_text

  expect_error(f())

  expect_identical(
    "Reading 'my_variable' for station 1 (my_station)",
    f(
      station = 1L,
      variable = 2L,
      station_ids = c(my_station = 1L),
      variable_ids = c(my_variable = 2L)
    )
  )

  expect_identical(
    "Reading 'variable_2' for station 1 (station_1)",
    f(station = 1, variable = 2, station_ids = 1:2, variable_ids = 1:2)
  )

})