Fix requester usage

NEWS.md

@@ -1,5 +1,7 @@
 # httptest 4.1.0.9000
 
+* `with_mock_dir()` now uses the requester set by `set_requester()` (#70, @maelle).
+
 # httptest 4.1.0
 
 * Function alias `with_mock_API`, deprecated in 3.0.0, has been removed.

R/capture-requests.R

@@ -121,7 +121,7 @@ start_capturing <- function(path = NULL, simplify = TRUE) {
 #' @importFrom jsonlite prettify
 save_response <- function(response, simplify = TRUE) {
   # Construct the mock file path
-  mock_file <- build_mock_url(response$request)
+  mock_file <- build_mock_url(get_current_requester()(response$request))
   # Track separately the actual full path we're going to write to
   dst_file <- file.path(.mockPaths()[1], mock_file)
   mkdir_p(dst_file)

tests/testthat/test-mock-dir.R

@@ -46,4 +46,24 @@ public({
       expect_identical(.mockPaths(), "/asdf")
     })
   })
+
+  test_that("with_mock_dir uses the set requester", {
+    set_requester(function (request) {
+      gsub_request(
+        request,
+        "http://httpbin.org/status/",
+        "api/",
+        fixed = TRUE
+      )
+    })
+    d <- tempfile()
+    dir.create(file.path(d, "tests", "testthat"), recursive = TRUE)
+    old <- setwd(d)
+    on.exit(setwd(old))
+
+    with_mock_dir("asdf", {
+      resp <- GET("http://httpbin.org/status/204")
+      expect_true(dir.exists(file.path("tests", "testthat", "asdf", "api")))
+    })
+  })
 })