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 Nov. 5, 2023, 6:27 p.m.