tests/testthat/test-test_named_colors.R

In onehundredpercenttexan/colourgen: One Colour Palette Interface to rule them all

context("test_named_colors")

test_that("named colors work", {
  expect_contains(colourgen::make_palette(
    colour = c("red", "yellow", "darkgreen"), n = 7),
    c("#FF0000", "#FF5500", "#FFAA00", "#FFFF00", "#AACB00", "#559700", "#006400"))
})

test_that("brewer palettes work", {
  expect_contains(
    colourgen::make_palette(colour = "Purples", n = 7),
    c("#FCFBFD", "#E8E6F1", "#C6C6E1", "#9E9AC8", "#786EB2", "#5B3595", "#3F007D"))
})