tests/testthat/test-print.R

test_that("format_items", {
  cases <- list(
    list(c("1", "2", "3"), "`1`, `2` and `3`"),
    list("1", "`1`"),
    list(c("1", "2"), "`1` and `2`")
  )
  for (c in cases) expect_equal(format_items(c[[1]]), c[[2]])
})
r-lib/pkgdepends documentation built on April 7, 2024, 8:06 a.m.