tests/testthat/helpers-xyz.R

In microservices: Breakdown a Monolithic Application to a Suite of Services

# httptest ----------------------------------------------------------------
options(httptest.debug = FALSE)

test_http <- function(desc, code){
        withr::local_package("httptest")
        old_dir <- httptest::.mockPaths()[1]
        on.exit(httptest::.mockPaths(old_dir))
        httptest::.mockPaths("_api")
        testthat::test_that(desc, {
                suppressWarnings(tryCatch(
                        suppressMessages(httptest::with_mock_api(code)),
                        error = function(e) return(httptest::capture_requests(code))
                ))
        })
}

pkg_name <- function() tryCatch(
        pkgload::pkg_name(),
        error = function(e) return(getPackageName(search()[max(which(search() %in% c(".GlobalEnv", "devtools_shims")))+1]))
)