tests/testthat/test_helpers.R

test_that("Correct number of colours returned", {
  expect_equal(length(get_colour("ROB2", "cochrane")), 5)
  expect_equal(length(get_colour("ROB2", "colourblind")), 5)
})

test_that("Convert weird spelling of colour", {
  expect_equal(clean_colour_spelling("colorblind"), "colourblind")
})
mcguinlu/robvis documentation built on July 4, 2023, 11:15 p.m.