tests/testthat/test-utils-display.R

test_that("paste_line", {
  example1 <- c("Kansas", "Missouri", "South Carolina", "Utah")

  expect_equal(paste_line(example1), "Kansas\nMissouri\nSouth Carolina\nUtah")
  expect_equal(paste_line(example1, .trailing = TRUE),
               "Kansas\nMissouri\nSouth Carolina\nUtah\n")
})
wjakethompson/measr documentation built on April 12, 2025, 9:46 p.m.