tests/testthat/test-mock-paths.R

In pachamaltese/dbtest: A Test Environment for DB Requests

context("Mock paths")

# use a new temp directory so we don't have to cleanup later
with_mock_path(path = "new_mock_path", {
  # we can use an entirely different mock path (and with a named argument)
  with_mock_db({
    con <- dbConnect(RSQLite::SQLite(), dbname = "new_db")
    test_that("The connection has a new path", {
      expect_identical(con@path, "new_db")
    })

    test_that("We can use mocks from the new path", {
      expect_identical(
        dbGetQuery(con, "SELECT * FROM airlines LIMIT 1"),
        data.frame(
          carrier = c("9E"),
          name = c("Endeavor Air Inc."),
          stringsAsFactors = FALSE
        )
      )
    })
    dbDisconnect(con)
  })
})

withr::with_options(
  c(dbtest.mock.paths = "new_one"), {
    test_that("dbtest.mock.paths is used", {
      expect_identical(.mockPaths(), "new_one")
    })

    test_that("and we can unset", {
      .mockPaths(NULL)
      expect_identical(.mockPaths(), c("tests/testthat/", "."))
    })

    test_that("with_mock_path can replace", {
      with_mock_path("baz", replace = TRUE, {
        expect_identical(.mockPaths(), "baz")
      })
    })
  }
)