tests/testthat/test-auto.R

In thematic: Unified and Automatic 'Theming' of 'ggplot2', 'lattice', and 'base' R Graphics

context("auto-config")

test_that("Can influence auto resolution with config", {
  # TODO: add test(s) with different priority settings
  old_config <- auto_config_set(auto_config("black", "white", NA, font = "Pacifico"))
  on.exit(auto_config_set(old_config), add = TRUE)

  theme <- thematic_theme(font = "auto")
  expect_true(theme$bg == "auto")
  expect_true(theme$fg == "auto")
  expect_true(theme$accent == "auto")
  theme <- auto_resolve_theme(theme)
  expect_true(theme$bg == "black")
  expect_true(theme$fg == "white")
  expect_true(is.na(theme$accent))
  expect_true(theme$font$families == "Pacifico")
})

test_that("priorities() values match priority arg", {
  expect_equal(priorities(), eval(formals(auto_config)$priority))
})

test_that("thematic_theme() default values are consistent", {
  expect_equal(formals(thematic_on), formals(thematic_theme))
  expect_equal(formals(thematic_on), formals(thematic_rmd))
  fmls <- formals(thematic_shiny)
  fmls$session <- NULL
  expect_equal(formals(thematic_on), fmls)
})