File: test-resp-url.R

package info (click to toggle)
r-cran-httr2 1.1.1-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,604 kB
  • sloc: sh: 21; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 429 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
test_that("can extract url components from a response", {
  resp <- req_perform(request_test("/get?a=1&b=2"))

  expect_equal(resp_url(resp), example_url("/get?a=1&b=2"))
  expect_equal(resp_url_path(resp), "/get")
  expect_equal(resp_url_queries(resp), list(a = "1", b = "2"))

  expect_equal(resp_url_query(resp, "a"), "1")
  expect_equal(resp_url_query(resp, "c"), NULL)
  expect_equal(resp_url_query(resp, "c", "x"), "x")
})