1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
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"
)
})
|
