stRoke/tests/testthat/test-contrast_text.R

# Unit test for contrast_text()

library(testthat)


test_that("contrast_text() returns the correct text color", {
  expect_equal(contrast_text("#FFFFFF"), "black")
  expect_equal(contrast_text("#000000"), "white")
  expect_equal(contrast_text("#FFFFFF", light_text="blue", dark_text="green"), 
               "green")
  expect_equal(contrast_text("#000000", light_text="blue", dark_text="green"), 
               "blue")
})

################################################################################

# library(devtools)
# 
# install_github("MangoTheCat/visualTest")
# library(visualTest)
# 
# test_that("New test of color_plot()", {
#   par(bg=NULL)
#   colors <- colors()[34:53]
#   
#   # old <- getwd()
#   # setwd("/Users/au301842/stRoke/tests/testthat")
#   # setwd(old)
#   
#   png(filename = "data/test1.png")
#   color_plot(colors,method="relative")
#   dev.off()
#   
#   # getFingerprint("data/test1.png")
#   
#   expect_equal(getFingerprint("data/test1.png"), "AD07D27813E1D867")
#   # isSimilar(tmp, "AD07D27813E1D867", threshold = 8)
#   
#   #############################
#   
#   # colors <- colors()[51:70]
#   png(filename = "data/test2.png")
#   color_plot(colors,labels = TRUE, borders = FALSE,cex_label = .5, ncol = 3, method="perceived_2")
#   dev.off()
#   
#   # getFingerprint("data/test2.png")
#   
#   expect_equal(getFingerprint("data/test2.png"), "8B0B54D4E4AF2BB1")
#   
#   #############################
#   
#   png(filename = "data/test3.png")
#   color_plot(colors,labels = FALSE, borders = TRUE, ncol = 6, method="perceived")
#   dev.off()
#   
#   # getFingerprint("data/test3.png")
#   
#   expect_equal(getFingerprint("data/test3.png"), "B706F0F1C119CCF8")
# })
################################################################################