Extend curl_opts to allow multiple data elements

Fixes #509
r-lib · Sep 4, 2024 · 233bf2a · 233bf2a
1 parent 33635e6
commit 233bf2a
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/R/curl.R b/R/curl.R
@@ -197,7 +197,7 @@ curl_data <- function(x, binary = FALSE, raw = FALSE) {
 }
 
 # Format described at <http://docopt.org>
-curl_opts <- "Usage: curl [<url>] [-H <header> ...] [options] [<url>]
+curl_opts <- "Usage: curl [<url>] [-H <header> ...] [-d <data> ...] [options] [<url>]
       --basic                  (IGNORED)
       --compressed             (IGNORED)
       --digest                 (IGNORED)

diff --git a/tests/testthat/test-curl.R b/tests/testthat/test-curl.R
@@ -34,6 +34,13 @@ test_that("captures key components of call", {
   expect_equal(curl_args("curl 'http://example.com' --verbose")$`--verbose`, TRUE)
 })
 
+test_that("can accept multiple data arguments", {
+  expect_equal(
+    curl_args("curl https://example.com -d x=1 -d y=2")$`--data`,
+    c("x=1", "y=2")
+  )
+})
+
 test_that("can handle line breaks", {
   expect_equal(
     curl_args("curl 'http://example.com' \\\n -H 'A: 1' \\\n -H 'B: 2'")$`--header`,