tests/testthat/test-function-read_wasserportal_raw_gw.R

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

#
# This test file has been generated by kwb.test::create_test_files()
# launched by user hsonne on 2023-09-23 23:10:43.430779.
# Your are strongly encouraged to modify the dummy functions
# so that real cases are tested. You should then delete this comment.
#

test_that("read_wasserportal_raw_gw() works", {

  f <- wasserportal:::read_wasserportal_raw_gw

  result  <- f()

  expect_identical(kwb.utils::mainClass(result), "tbl_df")

  expect_identical(
    names(result),
    c("Messstellennummer", "Datum", "Parameter", "Einheit", "Messwert")
  )

})