tests/testthat/test-themed_label.R

In camille-s/camiller: Lots of convenience functions

library(camiller)
library(testthat)

test_that("themed_label handles theme argument", {
  el1 <- themed_label("the title", element = "plot.title")
  el2 <- themed_label("the title", theme = ggplot2::theme_void(), element = "plot.title")

  expect_is(el1, "gg")
  expect_is(el2, "gg")
})

test_that("themed_label handles invalid element name", {
  expect_error(themed_label("caption", element = "source"), "valid ggplot theme")
})

test_that("themed_label handles theme as function", {
  el1 <- themed_label("the caption", theme = ggplot2::theme_classic, element = "plot.caption")
  el2 <- themed_label("the caption", theme = ggplot2::theme_classic(), element = "plot.caption")

  expect_is(el1, "gg")
  expect_is(el2, "gg")
})