tests/testthat/test-themes.R

In ggdag: Analyze and Create Elegant Directed Acyclic Graphs

set.seed(1234)

test_that("themes look good", {
  p <- ggdag(test_dag)
  expect_identical(theme_dag, theme_dag_blank)
  expect_identical(theme_dag_gray, theme_dag_grey)
  expect_identical(theme_dag_gray_grid, theme_dag_grey_grid)
  expect_doppelganger("theme_dag()", p + theme_dag())
  expect_doppelganger("theme_dag_grid()", p + theme_dag_grid())
  expect_doppelganger("theme_dag_gray()", p + theme_dag_gray())
  expect_doppelganger("theme_dag_gray_grid()", p + theme_dag_gray_grid())
})