tests/testthat/test-palette_lcbc.R

In LCBC-UiO/MOAS: MOAS convenience functions

test_that("test lcbc palette", {
  expect_equal(names(lcbc_colors),
               c("light green", "dark green", "light grey", "dark grey", "light blue",
                 "dark blue", "white", "black"))
})


test_that("test lcbc_cols", {
  expect_equal(names(lcbc_cols()),
               c("light green", "dark green", "light grey", "dark grey", "light blue",
                 "dark blue", "white", "black"))

  expect_equal(lcbc_cols("dark grey"), c(`dark grey` = "#626262"))
  expect_equal(lcbc_cols("light green"), c(`light green` = "#c5da84"))
  expect_equal(lcbc_cols("white"), c(white = "#e2e2e2")
  )

})

test_that("test lcbc_palettes", {
  expect_equal(names(lcbc_palettes),
               c("main", "light", "dark", "blue", "green", "grey")
  )
})

test_that("test lcbc_pal", {
  expect_equal(lcbc_pal()(1), "#009FE3" )
  expect_equal(lcbc_pal()(10), c("#009FE3", "#22A9E1", "#44B4DF", "#66BFDD", "#85C8BF", "#A5D1A1",
                                 "#C5DA84", "#B4D162", "#A4C940", "#94C11F"))
  expect_equal(lcbc_pal("light")(5),
               c("#66BFDD", "#A3D0DF", "#E2E2E2", "#D3DEB3", "#C5DA84") )
})