是否可以使用testthat::expect_output来期望回车？

Question

我正在尝试测试我的包，以确保打印到屏幕上的消息以回车结束。当我试着在最后与回程相匹配时，它永远不会成功。有什么办法能与回程车相匹配吗？

library(testthat)
foo <- function() cat("Hello\n")
expect_output(foo(), "Hello\n")
#> Error: `foo\(\)` does not match "Hello\n".
#> Actual value: "Hello"

Answer 1

下面的工作，看起来像是猫的行为

查看填充参数的帮助(默认为FALSE)。

foo <- function() {cat ("Hello\n",fill=TRUE)}
expect_output(foo(), "Hello\n")