tests/testthat/test-utils-mocks.R

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(""), "")
})
gipsousp/mctq documentation built on Dec. 3, 2023, 7:11 p.m.