tests/testthat/test-do_GET.R

In analogsea: Interface to 'DigitalOcean'

# tests for do_GET
context("do_GET")

test_that("returns expected output for sizes endpoint", {
	skip_on_cran()

  siz <- do_GET("sizes")

  expect_is(siz, "list")
  expect_named(siz, c("sizes", "links", "meta"))
})

test_that("returns expected output for regions endpoint", {
	skip_on_cran()

  regs <- do_GET("regions")

  expect_is(regs, "list")
  expect_named(regs, c("regions", "links", "meta"))
})

test_that("httr curl options work", {
	skip_on_cran()

  library("httr")
  expect_error(do_GET("sizes", config = timeout(seconds = 0.001)))
})