tests/testthat/test-printing.R

test_that("rule", {
  expect_match(
    withr::with_options(list(width = 20), rule("test", pad = "-")),
    "- test -----------",
    fixed = TRUE
  )
})
r-pkgs/sessioninfo documentation built on Aug. 31, 2024, 11:42 a.m.