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 Dec. 9, 2018, 11:26 p.m.