tests/testthat/test-poisutils.R

In poissonconsulting/poisutils: Poisson Consulting's Utility Functions

test_that("punctuate", {
  expect_identical(ps_punctuate(1), "1")
  expect_identical(ps_punctuate(1:2), "1 or 2")
  expect_identical(ps_punctuate(1:3), "1, 2 or 3")
  expect_identical(ps_punctuate(1:3, "and"), "1, 2 and 3")
})