1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
test_that("wrapping removes spaces", {
expect_equal(str_wrap(""), "")
expect_equal(str_wrap(" "), "")
expect_equal(str_wrap(" a "), "a")
})
test_that("wrapping with width of 0 puts each word on own line", {
n_returns <- letters %>%
str_c(collapse = " ") %>%
str_wrap(0) %>%
str_count("\n")
expect_equal(n_returns, length(letters) - 1)
})
test_that("wrapping at whitespace break works", {
expect_equal(str_wrap("a/b", width = 0, whitespace_only = TRUE), "a/b")
expect_equal(str_wrap("a/b", width = 0, whitespace_only = FALSE), "a/\nb")
})
test_that("str_wrap() preserves names", {
x <- c(C = "3", B = "2", A = "1")
expect_equal(names(str_wrap(x)), names(x))
})
|
