tests/testthat/test_palette.R

context("Abundance palette")

test_that("abundance_palette", {
  expect_is(abundance_palette(n = 10), "character")
  expect_length(abundance_palette(n = 10), 10)
  expect_length(abundance_palette(n = 10, season = "breeding"), 10)
  expect_match(abundance_palette(n = 10, season = "nonbreeding"),
               "#[0-9A-F]{6}")
})
CornellLabofOrnithology/stemhelper documentation built on Feb. 5, 2023, 9:59 a.m.