tests/testthat/test-api_error_handler.R

In sckott/httsnap: High Level 'HTTP' Client

context("api_error_handler")

test_that("api_error_handler works", {
  skip_on_cran()

  expect_error(
    api('http://httpbin.org/status/503') %>% api_error_handler(stop_for_status),
    class = "http_error"
  )

  expect_error(
    api('http://httpbin.org/status/404') %>% api_error_handler(stop_for_status),
    class = "http_error"
  )

  expect_error(
    api("http://httpbin.org/status/501") %>% api_error_handler(stop_for_status),
    class = "http_error"
  )

  expect_error(api_error_handler(), "argument \".data\" is missing")
})