tests/testthat/test-str_permute.R

context("str_permute")

test_that("LETTERS", {
  ALPHABET <- paste0(LETTERS, collapse = "")
  permuted <- str_permute(rep(ALPHABET, 3), 5:6, 3:4)
  expect_identical(permuted, c("EFCD", "EFCD", "EFCD"))
})
BAAQMD/strtools documentation built on Nov. 23, 2023, 5:52 a.m.