Use base pipe (#802)

A couple of test files still had the magrittr pipe.

Author: gaborcsardi

tests/testthat/test-req-body.R

@@ -73,7 +73,7 @@ test_that("can send file with redirect", {
   path <- tempfile()
   writeChar(str, path)
 
-  resp <- request_test("/redirect-to") %>%
+  resp <- request_test("/redirect-to") |>
     req_url_query(url = "/post", status_code = "307") |>
     req_body_file(path, type = "text/plain") |>
     req_perform()

tests/testthat/test-req-dry-run.R

@@ -29,7 +29,7 @@ test_that("authorization headers are redacted", {
   expect_equal(out$headers$authorization, redacted_sentinel())
 
   # unless specifically requested
-  req <- request("http://example.com") %>% req_auth_basic("user", "password")
+  req <- request("http://example.com") |> req_auth_basic("user", "password")
   expect_snapshot(out <- req_dry_run(req, redact_headers = FALSE))
   expect_equal(out$headers$authorization, "Basic dXNlcjpwYXNzd29yZA==")
 })

tests/testthat/test-resp-url.R

@@ -1,5 +1,5 @@
 test_that("can extract url components from a response", {
-  req <- request_test("/get") %>% req_url_query(a = "1", b = "2")
+  req <- request_test("/get") |> req_url_query(a = "1", b = "2")
   resp <- req_perform(req)
 
   expect_equal(resp_url(resp), example_url("/get?a=1&b=2"))