fix(test): update theme tests for paper_bg=FALSE default (#19)

2026-08-01 21:29:44 -04:00
parent e257180f15
commit f32093c662
1 changed files with 6 additions and 1 deletions
@@ -133,8 +133,13 @@ test_that("theme_civilytics uses brand ink color for text", {
  expect_equal(th$text$colour, unname(civilytics_colors["ink"]))
 })

-test_that("theme_civilytics uses brand paper color for plot background", {
+test_that("theme_civilytics has transparent background by default", {
  th <- theme_civilytics()
+  expect_true(is.na(th$plot.background$fill))
+})
+
+test_that("theme_civilytics uses brand paper color when paper_bg = TRUE", {
+  th <- theme_civilytics(paper_bg = TRUE)
  expect_equal(th$plot.background$fill, unname(civilytics_colors["paper"]))
 })