tests/testthat/test-cli_helpers.R

In toniprice/jute: Sundry Utility Functions

# ---------------------------------------------------------------------------- #
test_that("style_cli_vec works as expected", {
  vec <- c("a", "b")
  sep <- ", "
  style <- list("vec-sep" = sep, "vec-last" = sep)
  expect_equal(style_cli_vec(vec), cli::cli_vec(vec, style))
})

# ---------------------------------------------------------------------------- #
test_that("style_valid_types works as expected", {
  valid <- c("one", "two", "three")
  sep <- " | "
  style <- list("vec-sep" = sep, "vec-last" = sep)
  expect_equal(style_valid_types(valid), cli::cli_vec(valid, style))
})

# ---------------------------------------------------------------------------- #