tests/testthat/test-rainbow_fun.R

In dendextend: Extending 'dendrogram' Functionality in R

# library(testthat)
# library(dendextend)


context("rainbow_fun")


test_that("rainbow_fun works", {
   
   dend <- as.dendrogram(hclust(dist(mtcars)))

   # if colorspace not installed
   expect_no_error(with_mock(
      requireNamespace = function(...) FALSE,
      rainbow_fun(1)
   ))
   
})