inst/examples/saturate/inst/tests/testthat/tests0/test_saturate0.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
###############################################################################

context("miss testing saturate")

test_that("non-traced function used", {
    
    eg <- c("hotpink", "orange", "#1100EE")
    out <- matrix(c(255, 105, 180, 255, 165, 0, 17, 0, 238), nrow = 3)
    expect_that(col2rgb(eg), is_equivalent_to(out))
})