inst/examples/saturate/inst/tests/RUnit/tests2/test_saturate2.R

In MangoTheCat/testCoverage: Analyzing coverage of R unit tests

# SVN revision:   
# Date of last change: 2013-11-27
# Last changed by: ccampbell
# 
# Original author: ccampbell
# Copyright Mango Solutions, Chippenham, UK 2013
###############################################################################

test.saturate2 <- function() {
	eg <- c("hotpink", "orange", "#1100EE")
    
    out1 <- c("#FF0984", "#FFA500", "#1100EE")
    
	checkEquals(saturate(eg, sat = 20), out1)
    
    out2 <- c("#FFC6E3", "#FFA501", "#1201EE")
    
	checkEquals(saturate(eg, sat = 0.2), out2)

}