tests/testthat/test-palette.R

In ggokabeito: 'Okabe-Ito' Scales for 'ggplot2' and 'ggraph'

test_that("palette_colors() returns correct vector", {
  expect_equal(
    palette_colors(alpha = 1),
    c("#E69F00FF", "#56B4E9FF", "#009E73FF", "#F0E442FF", "#0072B2FF",
      "#D55E00FF", "#CC79A7FF", "#999999FF", "#000000FF")
  )

  expect_null(names(palette_colors()))

  expect_length(palette_colors(), 9)
})

test_that("palette_okabe_ito() returns correct vector", {
  expect_equal(
    palette_okabe_ito(order = c(2, 3, 5), alpha = 0.9),
    c("#56B4E9E6", "#009E73E6", "#0072B2E6")
  )

  expect_null(names(palette_okabe_ito()))

  expect_length(palette_okabe_ito(), 9)
  expect_length(palette_okabe_ito(order = c(2, 3, 5)), 3)
})