tests/testthat/test-25-distance.R

In shades: Simple Colour Manipulation

context("Calculating colour distances")

test_that("colour distances can be calculated", {
    expect_equal(round(distance(c("red","green","blue"),"red")), c(0,87,53))
    expect_error(distance("red", c("red","green","blue")), "Reference should be a single shade")
})