tests/testthat/test-iwanthue.r

In hoesler/rwantshue: R adaptor for the "I want hue" color palette generator

context("iwanthue")

test_that("hex creates a vector of hex values", {
  # given 
  scheme <- iwanthue()
  
  # when
  palette <- scheme$hex()

  # then
  expect_is(palette, "character")
  expect_match(palette, "#[0-9a-f]{6}")
})

test_that("hex creates the correct number of colors", {
  # given 
  scheme <- iwanthue()
  n <- 10
  
  # when
  palette <- scheme$hex(n)

  # then
  expect_equal(length(palette), n)
})

test_that("rgb creates a matrix of 3 rgb values", {
  # given 
  scheme <- iwanthue()
  
  # when
  palette <- scheme$rgb()

  # then
  expect_is(palette, "matrix")
  expect_true(is.numeric(palette))
  expect_equal(ncol(palette), 3)
})

test_that("rgb creates the correct number of colors", {
  # given 
  scheme <- iwanthue()
  n <- 10
  
  # when
  palette <- scheme$rgb(n)

  # then
  expect_equal(nrow(palette), n)
})

test_that("palette method aceepts a valid color space", {
  # given 
  scheme <- iwanthue()
  
  # when
  palette <- scheme$palette(color_space = list(c(0,360), c(0,100), c(0,100)))

  # then
  expect_is(palette, "character")
})