tests/testthat/test-independent-test_utils_cli.R

In pkglite: Compact Package Representations

# test cli_text
testthat::test_that("cli_text prints concatenated texts with \n as separator", {
  strs <- c("str1", "str2", "str999")
  cli_text(strs)
  testthat::expect_output(cli_text(strs), regexp = "str1\\nstr2\\nstr999")
})

# test cli_h1
testthat::test_that("cli_h1 prints string as header with prefix and suffix", {
  strs <- "This is a test heading"
  strl <- "This is a really longgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg heading"
  cli_h1(strs)
  cli_h1(strl)
  testthat::expect_output(cli_h1(strs), regexp = ".*?This is a test heading.*?\\-+.*")
  testthat::expect_output(cli_h1(strl), regexp = ".*?This is a really long+ heading.*?\\-*")
})

# test cli_rule
testthat::test_that("cli_rule combines strings and prints as header with prefix and suffix", {
  strs <- "This is a test heading "
  strs2 <- "plus other things"
  strl <- "This is a heading with some special sympols like *,;%#$."
  strs3 <- ""
  cli_rule(strs, strs2)
  cli_rule(strl, strs2)
  testthat::expect_output(cli_rule(strs, strs2), regexp = "\\-\\- This is a test heading plus other things \\-+")
  testthat::expect_output(cli_rule(strl, strs2), regexp = "\\-\\- This is a heading with some special sympols like \\*,;%#\\$\\.plus other things \\-+")
})

# test cli_li
testthat::test_that("cli_li prints string with a leading bullet point", {
  strs <- "This is a test heading "
  strs2 <- "plus other things"
  cli_li(strs, strs2)
  testthat::expect_output(cli_li(strs, strs2), regexp = "- This is a test heading plus other things")
})

# test cli_str
testthat::test_that("cli_str create strings with double quotation in blue when printed in console", {
  strs <- "This is a test string"
  testthat::expect_equal(cli_str(strs), crayon::blue(paste0('"', strs, '"')))
})

# test cli_bool
testthat::test_that("cli_bool creates boolean object in blue color", {
  strs <- TRUE
  testthat::expect_equal(cli_bool(strs), crayon::blue(strs))
})

# test cli_num
testthat::test_that("cli_num output string as header with prefix and suffix", {
  nums <- 123
  testthat::expect_equal(cli_num(nums), crayon::green(nums))
})

# test cli_pkg
testthat::test_that("cli_pkg creates package name in blue", {
  strs <- "test_pkg_name_in_blue"
  testthat::expect_equal(cli_pkg(strs), crayon::blue(strs))
})

# test cli_path_src
testthat::test_that("cli_path_src output string in green with double quotations surrounded", {
  fd1 <- "/opt"
  fd2 <- "folder"
  fd3 <- "another-folder"
  testthat::expect_equal(cli_path_src(fd1, fd2, fd3), crayon::green('"/opt/folder/another-folder"'))
})

# test cli_path_dst
testthat::test_that("cli_path_dst output string in blue with double quotations surrounded", {
  fd1 <- "/opt"
  fd2 <- "folder"
  fd3 <- "another-folder"
  testthat::expect_equal(cli_path_dst(fd1, fd2, fd3), crayon::blue('"/opt/folder/another-folder"'))
})