tests/testthat/test-praise.R

test_that("teset praise works", {
  expect_identical(praise("Kate"),
                   glue::glue("You're the best, Kate!"))
  expect_identical(praise("Kate", ";"),
                   glue::glue("You're the best, Kate;"))
  expect_error(praise())
})
dankhanh-nguyen/praisme documentation built on Dec. 19, 2021, 8:09 p.m.