tests/testthat/test-find_cpt.R

In cptcity: 'cpt-city' Colour Gradients

context("find_cpt")

test_that("find colour works", {
  expect_equal(find_cpt("temperature"),
               c("arendal_temperature",
                 "idv_temperature",
                 "jjg_misc_temperature",
                 "kst_03_red_temperature")
               )
})