tests/testthat/helper-mocks.R

In gutenbergr: Download and Process Public Domain Works from Project Gutenberg

local_dl_and_read <- function(.env = parent.frame()) {
  local_mocked_bindings(
    dl_and_read = function(url) {
      filename <- stringr::str_replace_all(
        basename(url),
        "[^[:alnum:]]",
        "-"
      )
      path <- test_path("fixtures", filename)
      readr::read_lines(path)
    },
    .env = .env
  )
}