mockery | R Documentation |
There are great tools for unit testing in R out there already but they don't come with a lot of support for mock objects. This package aims at fixing that.
library(mockery)
m <- mock(TRUE, FALSE, TRUE)
# this will make summary call our mock function rather then
# UseMethod; thus, summary() will return values as above
stub(summary, 'UseMethod', m)
summary(iris) # returns TRUE
summary(cars) # returns FALSE
summary(co2) # returns TRUE
## Not run:
library(testthat)
m <- mock(TRUE)
f <- function() read.csv('data.csv')
with_mock(read.csv = m, {
f()
expect_call(m, 1, read.csv('data.csv'))
})
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.