tests/testthat/test-alerts.R

In r-lib/boxes: Helpers for Developing Command Line Interfaces

start_app()
on.exit(stop_app(), add = TRUE)

test_that("generic", {
  expect_snapshot(local({
    cli_div(theme = list(".alert" = list(before = "GENERIC! ")))
    cli_alert("wow")
  }))
})

test_that_cli("success", {
  expect_snapshot(local({
    cli_alert_success("wow")
  }))
})

test_that_cli("danger", {
  expect_snapshot(local({
    cli_alert_danger("wow")
  }))
})

test_that_cli("warning", {
  expect_snapshot(local({
    cli_alert_warning("wow")
  }))
})

test_that_cli("info", {
  expect_snapshot(local({
    cli_alert_info("wow")
  }))
})

test_that("before and after can have spaces", {
  expect_snapshot(local({
    cli_div(theme = list(.alert = list(before = "x  ", after = "  x")))
    cli_alert("continuing that first alert", wrap = TRUE)
  }))
})