tests/testthat/test-connect.R

In nbgallery/rpki: Tools to PKI-enable Utilities in R and Allow for Secure Connections and Package Installation

context("connection")

p12.file <- "fred.p12"
p12.password <- "fred"
ca.file <- "root-ca.crt"

test_that("Can still connect to unsecured websites", {
  pki_enable_httr(
    pki_file = p12.file,
    ca_file = ca.file,
    password = p12.password,
    override = TRUE
  )
  response <- GET("http://httpbin.org")
  expect_equal(response$status_code, 200)
  reset_config()
})