tests/testthat/test-brain_palettes.R

In ggseg: Plotting Tool for Brain Atlases

test_that("Check that palette extraction happens ok", {
  expect_is(class(brain_pals_info()), "character")
  expect_equal(length(brain_pal("dk", 13, unname = TRUE)), 13)
  expect_equal(length(brain_pal("dk", 13, direction = -1)), 13)
  expect_equal(length(brain_pal("aseg")), 45)

  expect_equal(length(brain_pal("aseg", n = 1:8)), 8)
  expect_equal(length(brain_pal("aseg", "all")), 45)

  expect_warning(length(brain_pal("aseg", 2)), "3")
  expect_equal(length(brain_pal("aseg", 22, unname = TRUE)), 22)
  expect_warning(brain_pal("dk", 50))
  expect_error(brain_pal("yeo"))
})