2

我想测试我的一个函数是否给出了特定的消息（或警告或错误）。

good <- function() message("Hello")
bad <- function() message("Hello!!!!!")

我希望第一个期望成功，第二个期望失败。

library(testthat)
expect_message(good(), "Hello", fixed=TRUE)
expect_message(bad(), "Hello", fixed=TRUE)

不幸的是，他们两个都通过了。

为了澄清：这只是一个最小的例子，而不是我正在测试的确切消息。如果可能的话，我想通过需要为我要测试的每条新消息提出适当的正则表达式来避免给我的测试脚本增加复杂性（可能还有错误）。

4

2 回答 2

7

您可以使用^和$锚点来指示字符串必须以您的模式开始和结束。

expect_message(good(), "^Hello\\n$")
expect_message(bad(), "^Hello\\n$")
#Error: bad() does not match '^Hello\n$'. Actual value: "Hello!!!!!\n"

\\n需要匹配添加的新行message。

对于警告，它有点简单，因为没有换行符：

expect_warning(warning("Hello"), "^Hello$")

对于错误，它有点难：

good_stop <- function() stop("Hello")
expect_error(good_stop(), "^Error in good_stop\\(\\) : Hello\n$")

请注意，任何正则表达式元字符，即. \ | ( ) [ { ^ $ * + ?，都需要转义。

或者，借用弗里克先生在这里的回答，您可以将消息转换为字符串，然后使用expect_true,expect_identical等。

messageToText <- function(expr) {
  con <- textConnection("messages", "w")
  sink(con, type="message")
  eval(expr)
  sink(NULL, type="message")
  close(con)
  messages
}

expect_identical(messageToText(good()), "Hello")
expect_identical(messageToText(bad()), "Hello") 
#Error: messageToText(bad()) is not identical to "Hello". Differences: 1 string mismatch
于 2014-06-29T13:28:41.790 回答
1

您的 reexeg"Hello"在这两种情况下都匹配，因此它不会返回错误。\\b您需要从两边设置单词边界。如果您不在这里使用标点符号/空格就足够了。为了也抛弃它们，您需要添加[^\\s ^\\w]

library(testthat)
expect_message(good(), "\\b^Hello[^\\s ^\\w]\\b")
expect_message(bad(), "\\b^Hello[^\\s ^\\w]\\b")    
## Error: bad() does not match '\b^Hello[^\s ^\w]\b'. Actual value: "Hello!!!!!\n"
于 2014-06-29T10:20:16.770 回答