tests/testthat/test-theme-branding.R

In Rbearcat: University of Cincinnati Themes and Utilities for Econometrics and Data Science

test_that("palette_UC exposes official UC brand colors", {
  expect_equal(unname(palette_UC[["UC Red"]]), "#E00122")
  expect_equal(unname(palette_UC[["UC Dark Red"]]), "#B8011C")
  expect_equal(unname(palette_UC[["Bearcats Black"]]), "#333333")
  expect_equal(unname(palette_UC[["Grey"]]), "#F3F3F3")
  expect_equal(unname(palette_UC[["Vivid red"]]), unname(palette_UC[["UC Red"]]))
  expect_equal(unname(palette_UC[["dark gray"]]), unname(palette_UC[["Bearcats Black"]]))
})

test_that("theme_UC uses UC visual defaults", {
  theme <- theme_UC()

  expect_equal(theme$plot.title$colour, "#E00122")
  expect_equal(theme$strip.background$fill, "#F3F3F3")
  expect_equal(theme$strip.background$colour, "#E00122")
})