tests/testthat/test-function-to_base_filename.R

test_that("to_base_filename() works", {

  f <- wasserportal:::to_base_filename

  expect_error(f())

  expect_identical(f("a_b"), "a-b")
  expect_identical(f("a.b"), "a_b")
  expect_identical(f("a_b.c"), "a-b_c")
})
KWB-R/wasserportal documentation built on June 6, 2024, 10:26 a.m.