tests/testthat/test-function-space.R

test_that("space() works", {

  f <- kwb.utils:::space

  expect_identical(f(), "  ")
  expect_identical(f(5, 1), "     ")
  expect_identical(f(2, 2), "    ")
  
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.