test_that("Col2Hex()", {
  expect_equal(Col2Hex(c("peachpuff", "blue"), TRUE),
               c("#FFDAB9FF", "#0000FFFF"))
  expect_equal(Col2Hex(c("#FFDAB9AA", "blue"), TRUE),
               c("#FFDAB9AA", "#0000FFFF"))
  expect_equal(Col2Hex(1:3), c("#000000", "#DF536B", "#61D04F"))
})