tests/testthat/test-function-get_option.R

In KWB-R/kwb.prep: Markdown-Documented Data Preparation

#
# This test file has been generated by kwb.test::create_test_files()
# launched by user hsonne on 2021-02-14 04:32:50.
# Your are strongly encouraged to modify the dummy functions
# so that real cases are tested. You should then delete this comment.
#

test_that("get_option() works", {

  expect_silent(y <- kwb.prep:::get_option())
  expect_is(y, "list")

})