tests/testthat/test-bad-arguments.R

In gghighlight: Highlight Lines and Points in 'ggplot2'

test_that("mistype of `==` is detected", {
  expect <- "Did you mistype some argument name? Or, did you mean `==`?: a = b"
  expect_error(check_bad_predicates(quos(a = b)), expect, fixed = TRUE)
  expect_error(gghighlight(a = b), expect, fixed = TRUE)
})

test_that("label_key must be a symbol", {
  expect_error(check_bad_label_key(quo("foo")), "label_key must be a symbol", fixed = TRUE)
  expect_error(gghighlight(label_key = "foo"), "label_key must be a symbol", fixed = TRUE)
  foo <- quo(foo)
  expect_error(gghighlight(label_key = !!foo), NA)
})

test_that("use of unhighlighted_colour is warned", {
  expect_warning(
    gghighlight(unhighlighted_colour = 1),
    "The `unhighlighted_colour` argument of `gghighlight()` is deprecated", fixed = TRUE
  )
})