tests/testthat/test-utils.R

In ColinFay/dockerfiler: Easy Dockerfile Creation from R

test_that("utils works", {
  res <- testthat::capture_output({
    cat_green_tick("test")
  })
  expect_true(
    grepl(
      "test",
      res
    )
  )
  res <- testthat::capture_output({
    cat_red_bullet("test")
  })
  expect_true(
    grepl(
      "test",
      res
    )
  )
  res <- testthat::capture_output({
    cat_info("test")
  })
  expect_true(
    grepl(
      "test",
      res
    )
  )
})