tests/testthat/test-rr_romeo_colour.R

context("rr_romeo_colour")

test_that("rr_romeo_colour() works", {
  expect_error(rr_romeo_colour("purple"),
               regexp = paste0("'arg' should be one of ", dQuote("green"), ", ",
                              dQuote("blue"), ", ", dQuote("yellow"), ", ",
                              dQuote("white")))
})

Try the rromeo package in your browser

Any scripts or data that you put into this service are public.

rromeo documentation built on March 13, 2020, 9:08 a.m.