tests/testthat/test-image.R

In analogsea: Interface to 'DigitalOcean'

# tests for image
context("image")

test_that("fails well with no input", {
  expect_error(image(), "argument \"id\" is missing")
})

test_that("fails well with non-existent droplet", {
	skip_on_cran()

  expect_error(image("bearbearbear"), "The resource you were accessing could not be found")
})

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

  library("httr")
  expect_error(image("asdfadf", config = timeout(seconds = 0.001)))
})