tests/testthat/test-utils-mocks.R

In gipsousp/mctq: Munich ChronoType Questionnaire Tools

test_that("is_interactive() | general test", {
  expect_equal(is_interactive(), interactive())
})

test_that("require_namespace() | general test", {
  expect_equal(require_namespace(
    "base"
  ),
  requireNamespace("base", quietly = TRUE)
  )
})

test_that("read_line() | general test", {
  expect_equal(read_line(""), "")
})