tests/testthat/test-darken.R

In inSileco/graphicsutils: Collection of graphics utilities

context("Shade colors")

test_that("expected values", {
  expect_equal(ramp("green", "blue", 0), "#00FF00")
  expect_equal(ramp("green", "blue", 100), "#0000FF")
  expect_equal(ramp("green", "blue", 50), "#007F7F")
  expect_true(all(ramp("green", "blue", 50, TRUE)[,1L] == c(0, 127, 127)))
  expect_equal(darken("green", 50), "#007F00")
  expect_equal(darken("green", c(50, -50)), lighten("green", c(-50, 50)))
  expect_equal(lighten("green", 50), "#7FFF7F")
  expect_equal(lighten("green", 50), darken("green", -50))
  expect_equal(lighten("green", -50), darken("green", 50))
  expect_error(ramp("green", "blue", 101))
})