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