是否可以使用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

下面的作品，看起來像是貓的行為

查看一下fill參數的幫助（默認為FALSE）

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