tests/testthat/test-api.R

test_that("API online", {

  skip_if_offline("mehdiechchelh.com")
  skip_on_cran()

  resp <- api_get("/api/rfr/")
  expect_equal(resp$response$status_code, 200)
  expect_equal(resp$content, list(active = TRUE))
})

Try the eiopaR package in your browser

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

eiopaR documentation built on May 31, 2021, 9:10 a.m.