tests/testthat/test-0-http.R

context("http")

library(httr)

test_that("check that response is compressed", {
  r = trundler:::GET("https://api.trundler.dev/category")

  expect_equal(headers(r)$`content-encoding`, "gzip")
})

Try the trundler package in your browser

Any scripts or data that you put into this service are public.

trundler documentation built on July 29, 2020, 1:06 a.m.