tests/testthat/test-content.R

In httr: Tools for Working with URLs and HTTP

context("Content")

test_that("parse content is null if no body", {
  skip_httpbin()
  out <- content(HEAD("http://httpbin.org/headers"))
  expect_equal(out, NULL)
})


# has_content -------------------------------------------------------------

test_that("POST result with empty body doesn't have content", {
  skip_httpbin()
  r <- POST("http://httpbin.org/post", body = FALSE)
  expect_false(has_content(r))
})

test_that("HEAD requests don't have body", {
  skip_httpbin()
  r <- HEAD("http://httpbin.org/headers")
  expect_false(has_content(r))
})

test_that("regular POST does have content", {
  skip_httpbin()
  r <- POST("http://httpbin.org/post")
  expect_true(has_content(r))
})