Mocking tools outside/without a package ?

[homer3018]

Hello,

Within a Shiny app, I'm sourcing a file with all my functions, and I'm using testthat to test these. It's all good until I need to do some mocking and I can't quite figure out how to use the new functions with_mocked_bindingsand local_mocked_bindings.

Assuming I have the following functions :

my_function <- function(){
  0
}

mocked_fn <- function(){
  1
}

I'd expect this test to succeed :

test_that("Mocking a function works",{
  local_mocked_bindings(my_function = mocked_fn)
  
  expect_equal(my_function(), 1)

})

Unfortunately I keep running into Error in 'dev_package()': No packages loaded with pkgload. My sort of suspicion here is that these two functions can only work from within a package environment.

Is my understanding correct ? If so would there be a way of achieving my goal ?

Thanks ahead of time for the support !

[hadley]

Yeah, those functions only work inside a package sorry. I think the easiest way to solve your problem would be to put your R scripts in R/ directory and your tests in tests/testthat/ directory and add a minimal DESCRIPTION 😄