diff --git a/tests/testthat/test-txt_wrap.R b/tests/testthat/test-txt_wrap.R index 6340a5247..2ebfd6355 100644 --- a/tests/testthat/test-txt_wrap.R +++ b/tests/testthat/test-txt_wrap.R @@ -292,5 +292,5 @@ test_that("toString and wrapping cooperates well with separator divisors", { sec_seps_df <- mf_rinfo(bmf)[, c("abs_rownumber", "trailing_sep"), drop = FALSE] mf_rinfo(bmf)$trailing_sep[c(1, 3, 4)] <- " " - toString(bmf, widths = c(4, 4, 4)) %>% cat + expect_silent(toString(bmf, widths = c(4, 4, 4))) })