tests/testthat/test-utils.R

In lmeninato/anybadger: Create Custom Pipeline Badges

test_that("fill values into list works", {
  x <- list("a"=1, "b"=2, "c"=3)
  y <- list("a"=NULL, "b"=1, "c"=3, "d" =4)

  y <- fill_values(x,y)
  expect_equal(y, list("a"=1, "b"=2, "c"=3, "d"=4))

  x <- list("a"=1, "b"=NULL, "c"=3)
  y <- list("a"=NULL, "b"=1, "c"=3, "d" =4)

  y <- fill_values(x,y)
  expect_equal(y, list("a"=1, "b"=1, "c"=3, "d"=4))

  color_hex <- lookup_color_hex("BLUE")

  expect_equal(color_hex, "#0000FF")
  expect_error(lookup_color_hex("asd"))
})