tests/testthat/test_strrepeat.R

context("strrepeat")

test_that("strrepeat", {
  expect_identical(strrepeat("x", 3), "xxx")
  expect_identical(strrepeat("x", 3, "y"), "xyxyx")
  expect_identical(strrepeat(c("x", "y"), 2), "xyxy")
})
berndbischl/BBmisc documentation built on Jan. 6, 2023, 12:32 p.m.