inst/examples/saturate/inst/tests/RUnit/tests1/test_saturate1.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.saturate1 <- function() {
	eg <- matrix((1:9) * 16, nrow = 3)
    
    out1 <- matrix(
        c(  16, 189.107763615295, 48, 
            64, 229.859154929577, 96, 
            112, 242.947525120953, 144), 
        nrow = 3, ncol = 3)
    
	checkEquals(saturateHSV(eg, sat = 20), out1)
    
    out2 <- matrix(
        c(  16, 7.11421098517873, 48, 
            64, 21.3612565445026, 96, 
            112, 42.778505897772, 144), 
        nrow = 3, ncol = 3)
    
	checkEquals(saturateHSV(eg, sat = 0.2), out2)

}