tests/testthat/test-phs_colours.R

In Public-Health-Scotland/phsstyles: Standard Graphic Styles for use in Public Health Scotland

test_that("All available colours are shown when colourname is NULL", {
  expect_equal(phs_colours(), phs_colour_values)
})

test_that("Hex colour is generated for specific named colours", {
  expect_equal(phs_colours("phs-blue"), "#0078D4")
  expect_equal(phs_colours(c("phs-blue", "phs-purple")), c("#0078D4", "#3F3685"))
})

test_that("Produce an error if input colours are not in the PHS colour list", {
  expect_error(phs_colours(c("phs-blue", "phs-yellow", "phs-red")))
})