tests/testthat/test-internet_connectivity.R

In rbioapi: User-Friendly R Interface to Biologic Web Services' API

test_that(".rba_http_status works", {

  expect_type(
    object = .rba_http_status("200", verbose = TRUE),
    type = "character"
  )
  expect_regex(
    obj = .rba_http_status("599", verbose = TRUE),
    pattern = "redirection",
    ignore.case = TRUE
  )
  expect_error(
    object = .rba_http_status("999999", verbose = TRUE)
  )

})