pretend_now_is: Pretend now is some other time.

In robertzk/testthatsomemore: A mocking, stubbing, and file testing framework extending testthat

Description

This method stubs the built-in Sys.time, Sys.Date, and date methods with an overwritten value for use in unit tests.

Usage

pretend_now_is(time, expr)

Arguments

time	Date or POSIXct or character. For example, Sys.time() + as.difftime(1, units = "days") or "1 day from now".
expr	expression. The expression to evaluate while pretending the current time is time.

Details

Either a Date or POSIXct object can be provided, or an English string in the form "<number> <unit>s <from now/ago>" such as:

• 1 hour ago

• 2 months from now

• 10 seconds ago

These are translated into Sys.time() + as.difftime(number, units = unit) (or - in the case of "ago").

Value

the value of expr.

Examples

pretend_now_is(Sys.time() + as.difftime(1, units = "days"), {
 cat("It's UNIX time ", Sys.time(), ", tomorrow!\n", sep = "")
})

now <- Sys.time()
pretend_now_is("10 minutes from now", {
  stopifnot(all.equal(
   as.integer(as.difftime(Sys.time() - now, units = "minutes")),
   10))
})

robertzk/testthatsomemore documentation built on May 27, 2019, 11:38 a.m.