reproducible (version 1.1.1)

isInteractive: Alternative to interactive() for unit testing

Description

This is a suggestion from https://github.com/MangoTheCat/blog-with-mock/blob/master/Blogpost1.Rmd as a way to test interactive code in unit tests. Basically, in the unit tests, we use testthat::with_mock, and inside that we redefine isInteractive just for the test. In all other times, this returns the same things as interactive().

Usage

isInteractive()

Examples

# NOT RUN {
testthat::with_mock(
`isInteractive` = function() {browser(); TRUE},
{
  tmpdir <- tempdir()
  aa <- Cache(rnorm, 1, cacheRepo = tmpdir, userTags = "something2")
  # Test clearCache -- has an internal isInteractive() call
  clearCache(tmpdir, ask = FALSE)
  })
# }