是否可以使用 testthat::expect_output 期待马车 return？

Question

我正在尝试测试我的包裹以确保打印到屏幕上的消息以回车符结尾 return。当我尝试在末尾匹配回车 return 时，它永远不会成功。有没有办法匹配马车return?

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")

是否可以使用 testthat::expect_output 期待马车 return？

Is it possible to use testthat::expect_output to expect a carriage return?

r

testthat