tests/testthat/test-function-indent.R

test_that("indent() works", {
  
  expect_error(indent())
  expect_identical(indent("a", 1L), "  a")
  expect_identical(indent("a", 2L), "    a")
  expect_identical(indent("a", 1L, 4L), "    a")
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.