tests/testthat/test-praise.R

test_that("test praise works", {
  expect_identical(praise("Thomas"),
                   glue::glue("You're the best, Thomas!"))
  expect_identical(praise("Thomas", ";"),
                   glue::glue("You're the best, Thomas;"))
  expect_error(praise())
})
esan-hasan/praiseme documentation built on Dec. 20, 2021, 6:36 a.m.