tests/testthat/test-themes.R

In cliapp: Create Rich Command Line Applications

setup(start_app())
teardown(stop_app())

test_that("add/remove/list themes", {
  id <- default_app()$add_theme(list(".green" = list(color = "green")))
  on.exit(default_app()$remove_theme(id), add = TRUE)
  expect_true(id %in% names(default_app()$list_themes()))

  withr::with_options(list(crayon.enabled = TRUE, crayon.colors = 256), {
    capt0(cli_par(class = "green"))
    out <- capt0(cli_text(lorem_ipsum()))
    capt0(cli_end())
    expect_true(grepl(start(crayon::make_style("green")), out, fixed = TRUE))
  })

  default_app()$remove_theme(id)
  expect_false(id %in% names(default_app()$list_themes()))
})

test_that("default theme is valid", {
  expect_error({
    id <- default_app()$add_theme(builtin_theme())
    default_app()$remove_theme(id)
  }, NA)
})

test_that("explicit formatter is used, and combined", {
  id <- default_app()$add_theme(list(
    "span.emph" = list(fmt = function(x) paste0("(((", x, ")))")),
    "span.emph::before" = list(content = "<<"),
    "span.emph::after" = list(content = ">>")
  ))
  on.exit(default_app()$remove_theme(id), add = TRUE)
  out <- capt0(cli_text("this is {emph it}, really"))
  expect_match(crayon::strip_style(out), "(((<<it>>)))", fixed = TRUE)
})

test_that("simple theme", {
  def <- simple_theme()
  expect_true(is.list(def))
  expect_false(is.null(names(def)))
  expect_true(all(names(def) != ""))
  expect_true(all(vlapply(def, is.list)))
})

test_that("user's override", {
  custom <- list(".alert::before" = list(content = "custom:"))
  override <- list(".alert::before" = list(content = "override:"))

  start_app(theme = custom)
  out <- capt0(cli_alert("Alert!"))
  expect_match(out, "custom:")

  withr::with_options(list(cli.user_theme = override), {
    start_app(theme = custom)
    out <- capt0(cli_alert("Alert!"))
    expect_match(out, "override:")
  })
})