tests/testthat/test-api.R

In request: High Level 'HTTP' Client

context("api")

test_that("api works", {
  skip_on_cran()

  aa <- "https://api.github.com/" %>% api()
  bb <- api("https://api.github.com/")
  bb_get <- bb %>% http()
  cc <- api("https://api.github.com/") %>% api_config(verbose()) %>% peep()

  expect_is(aa, "list")
  expect_is(bb, "endpoint")
  expect_is(bb_get, "list")

  expect_equal(cc$url[1], "https://api.github.com/")
  expect_is(cc$config, "request")
  expect_is(cc$config$options, "list")
  expect_true(cc$config$options$verbose)
})

test_that("api fails well", {
  skip_on_cran()

  expect_error(api(), "argument \"x\" is missing")
  expect_error(api(NULL), "no applicable method")
  expect_error(5 %>% api())
})