tests/testthat/test-utils_colors.R

In Jean-Romain/lidR: Airborne LiDAR Data Manipulation and Visualization for Forestry Applications

context("utils_colors")

test_that("set.colors attribute the proper color", {
  x = 1:10
  c = lidR:::set.colors(x, height.colors(50))

  expect_equal(length(unique(c)), length(x))

  x = rep(1,10)
  c = lidR:::set.colors(x, height.colors(50))

  expect_equal(c, "#0000FF")
})

test_that("colors palette works", {
  expect_error(random.colors(10), NA)
  expect_error(forest.colors(10), NA)
  expect_error(pastel.colors(10), NA)
  expect_error(height.colors(10), NA)
})