tests/testthat/test-ssl.R

context("SSL")

test_that("SSL certificates verified as expected", {
  expect_equal(status_code(GET("https://google.com")), 200L)
  expect_equal(status_code(GET("https://firefox.com")), 200L)
})
r-lib/httr documentation built on June 6, 2018, 9:32 p.m.