tests/testthat/helper.R

In rwetherall/alfr: Connectivity to 'Alfresco' Content Management Repositories

library(httptest)

.mockPaths("../")

set_requester(function (request) {
  gsub_request(request, "http://localhost:8080/alfresco/api/-default-/public/", "api/")
})

test_execution_mode <- Sys.getenv("TEST_EXECUTION_MODE", unset="mock")
print(paste("Test Execution Mode:", test_execution_mode))

test_server <- "http://localhost:8080"

admin_username <- "admin"
admin_password <- "admin"

mocked_test_that <- function (desc, code) do_mocking(test_that(desc, code), test_execution_mode)

do_mocking <- function (expr, mode=c("mock", "live", "capture"))
  match.arg(mode) %>%
  switch(
    mock = with_mock_api(expr),
    live = eval(expr),
    capture = capture_requests(expr))