tests/testthat/test-colorpile.R

In ropenscilabs/colorpiler: Provides community-driven color palettes

context("colorpiler")

test_that("colorpile_palette basics", {
  p <- colorpile_palette("BottleRocket")
  expect_is(p, "colorpile_palette")
  expect_true(is.function(p))

  expect_error(p(100), "Too many colours")
  expect_equal(length(p(1)), 1L)
  expect_equal(length(p(5)), 5L)
})