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())
})
KhanhNganDo/praiseme documentation built on Dec. 18, 2021, 3:34 a.m.