Multipart can also contain raw data

NEWS.md

@@ -1,6 +1,6 @@
 # httptest2 1.1.0.9000
 
-* `build_mock_url()` now works with multipart body request containing strings (#40, @jmaspons)
+* `build_mock_url()` now works with multipart body request containing character strings or raw data (#40, @jmaspons)
 
 # httptest2 1.1.0
 
@@ -40,4 +40,4 @@ Changes to function signatures:
 
 * The `path` argument to `capture_requests()` and `start_capturing()` has been removed; instead set the mock path explicitly with `.mockPaths()` or use `with_mock_dir()`.
 * Internal function `save_response()` requires a `file` path argument because `httr2_response` objects do not contain their `request`, which is needed to construct the mock file path
-* Internal function `build_mock_url()` no longer accepts a string URL as an input; it only accepts `request` objects
+* Internal function `build_mock_url()` no longer accepts a string URL as an input; it only accepts `request` objects

R/build-mock-url.R

@@ -82,7 +82,7 @@ get_string_request_body <- function(req) {
         } else if (inherits(x, "form_data")) {
           rawToChar(x$value)
         } else {
-          # assume string
+          # assume character string or raw
           x
         }
       })

tests/testthat/test-capture-requests.R

@@ -37,7 +37,8 @@ test_that("We can record a series of requests (a few ways)", {
       req_body_multipart(
         file = curl::form_file(file_path),
         string = "some text",
-        form_data = curl::form_data("form data")
+        form_data = curl::form_data("form data"),
+        raw_data = charToRaw("raw data")
       ) %>%
       req_method("POST") %>%
       req_perform()
@@ -51,7 +52,7 @@ test_that("We can record a series of requests (a few ways)", {
     "httpbin.org/get.json",
     "httpbin.org/image/webp.R", # Not a simplifiable format, so .R
     "httpbin.org/image/webp.R-FILE", # The `write_disk` location
-    "httpbin.org/post-40b03d-POST.json",
+    "httpbin.org/post-4f024d-POST.json",
     "httpbin.org/put-PUT.json", # Not a GET, but returns 200
     "httpbin.org/response-headers-ac4928.json",
     "httpbin.org/status/200.txt", # empty 200 response "text/plain", so .txt
@@ -109,7 +110,8 @@ test_that("We can then load the mocks it stores", {
         req_body_multipart(
           file = curl::form_file(file_path),
           string = "some text",
-          form_data = curl::form_data("form data")
+          form_data = curl::form_data("form data"),
+          raw_data = charToRaw("raw data")
         ) %>%
         req_method("POST") %>%
         req_perform()