tests/testthat/test-earth.R

In wcornwell/earthtones: Derive a Color Palette from a Particular Location on Earth

context("earthtones")

## Need to do something nice here with testing?
test_that("returns normal", {
  if(grepl("3.0.",packageDescription("ggmap")$Version )){
  if(ggmap::has_google_key()){
  expect_is(get_earthtones(),"palette")
  expect_is(get_earthtones(method="kmeans"),"palette")
  expect_null(print(get_earthtones()))
  expect_is(get_earthtones(include.map=FALSE),"character")
  expect_message(get_earthtones(sampleRate = 250))
  }
  }
})

test_that("test stop() errors", {
  expect_error(earthtones::get_earthtones(method="42"), message = "hello method.*")
  expect_error(if (!requireNamespace("cluster",quietly=TRUE)) {
    earthtones::get_earthtones(method="pam")
    } else {
      stop("method")
    },
    message = "method.*")
})