tests/testthat/test-utils-mocks.R

In mctq: Tools to Process the Munich ChronoType Questionnaire (MCTQ)

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(""), "")
})