tests/testthat/test-ggplot.R

In vdiffr: Visual Regression Testing and Graphical Diffing

vdiffr_skip_stale()
skip_if_not_installed("ggplot2")

test_that("ggtitle is set correctly", {
  p <- ggplot2::ggplot()
  expect_doppelganger("Some title", p)
  expect_doppelganger("Some other title", p + ggplot2::ggtitle(NULL))
})