tests/testthat/stringr-imported/test-pad.R

In charr: String Processing Reimagined for 'ALTREP' Strings

test_that("long strings are unchanged", {
  lengths <- sample(40:100, 10)
  strings <- vapply(
    lengths,
    function(x) {
      str_c(letters[sample(26, x, replace = T)], collapse = "")
    },
    character(1)
  )

  padded <- str_pad(strings, width = 30)
  expect_equal(str_length(padded), str_length(strings))
})

test_that("directions work for simple case", {
  pad <- function(direction) str_pad("had", direction, width = 10)

  expect_equal(pad("right"), "had       ")
  expect_equal(pad("left"), "       had")
  expect_equal(pad("both"), "   had    ")
})

test_that("padding based of length works", {
  # \u4e2d is a 2-characters-wide Chinese character
  pad <- function(...) str_pad("\u4e2d", ..., side = "both")

  expect_equal(pad(width = 6), "  \u4e2d  ")
  expect_equal(pad(width = 5, use_width = FALSE), "  \u4e2d  ")
})

test_that("uses tidyverse recycling rules", {
  expect_error(
    str_pad(c("a", "b"), 1:3),
    class = "vctrs_error_incompatible_size"
  )
  expect_error(
    str_pad(c("a", "b"), 10, pad = c("a", "b", "c")),
    class = "vctrs_error_incompatible_size"
  )
})

test_that("str_pad() preserves names", {
  x <- c(C = "3", B = "2", A = "1")
  expect_equal(names(str_pad(x, 2, side = "left")), names(x))
})